Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Especificar qual pl...
 
Notifications
Clear all

Especificar qual planilha preenche os dados

 
2024 - VBA & Macros
3 Posts
3 Usuários
0 Reactions
789 Visualizações
RSS
 robertonl
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Como procedo para especificar de qual guia da planilha puxa os dados.
Somente puxa os dados se abrir o formulário na guia em que se encontra a informação.
utilizei este comando e não está dando certo.
Dim cell As Range
Dim Rng As Range

With ThisWorkbook.Sheets("atual")
Set Rng = .Range("A2", .Range("A1").End(xlDown))
End With.

As informações serão preenchidas no meu listbox se a guia atual estiver ativa. Se tiver em outra guia o meu listbox não preenche.

 
Postado : 28/07/2016 9:22 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

robertonl,

Boa tarde!

Para "puxar dados" de qualquer planilha do seu arquivo, estando em qualquer lugar (qualquer planilha ativa) você deve especificar, claramente o nome da planilha onde quer buscar o dado. Por exemplo: digamos que você está na planilha (aba) Chamada Cliente e, em uma caixa de texto do formulário, chamada Txt_Endereço, você quer que seja preenchido o nome da rua do cliente que está na Célula B8 da sua planilha (aba) chamada Endereço. Você utilizaria o seguinte código:

Txt_Endereço.Text = Sheets("Endereço").Range ("B8").Value

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 : 28/07/2016 10:34 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu não sei se entendi.

Dentro do módulo de Estapasta_de_Trabalho, use uma condição.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "NomeDaGuia" And UserForm1.Visible = True Then
    Unload UserForm2
End If
If Sh.Name = "NomeDaGuia" And UserForm1.Visible = False Then
    UserForm2.Show
End If
End Sub

Att

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

 
Postado : 28/07/2016 10:38 am
Forum Jump:
  Tópico Anterior
Próximo Tópico