Identificação da úl...
 
Notifications
Clear all

Identificação da última célula de dados em uma coluna.

7 Posts
2 Usuários
0 Reactions
979 Visualizações
(@luissergio)
Posts: 3
New Member
Topic starter
 

Boa noite.
Estou iniciando agora em Excel com VBA e estou passando por apuros.

Preciso identificar a última célula com dados na coluna A, selecionar da A1 até esta última célula com dados e copiá-los para outra coluna.
(A identificação é necessária pois a posição da última célula com dados na coluna A é variável. Cada vez que atualizo os dados, a posição do último registro muda)
Em seguida preciso deletar os dados da coluna A.

Se alguém também puder me indicar uma apostila ou similar para estudo será muito útil para mim.
Espero também poder ajudá-los em pouco tempo.

Obrigado.

 
Postado : 17/05/2013 5:35 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!
Lembre de usar nossa base de dados!!

Sub Use_A_Pesquisa_Do_Forum()
Range("A" & Cells.Rows.Count).End(xlUp).Select
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/05/2013 5:37 pm
(@luissergio)
Posts: 3
New Member
Topic starter
 

Sub Utilizarei_a_base_de_dados_da_próxima_vez()
Sou novato em foruns, utilizarei a pesquisa do forum da próxima vez.
Obrigado amigo.
End Sub

 
Postado : 17/05/2013 5:48 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

:lol: meu código não te ajudou em nada :?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/05/2013 5:51 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

:lol: meu código não te ajudou em nada :?

kkkk, as vezes só rindo mesmo Alexandre, o luis falou mas não disse nada, se realmente ajudou ou não, mas fazer o que, vamos aguardar que ele se pronuncie, enquanto isto não acontece vou postar minha sugestão para o caso de outros precisarem.

Sub CopiaRangeseApaga()

    Dim Rws As Long, Rng As Range
    
    'Armazena na Variável o TT de Celulas da primeira até a última
    'Na Coluna A
    Rws = Cells(Rows.Count, "A").End(xlUp).Row
    
    'Atribui Definição para o Novo Range do Total de Celulas
    Set Rng = Range(Cells(1, "A"), Cells(Rws, "A"))
    
    'Copia todos para a Coluna "C" iniceando em C1
    Rng.Offset(0, 0).Resize(Rws, 1).Copy Destination:=Range("C1")
    
    'Apaga os dados da Coluna A
    Rng.Offset(0, 0).Resize(Rws, 1).ClearContents

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/05/2013 6:09 pm
(@luissergio)
Posts: 3
New Member
Topic starter
 

Depois que se passa dos 70 a coisa fica mais difícil.
Tenho pouco tempo para fazer e não sei quanto para aprender.
Obrigado a quem realmente ajudou(Mauro Coutinho), sua resposta foi útil.
Abraço.

 
Postado : 18/05/2013 8:34 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

:oops: :cry: :cry:

Obrigado a quem realmente ajudou(Mauro Coutinho), sua resposta foi útil.

-------#---------#----------#-------#---------#----------#-------#---------#----------#-------#---------#------------

Se alguém também puder me indicar uma apostila ou similar para estudo será muito útil para mim.
Espero também poder ajudá-los em pouco tempo.

http://www.bertolo.pro.br/FinEst/Semana ... oExcel.pdf

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/05/2013 8:52 am