Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Seleciona linha par...
 
Notifications
Clear all

Seleciona linha para gravar

 
2024 - VBA & Macros
Post Recente por Wagner Morel 11 anos atrás
2 Posts
2 Usuários
0 Reactions
904 Visualizações
RSS
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Olá queridos amigos do fórum, tenho um projeto onde a rotina para gravar os dados numa planilha não está funcionando. Eu tenho a seguinte rotina para isso:

If Range("A3") = "" Then
lin = 3
    Else
    Range("A1").Select
    Selection.End(xlDown).Select
    lin = ActiveCell.Row + 1
End If

No caso, meu cabeçalho ocupa as 2 primeiras linhas. Não consegui entender o que há de errado na lógica acima.

Desde já agradeço a ajuda de todos!


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 31/10/2013 9:28 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

bilokas,

Boa Tarde!

Bem... assim, com um pequeno pedaço do seu código, fica difícil saber o que está acontecendo. Pela análise desse código, o que posso te dizer:
1 - A primeira linha verifica se existe alguma coisa na célula A3. Caso exista valores em A3, o número 3 é atribuído a variável lin.
2 - Na terceira linha do código, se tiver valores em A3, é selecionada a célula A1 (quarta linha) e na quinta linha é dado um CTRL + Seta para baixo para que o Excel se desloque para a última linha com dados da coluna A.
3 - Na sexta linha, então, é atribuída a primeira linha em branco da coluna A à variável lin

Daí, não vi nada errado nesse código. O que está ocorrendo? Qual o problema?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 31/10/2013 10:18 am
Forum Jump:
  Tópico Anterior
Próximo Tópico