Como fazer para que os resultados sejam gravados

[pedro_mexico]

Bom dia forum.
Preciso de uma ajuda.
Tenho um formulário que está a gravar os dados na primeira linha em branco ,
Queria saber se é possível eu ter a gravação mas onde ele procure a primeira linha em branco de uma Coluna.

eu preciso disso pois tenho uma coluna da panilha com uma formula para calcular a idade, mas esta formula esta a fazer com que os dados sejam gravados só na linha totalmente vazia da panilha(eu coloquei esta formula na coluna ex:H até a linha 100, e a gravaçao dos dados só acontecem a partir da linha 101)

espero que me ajudem.
Obrigado

[srobles]

pedro_mexico,

Experimentou usar uma laço For => Next ou Do => Loop, para verificar linha a linha por uma célula em branco ?

Ex:

Código: Selecionar todos

  'Buscar pela primeira linha em branco iniciando pela linha 2 na planilha atual
  For a = 2 to ThisworkBook.Sheets("Plan1").UsedRange.Rows.Count +1

    'Se a linha atual na coluna A estiver em branco ou nulo, faça
    If Cells(a,"A") = "" Then
      'Código para realizar a gravação dos dados
    End If
  Next

Abs

[pedro_mexico]

amigo Srobles

fiquei baralhado com o que falou.
eu tenho este codigo

Dim lin As Integer

lin = ActiveSheet.UsedRange.Rows.Count + 1 'Define a variavel Lin como a ultima linha e soma + 1
Cells(lin, "B") = txtNII 'Primeira linha em branco na coluna A = txtapelido
Cells(lin, "C") = txtnomes 'E assim por diante até o último campo

nao dá para adaptar nada neste codigo??

[srobles]

pedro_mexico,

Dá para adaptar sim, mas de qualquer forma, você deverá fazer uso de um laço, seja ele um For-Next ou um Do-Loop, exemplo :

Código: Selecionar todos

Dim lin As Integer

lin = ActiveSheet.UsedRange.Rows.Count + 1 'Define a variavel Lin como a ultima linha e soma + 1

For a = 2 To Lin
   If Cells(a,"A")="" Then
      Cells(a, "A") = txtNII 'Primeira linha em branco na coluna A = txtapelido
      Cells(a, "B") = txtnomes 'E assim por diante até o último campo
   End if
Next

Ou

Código: Selecionar todos

Dim a As Integer

a = 2 'Linha inicial

With ThisWorkbook.Sheets("Plan1") 'Informe o nome da sua folha
    .Activate
    Do
       Cells(a, "A").Select
       a = a + 1
    Loop Until ActiveCell.Value = ""
    
          Cells(ActiveCell.Row, "A") = txtNIII 'Primeira linha em branco na coluna A = txtapelido
          Cells(ActiveCell.Row, "B") = txtnomes 'E assim por diante até o último campo
End With

Faça os teste e retorne ok?

Abs

[pedro_mexico]

boa tarde Srobles.
Nao consigo incorporar o codigo, dá sempre erros.
deve ser por ter o codigo de gravar na diferente panilha mediante valor de uma combobox

[srobles]

pedro_mexico,

Poste seu modelo, assim fica mais fácil ajudá-lo.

Abs

[Marcossantiago]

Olá!

Pessoal desculpe incomodar , sei que demanda tempo e disposição na ajuda de vocês.
é Possível Fechar esse projeto que estou fazendo por favor. Usei a base do Cadastro de Clientes , mas esse tenho que ter dois cadastros separados, usei os mesmos nomes anteriores porque sei mudar os nomes das Label depois.

Esse é só cadastrar as informações dos formulários nas planilhas respectivas, sem critério de Obrigação de preenchimento.

Obrigado"!

não sei se teria que abrir outro tópico.

[pedro_mexico]

pedro_mexico,

Poste seu modelo, assim fica mais fácil ajudá-lo.

Abs

Amigo Srobles.
este campo está a dar tanta luta que vou eliminar a coluna A(com a funçao que tenho , pode ser que dê).
mas como estou com tantos erros que acho que vou parar de fazer o que me pediram para alterar o antigo formulario,

é que encontrei um codigo para (tornar as comboboxs encadeadas;mas quando adaptada ao meu novo formulario, dá semprre erro de desconhecer a propria combobox.
vou so colocar o codigo a ver o que pode estar mal(no formulario tirado da net,funciona na perfeiçao, adaptando ao meu dá erro=

private sub combobox1_change()
if combobox1.value"A" then
combobox2.rowsource="panilha2!A2:A25"
ElseIf combobox1.value"B" then
combobox2.rowsource="panilha2!A26:A32".
end if
end sub

O estranho é que no meu formulario nao dá mas se colocar os meus dados no formulario que saquei da net, ele dá

[pedro_mexico]

Bom dia srobles.
Consegui resolver o problema da combobox, coloquei os valores que dão valor à primeira combobox noutra panilha e ele assim já vai buscar os valores.
Em relação ao gravar, aí é que não me safo. Já eliminei a coluna A que tinha os valores para não dar erro.
Já inseri a seleção para gravar mediante os resultados de uma combobox, mas ele vai sempre para a panilha 1

[srobles]

pedro_mexico,

Como disse anteriormente, poste seu modelo apenas com os cabeçalhos que verifico para você, pode ser?

Apenas por referência fica difícil meu amigo.

Abs