Lançar na plan selecionada

2024 - VBA & Macros

Post Recente por Rui Maciel 8 anos atrás

3 Posts

2 Usuários

0 Reactions

753 Visualizações

RSS

Rui Maciel

(@rui-maciel)

Posts: 190

Reputable Member

Topic starter

Boa noite
estou a implementar um aplicativo baseado num do Sr. romanholi, pois, a forma de criar as plan´s é assombrosa e cabe perfeitamente naquilo que pretendo, só que quando vou para gravar os dados na plan selecionada não consigo, pois, grava na plan menu. Por favor alguém tem uma ideia para regularizar. Obrigado.
Att.,
RM

Postado : 26/01/2017 4:19 pm

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa noite Rui Maciel,

Na macro do CommandButton1 você esqueceu de selecionar a planilha antes de jogar os dados.
Veja:

    Shname = Me.ComboBox1.Text 'Define a variavel shname
    
    For Each ws In ThisWorkbook.Worksheets ' varre todas as abas
    
        If ws.Name = Shname Then
            
            'Selecione a Planilha
            ws.Select
            
            Range("A2").End(xlDown).Select
            Range("A65536").End(xlUp).Offset(1, 0).Select
            
            ActiveCell.Offset(0, 0).Value = ID.Text
            ActiveCell.Offset(0, 1).Value = Valor.Text
            ActiveCell.Offset(0, 2).Value = Data.Text
            ActiveCell.Offset(0, 3).Value = Ano.Text
            Exit For
        
        End If
    
    Next

Postado : 26/01/2017 4:36 pm