Este fórum está sendo desativado

[leonesurf]

Olá, boa noite a todos. Gostaria de solicitar a ajuda de vocês, estou quebrando um pouco a cabeca para resolver esse probleminha, por gentileza, quem puder me ajuda fico muito agradecido.

Nessa Planilha que consta ai em Anexo, Ao abrir o Formulario e preencher com os numeros queria que ele automaticamente fosse para a parte de 10H, e ficasse um em baixo do outro, depois de preencher até o numero 5, ele pulasse para a tabela ao lado que é a de 12h, depois pulasse para a tabela de 15h.... Depois de preencher essa tabela dessa Data, ele pular para a outra data de baixo e começar com a tabela de 10h e fosse preenchendo a mesma coisa..

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub bt_registro_Click()
 Dim k As Long, x As Long, i As Long
  If [AA1] = "" Then
   k = 8: x = 11: [AA1] = 10: [AB1] = 11
  Else: k = [AA1]: x = [AB1]
   If [AA1] < 16 Then
    [AA1] = [AA1] + 2
   Else: [AA1] = 8: [AB1] = [AB1] + 10
   End If
  End If
    For i = 1 To 10
     Cells(i + x - 1, k) = Me.Controls("Resultado" & i).Value: Me.Controls("Resultado" & i).Value = ""
     If i = 5 Then k = k + 1: x = x - 5
    Next i
   Resultado1.SetFocus
End Sub

[leonesurf]

Olá, Osvaldo. Funcionou, só que tipo Osvaldo, se eu inserir os numeros ele preenche um em baixo do outro, não teria como ser preenchido um do lado do outro e depois ir descendo? Ex: 10 20
40 30

E quando eu apago os numeros Osvaldo, inves de começar onde os numeros foram apagados, ele vai descendo pra outra tabela e não teria como ao inserir os numeros ele selecionar a tabela que foi inserada para poder ser verificado se os numeros foram preenchido certos?

[osvaldomp]

... não teria como ser preenchido um do lado do outro e depois ir descendo?
Você quer preencher primeiro H11:Q11, depois H12:Q12, depois H13:Q13, ... , é isso ?

E quando eu apago os numeros Osvaldo, inves de começar onde os numeros foram apagados, ele vai descendo pra outra tabela
Se você limpar H11:Q11 limpe também AA1:AB1 para reiniciar, pois o código utiliza essas duas células como auxiliares.

[leonesurf]

Ah! Beleza. Pra preencher primeiro assim: H11:I11, H12:I12, H13:I13, H14:I14, H15:I15, J11:K11, J12:K12....
Não tem como ao preencher aquela UserForm com os 10 numeros, ela ser selecionada a onde foi preenchida os numeros?

[osvaldomp]

Ah! Beleza. Pra preencher primeiro assim: H11:I11, H12:I12, H13:I13, H14:I14, H15:I15, J11:K11, J12:K12.... ~~~> entendi, vou fazer as alterações

Não tem como ao preencher aquela UserForm com os 10 numeros, ela ser selecionada a onde foi preenchida os numeros?
Amigo, essa parte em vermelho eu não tenho ideia do que você está querendo dizer

[leonesurf]

Tipo Osvaldo, quando eu preencher essa tabela por exemplo: H11:I11, H12:I12, H13:I13, H14:I14, H15:I15, essa parte preenchida, vai ser formada pelos 10 quadrados da UserForm. Quando essa parte for preenchida, ela automaticamente ser selecionada, para assim saber onde foi preenchida e analisar se foi preenchida com os numeros certos.

[osvaldomp]

Quando essa parte for preenchida, ela automaticamente ser selecionada, para assim saber onde foi preenchida e analisar se foi preenchida com os numeros certos.
Eu sugiro outro caminho pra você conferir: antes de carregar o Form selecione manualmente na planilha o próximo intervalo a ser preenchido pelo código.

Para preencher na sequência H11:I11, H12:I12, H13:I13, H14:I14, H15:I15 ,... coloque o código abaixo no lugar do anterior e limpe AA1:AB1.

Código: Selecionar todos

Private Sub bt_registro_Click()
 Dim k As Long, x As Long, i As Long
  If [AA1] = "" Then
   k = 8: x = 11: [AA1] = 10: [AB1] = 11
  Else: k = [AA1]: x = [AB1]
   If [AA1] < 16 Then
    [AA1] = [AA1] + 2
   Else: [AA1] = 8: [AB1] = [AB1] + 10
   End If
  End If
    For i = 1 To 10
      Cells(x, k) = Me.Controls("Resultado" & i).Value: Me.Controls("Resultado" & i).Value = ""
      k = k + 1
      If i Mod 2 = 0 Then k = k - 2: x = x + 1
    Next i
   Resultado1.SetFocus
End Sub

[leonesurf]

Beleza. Mas mesmo selecionando só o ultimo quadrado preenchido, não tem como Osvaldo? Porque esse resultado ficaria bem em baixo da planilha, lá pelo numero 2035, ao pra não ter que descer e conferir...

Amigo, qual desses codigos posso alterar para usar em outra planilha?

[osvaldomp]

... selecionando só o ultimo quadrado preenchido, ...
Acrescente a linha em vermelho, conforme abaixo.
Resultado1.SetFocus
Cells(x - 1, k + 1).Select
End Sub

Amigo, qual desses codigos posso alterar para usar em outra planilha?
Fique à vontade para escolher.

[leonesurf]

Valeu Osvaldo, brigadao. Agora essa função select, deu certinho.

Tipo Osvaldo, quais desses comandos posso alterar para colocar la na outra planilha?

[leonesurf]

Osvaldo, o Tabela do Resultado da outra Planilha está:

A primeira tabela de resultado está entre: E2021:O225
A Segunda tabela de resultado está entre: E2031:O235
A Terceira tabela de resultado está entre: E2041:O245
A Quarta tabela de resultado está entre: E2051:O255

E essas Colunas que são gerados os numeros: AA1:AB1 eu iria colocar na outra planiha: C2018 e D2018

[osvaldomp]

Esses intervalos que você colocou estão estranhos ~~~> E2021:O225

Disponibilize a planilha e indique onde você quer os resultados.

[leonesurf]

Beleza. Segue em anexo o exemplo por gentileza

[osvaldomp]

......
......
Antes de testar o código abaixo "arrume" a sua planilha: reexiba a coluna N e exclua a coluna O.

Código: Selecionar todos

Private Sub bt_registro_Click()
 Dim k As Long, x As Long, i As Long
  If [C2018] = "" Then
   k = 5: x = 2021: [C2018] = 7: [D2018] = 2021
  Else: k = [C2018]: x = [D2018]
   If [C2018] < 13 Then
    [C2018] = [C2018] + 2
   Else: [C2018] = 5: [D2018] = [D2018] + 10
   End If
  End If
    For i = 1 To 10
      Cells(x, k) = Me.Controls("Resultado" & i).Value ': Me.Controls("Resultado" & i).Value = ""
      k = k + 1
      If i Mod 2 = 0 Then k = k - 2: x = x + 1
    Next i
   Resultado1.SetFocus
   Cells(x - 1, k + 1).Select
End Sub

[leonesurf]

E ai Osvaldo, funfou certinho. Só que queria te pedir mais uma ajuda, é porque minha planilha que vou usar esses codigos, ela está com a Coluna F oculta, não tem condições de funcionar com uma coluna oculta? Agora em anexo, tem o modelo da forma como está a minha planilha.

[osvaldomp]

... não tem condições de funcionar com uma coluna oculta?

Faça o teste! Se não funcionar corretamente reexiba a coluna F, rode o código e em seguida volte a ocultá-la.
Se bem que não vejo sentido em ocultar uma coluna que irá receber dados.
Mais do que isso eu não consigo te ajudar.

[leonesurf]

Osvaldo, e se a Coluna E ficar oculta? Como consta nesse novo exemplo ai em Anexo

[osvaldomp]

Repetindo:

Faça o teste! Se não funcionar corretamente reexiba a coluna F, rode o código e em seguida volte a ocultá-la.
Se bem que não vejo sentido em ocultar uma coluna que irá receber dados.
Mais do que isso eu não consigo te ajudar.

[leonesurf]

É que achei que poderia funcionar ocultando a primeira coluna que está recebendo os dados, dai a segunda coluna que não está oculta iria receber os dados primeiro.