Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Inserir na célula a...
 
Notifications
Clear all

Inserir na célula ao lado

 
2024 - VBA & Macros
Post Recente por arboit 7 anos atrás
4 Posts
3 Usuários
0 Reactions
855 Visualizações
RSS
 arboit
(@arboit)
Posts: 5
Active Member
Topic starter
 

Bom dia amigos,

Tenho um código que verifica na coluna B, a última célula vazia e insere um texto "Novo Item". O que eu gostaria era que esse texto "Novo Item" fosse inserido na célula imediatamente ao lado, no caso, na Coluna C.

O código que eu uso para encontrar a ultima célula vazia é esse, só que ele escreve o "Novo Item" na célula vazia da coluna B e não na C, como eu gostaria.


Cells(Rows.Count, "B").End(xlUp).Offset(1) = "Novo Item"

Se alguém puder me ajudar, ficarei grato!

 
Postado : 30/01/2018 4:55 am
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Tenta aí! 

Cells(Rows.Count, "B").End(xlUp).Offset(1,1) = "Novo Item"

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 30/01/2018 5:12 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
DIM LINHA AS LONG
LINHA = Cells(Rows.Count, "B").End(xlUp).Offset(1) 
CELLS(LINHA,3).VALUE = "Novo Item"
 
Postado : 30/01/2018 5:13 am
 arboit
(@arboit)
Posts: 5
Active Member
Topic starter
 

Show!! Obrigado, leandroxtr.

Abraço,
Arboit

 
Postado : 30/01/2018 5:15 am
Forum Jump:
  Tópico Anterior
Próximo Tópico