-
Posts
5 -
Cadastrado em
-
Última visita
Reputação
1-
Visual Basic Vba carregar abas e dados em listbox
tt_branco respondeu ao tópico de tt_branco em Programação - outros
Listbox, não existe linhas em branco entre dados da planilha mas ao carregar a listbox eles são separados por uma linha em branco. -
tt_branco alterou sua foto pessoal
-
Visual Basic Vba carregar abas e dados em listbox
tt_branco postou um tópico em Programação - outros
Alguém sabe como retirar os dados em branco da textbox? Private Sub UserForm_Initialize() nAbas = Sheets.Count For n = 2 To nAbas 'Conta a partir da segunda aba 'Carrega o nome da aba ListBox1.AddItem Sheets(n).Name ListBox1.list(ListBox1.ListCount - 1, 1) = Sheets(n).Name 'carrega o nome do arquivo armazenado na aba selecionada ListBox1.AddItem Range("B2") ListBox1.list(ListBox1.ListCount - 2, 1) = Sheets(n).Range("B2") Next n End Sub teste.xlsx -
Olá, atualmente eu armazeno diversos dados em cada aba(sheet) de uma outra planilha base e gostaria de carregar uma listview com as abas dessa planilha... Alguém tem alguma ideia?
-
Excel Excel VBA(Formulário) - Código para verificar disponibilidade de setor
tt_branco respondeu ao tópico de tt_branco em Microsoft Office e similares
Boa noite! Estou desenvolvendo um formulário de cadastro e estou tendo problemas com meu código pois ficou muito longo e demora um pouquinho para iniciar, agradeço se tiverem uma ideia melhor ou uma forma de deixar mais rápido.... segue: (Foi proposital usar label como destino final de dados) ____________________________________ Private Sub BtnVerificar_Click() Call Verificar1 Call Verificar2 Call Verificar3 . . . Call Verificar10 End Sub ____________________________________ Sub Verificar1() Sheets("Planilha1").Activate linha = Range("A2").End(xlDown).Row + 1 lin = 2 While lin < linha If Cells(lin, 3) = "1" Then UserForm1.Q1.Caption = "Indisponivel" Exit Sub End If lin = lin + 1 Wend UserForm1.Q1.Caption = "Disponivel" End Sub _______________________________________ Sub Verificar2() Sheets("Planilha1").Activate linha = Range("A2").End(xlDown).Row + 1 lin = 2 While lin < linha If Cells(lin, 3) = "2" Then UserForm1.Q2.Caption = "Indisponivel" Exit Sub End If lin = lin + 1 Wend UserForm1.Q2.Caption = "Disponivel" End Sub ______________________________________ Sub Verificar3() Sheets("Planilha1").Activate linha = Range("A2").End(xlDown).Row + 1 lin = 2 While lin < linha If Cells(lin, 3) = "3" Then UserForm1.Q3.Caption = "Indisponivel" Exit Sub End If lin = lin + 1 Wend UserForm1.Q3.Caption = "Disponivel" End Sub -
Excel Excel VBA(Formulário) - Código para verificar disponibilidade de setor
tt_branco postou um tópico em Microsoft Office e similares
Boa noite! Estou desenvolvendo um formulário de cadastro e estou tendo problemas com meu código pois ficou muito longo e demora um pouquinho para iniciar, agradeço se tiverem uma ideia melhor ou uma forma de deixar mais rápido.... segue: (Foi proposital usar label como destino final de dados) ____________________________________ Private Sub BtnVerificar_Click() Call Verificar1 Call Verificar2 Call Verificar3 . . . Call Verificar10 End Sub ____________________________________ Sub Verificar1() Sheets("Planilha1").Activate linha = Range("A2").End(xlDown).Row + 1 lin = 2 While lin < linha If Cells(lin, 3) = "1" Then UserForm1.Q1.Caption = "Indisponivel" Exit Sub End If lin = lin + 1 Wend UserForm1.Q1.Caption = "Disponivel" End Sub _______________________________________ Sub Verificar2() Sheets("Planilha1").Activate linha = Range("A2").End(xlDown).Row + 1 lin = 2 While lin < linha If Cells(lin, 3) = "2" Then UserForm1.Q2.Caption = "Indisponivel" Exit Sub End If lin = lin + 1 Wend UserForm1.Q2.Caption = "Disponivel" End Sub ______________________________________ Sub Verificar3() Sheets("Planilha1").Activate linha = Range("A2").End(xlDown).Row + 1 lin = 2 While lin < linha If Cells(lin, 3) = "3" Then UserForm1.Q3.Caption = "Indisponivel" Exit Sub End If lin = lin + 1 Wend UserForm1.Q3.Caption = "Disponivel" End Sub
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais