?? No seu exemplo carrega corretamente as 3 text box (ultimo registro da coluna).

Reinaldo, por algum motivo, no projeto completo não esta carregando, vou postar o completo.

Gostaria de aproveitar e perguntar mais uma coisa, tem como neste mesmo codigo usar o -1 para carregar outros textbox com a penultima linha???

Reinaldo, por algum motivo, no projeto completo não esta carregando, vou postar o completo.

Resolvido com a exclusão das grades em branco...

Fica em aberto a questão do -1 por favor...

Fabio Pradella

 

Por que não utiliza Assim:

Private Sub userform_activate()
    Dim lastRow As Integer
    lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    TextBox4.Value = Sheets("Copel").Range("A" & lastRow)
    TextBox5.Value = Sheets("Copel").Range("B" & lastRow)
    TextBox6.Value = Sheets("Copel").Range("D" & lastRow)
    TextBox7.Value = Sheets("Copel").Range("C" & lastRow)

End Sub

Se quiser carregar outras, é só lastrow -1 ou -2 .....

Obrigado mais uma vez Reinaldo....

Um grande abraço.

Fabio Pradella

Bom dia Reinaldo e a todos,

Reinaldo, estou usando a tua indicação , que vai sempre procurar a ultima célula preenchida da coluna, e se eu quisesse usar não uma planilha para baixo, mas para a direita????
Se estiver ja preenchida a célula A1 ele vai salvar na B1 ao envés de ir para a A2 e claro fazer as buscas desta forma também.

Na verdade nunca trabalhei com uma forma diferente que não fosse em coluna, gostaria de entender como se trabalha em linha.
Citei o código que você indicou mas entendo que todo o projeto vai ser modificado.

Um abraço.

Fabio

Veja se é isso> (o codigo deve retornar a ultima coluna com dados (similar a linha)

Private Sub userform_activate()
Dim lastColum As Integer
    lastColum = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
        
TextBox4.Value = Sheets("Copel").Cells(1, lastColum + 1)
TextBox5.Value = Sheets("Copel").Cells(1, lastColum + 2)
TextBox6.Value = Sheets("Copel").Cells(1, lastColum + 3)
TextBox7.Value = Sheets("Copel").Cells(1, lastColum + 4)

End Sub

Reinaldo, deu branco total, não consegui ajustar o teu codigo, da uma olhada no anexo por favor.

Obrigado.

Vc deve ajustar a linha lastcolum, para a linha que deseja realmente
lastColum = Cells(1, Cells.Columns.Count).End(xlToLeft).Column "(aqui o 1 representa a linha 1, e a ultima coluna com dados e 14 (N1)
Experimente:

Private Sub userform_activate()
Dim lastColum As Integer
    lastColum = Cells(2, Cells.Columns.Count).End(xlToLeft).Column       
TextBox4.Value = Sheets("Copel").Cells(2, lastColum) 'Vencimento
TextBox5.Value = Sheets("Copel").Cells(3, lastColum)
TextBox6.Value = Sheets("Copel").Cells(4, lastColum)
TextBox7.Value = Sheets("Copel").Cells(5, lastColum)
TextBox8.Value = Sheets("Copel").Cells(2, lastColum - 1) 'Vencimento
TextBox9.Value = Sheets("Copel").Cells(3, lastColum - 1)
TextBox10.Value = Sheets("Copel").Cells(4, lastColum - 1)
TextBox11.Value = Sheets("Copel").Cells(5, lastColum - 1)
End Sub

Show de bola,

Obrigado por enquanto Reinaldo.

Fabio Pradella

Uma opnião tecnica,

Pensei em mudar a forma de linhas para colunas com a sensação de que assim todo o código ficaria mais enxuto, e sem contar que no 1º formato, eu estou criando uma aba para cada conta ( quer dizer se tenho 30 contas serão 30 abas ), e neste novo formato seria uma unica aba para todas as contas.

Como você vê isto???

Fabio Pradella