Notifications
Clear all

Inserir Registros

5 Posts
2 Usuários
0 Reactions
1,325 Visualizações
(@gupastrello)
Posts: 43
Trusted Member
Topic starter
 

Bom dia Pessoal ,

tenho uma nova duvida se alguem puder ajudar.

a macro
Sub InsereRegistro()
Sheets("Lançamentos Estoque").Select
Cells(Rows.Count, "C").End(xlUp).Offset(1) = InputBox("Insira o registro:")
End Sub

ela insere registro em uma determinada celula, como faço para que a mesma insira varios registros em celulas diferentes.?

Obrigado.

 
Postado : 10/10/2012 7:35 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Se poder disponibilizar seu arquivo modelo compactado!!!

Att

 
Postado : 10/10/2012 9:30 am
(@gupastrello)
Posts: 43
Trusted Member
Topic starter
 

segue pplanilha em anexo, quando eu clico no botão de cadastro 'ITENS' na pasta cadastro ele automaticamente precisa abrir um telinha onde eu insiro os dados de cadastro . esses dados são lançados sempre na ultima linha em branco da planilha lançamentos estoque.

 
Postado : 11/10/2012 7:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tentei mas não entendi o que deseja. Voce vai inserir o que aonde?
A sintaxe Cells(Rows.Count, "C").End(xlUp).Offset(1), localiza a ultima celula da coluna C (no caso c1297) e o offset "posiciona-se" na C1298, ou seja fora de sua range.

 
Postado : 12/10/2012 7:32 am
(@gupastrello)
Posts: 43
Trusted Member
Topic starter
 

Eu quero um formulário, que apreça quando clicar no botão cadastro e a partir deste formulário ele insira os dados na ultima linha em branco da planilha de lançamentos de Estoque.

 
Postado : 15/10/2012 11:06 am