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,468 Visualizações
RSS
Lorenzon
 Lorenzon
(@lorenzon)
Posts: 355
Reputable 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
 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

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

 
Postado : 24/09/2014 2:21 pm
Lorenzon
 Lorenzon
(@lorenzon)
Posts: 355
Reputable 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
(@lorenzon)
Posts: 355
Reputable 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
 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

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

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

Alexandre,

Como de costume, você ajudou muito!

Vlw!

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

Bom dia!!

Eu fico feliz por ajudar, obrigado pelo retorno!!

Att

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

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