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

Transferir dados textbox

 
2024 - VBA & Macros
9 Posts
3 Usuários
0 Reactions
1,537 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia colegas.
O código abaixo insere os dados das textbox na planilha 1.
Preciso que a planilha não seja determinada pelo código e sim pela qual eu selecionar.
Nesse código tem como fazer isso?

Private Sub CommandButton1_Click()
Dim intLinha As Integer
intLinha = ThisWorkbook.Worksheets("Plan1").Range("A65536").End(xlUp).Offset(1, 0).Row

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 1) = TextBox1
ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 2) = TextBox2
ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 3) = TextBox3
ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 4) = TextBox4
ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 5) = TextBox5
ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 6) = TextBox6
ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 7) = TextBox7

End Sub

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

 
Postado : 23/03/2017 7:05 am
nagibsalha
 nagibsalha
(@nagibsalha)
Posts: 44
Eminent Member
 

Acho que se você criar um ComboBox com os nomes das planilhas (com lista), ao selecionar a planilha, a mesma seria inserida em uma variável e subistituiria onde você digitou "Plan1".

Exemplo:

Variável PLANILHA
ThisWorkbook.Worksheets(PLANILHA).Cells(intLinha, 1) = TextBox1

"Se você for... você vai."

 
Postado : 23/03/2017 7:30 am
Syrax
 Syrax
(@syrax)
Posts: 160
Estimable Member
 

Veja se isso te ajuda

Nagib, foi mais rápido no comentário a respeito da combobox1

não modifiquei muito o seu código

se isso te ajudou, clique no "joinha" ao lado de citar

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 23/03/2017 7:40 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Nossa, ajudou 100%
Muito obrigado.

Abraços,

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

 
Postado : 23/03/2017 7:46 am
nagibsalha
 nagibsalha
(@nagibsalha)
Posts: 44
Eminent Member
 

Fiz com ListBox sem alterar muita coisa... Mas o codigo de syrax tá melhor.

"Se você for... você vai."

 
Postado : 23/03/2017 8:03 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal ficou tudo show de bola. Mas agora me deparei com outro problema.
Não pode inicial a transferência dos valores na célula "A2", preciso que inicie na célula "D8".
Só mais essa questão.

Grato,

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

 
Postado : 23/03/2017 10:40 am
nagibsalha
 nagibsalha
(@nagibsalha)
Posts: 44
Eminent Member
 

Dunguinha,

Isso é fácil de fazer. Mas, a linha 7 precisa ter informações. Veja como fiz...

Mas, acho bom esperar o Syrax.

"Se você for... você vai."

 
Postado : 24/03/2017 7:21 am
Syrax
 Syrax
(@syrax)
Posts: 160
Estimable Member
 

Nagib, o que você fez atende o pedido dele

Dunguinha, caso não seja isso que você precisa, envie a planilha com dados reais para que nós possamos ver

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 24/03/2017 11:10 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Eita nossa...
Maravilha.
Um dia vou ficar bom nisso.

Muito obrigado pessoal.

Abraços,

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

 
Postado : 24/03/2017 12:49 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico