Selecionar sheet pela Listbox

2024 - VBA & Macros

Post Recente por Laeoli 11 anos atrás

3 Posts

2 Usuários

0 Reactions

1,073 Visualizações

RSS

Laeoli

(@laeoli)

Posts: 85

Trusted Member

Topic starter

Boa Noite!

Srs, precisava alterar "Destination" escolhendo uma planilha pelo listBox1 que contem 18 opções de planilhas para descarregar a linha selecionada, porém não sei como faze-lo.

Agradecido!

Private Sub btnTransfer2_Click()
Dim UltimaLinha As Long
 Dim i   As Long
 
UltimaLinha = Range("A65536").End(xlUp).Select
If chk1.Value = True Then
On Error Resume Next
Sheets("FORNO3510").Select
Range("A2:F2").Cut Destination:=Sheets("FORNO3501").Range("A20")
End If
End Sub

Postado : 07/01/2014 5:04 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Laeoli,

Boa Noite!

Sua explicação está muito vaga... Você tem um listbox em seu formulário com o nome das Sheets carregados e quando escolher um nome quer que esse nome seja o nome que vai para o código? É isso? Se for isso, acho que pode ser assim:

    Private Sub btnTransfer2_Click()
    Dim UltimaLinha As Long
    Dim i   As Long
    Dim Planilha as String

    Planilha = ListBox1.Value
    UltimaLinha = Range("A65536").End(xlUp).Select
    If chk1.Value = True Then
    On Error Resume Next
    Sheets(Planilha).Select
    Range("A2:F2").Cut Destination:=Sheets(Planilha ).Range("A20")
    End If
    End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 07/01/2014 6:37 pm

Laeoli

(@laeoli)

Posts: 85

Trusted Member

Topic starter

Boa Noite!

Era isto mesmo Morel.

mUito Obrigado!

valew!

Postado : 08/01/2014 4:41 pm