Notifications
Clear all

Inserir Registros

5 Posts
2 Usuários
0 Reactions
1,340 Visualizações
(@gupastrello)
Posts: 43
Eminent 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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Se poder disponibilizar seu arquivo modelo compactado!!!

Att

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

 
Postado : 10/10/2012 9:30 am
(@gupastrello)
Posts: 43
Eminent 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
Fernando Fernandes
(@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.

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

 
Postado : 12/10/2012 7:32 am
(@gupastrello)
Posts: 43
Eminent 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