Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Selecionar sheet pe...
 
Notifications
Clear all

Selecionar sheet pela Listbox

 
2024 - VBA & Macros
Post Recente por Laeoli 11 anos atrás
3 Posts
2 Usuários
0 Reactions
1,062 Visualizações
RSS
 Laeoli
(@laeoli)
Posts: 85
Estimable 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: 4063
Famed 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
 
Postado : 07/01/2014 6:37 pm
 Laeoli
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Boa Noite!

Era isto mesmo Morel.

mUito Obrigado!

valew!

 
Postado : 08/01/2014 4:41 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico