Notifications

Clear all

Transferir dados textbox

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

9 Posts

3 Usuários

0 Reactions

1,550 Visualizações

RSS

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)

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)

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

(@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)

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

(@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)

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)

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