Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Cadastrar dados em ...
 
Notifications
Clear all

Cadastrar dados em um determinada célula de outra planilha.

 
2024 - VBA & Macros
7 Posts
2 Usuários
0 Reactions
1,464 Visualizações
RSS
 Lorenzon
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Pessoal,

O código abaixo cadastra dados em outra planilha, localizada na rede, vide abaixo:

Sub Gravar_TATICO()

Dim MATRICULA

Dim lRow As Long
Dim Ultimalinha As Long

MATRICULA = TextBox1.Text

Workbooks.Open ("C:Usersalisson.jalDownloadsBD_GERAL.xlsx")

ActiveSheet.Unprotect ("bossjob")

Sheets("BD_TATICO").Select
'lRow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
Ultimalinha = Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row

With Sheets("BD_TATICO") '<- troque o nome da planilha, se necessário
'Obtém última linha e soma 1:
'Preenche dados na planilha:
lRow = Ultimalinha + 1 ''observa que ele cadastra na ultima linha do banco de dados. Eu preciso adaptar este código de tal modo que cadastre a matricula em uma determinada célula.

Range("A" & lRow).Select
Cells(lRow, "A") = MATRICULA

Sheets("BD_TATICO").Select
ActiveSheet.Protect Password:="bossjob"
ActiveWorkbook.Close savechanges:=True 'salvar True
MsgBox "Avaliação de Desempenho registrada com sucesso!", vbInformation, "Sucesso!"

 
Postado : 24/09/2014 2:08 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Se poder postar seu arquivo modelo!

Onde (qual célula, ou coluna ou intervalo ou linha), deseja que fique os dados, na coluna A?

Att

 
Postado : 24/09/2014 2:21 pm
 Lorenzon
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Alexandre,

Pode ser em qualquer célula e coluna, pois depois eu adapto as minhas necessidades.

 
Postado : 25/09/2014 4:32 am
 Lorenzon
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Pessoal, bom dia!

Preciso muito da ajuda de vocês para o atendimento da necessidade em questão.

 
Postado : 29/09/2014 4:46 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Alexandre,

Pode ser em qualquer célula e coluna, pois depois eu adapto as minhas necessidades.

No caso será sempre em A2!

Dim MATRICULA

Dim lRow As Long
Dim Ultimalinha As Long

MATRICULA = TextBox1.Text

Workbooks.Open ("C:Usersalisson.jalDownloadsBD_GERAL.xlsx")

ActiveSheet.Unprotect ("bossjob")

Sheets("BD_TATICO").Select

With Sheets("BD_TATICO") '<- troque o nome da planilha, se necessário

Cells(2, "A") = MATRICULA

Sheets("BD_TATICO").Select
ActiveSheet.Protect Password:="bossjob"
ActiveWorkbook.Close savechanges:=True 'salvar True
MsgBox "Avaliação de Desempenho registrada com sucesso!", vbInformation, "Sucesso!"

End With

Att

 
Postado : 29/09/2014 5:55 am
 Lorenzon
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Alexandre,

Como de costume, você ajudou muito!

Vlw!

 
Postado : 01/10/2014 6:31 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu fico feliz por ajudar, obrigado pelo retorno!!

Att

 
Postado : 01/10/2014 8:49 am
Forum Jump:
  Tópico Anterior
Próximo Tópico