Bom dia meu amigo....gostei muito da video aula... Tenho uma planilha com 120 colunas, preciso apresentar a direção da empresa o valor de venda de cada vendedor, de acordo com o mês .....criei 5 combobox , um para cada vendedor , 5 combobox para Mês, 5 textbox para mostrar total de vendas por vendedor, desta forma a diretoria pode escolher o mesmo vendedor em cada combobox e meses diferentes em cada combobox, mostrando o valor total de vendas em cada textbox, do vendedor, ou um vendedor em cada combobox e o mesmo mês em cada combobox, mostrando quanto cada vendedor vendeu....em cada textbox .....gostaria de sua ajuda .... pretendo usar seu exemplo.....posso enviar meu vba pronto para vc verificar....assim fica mais fácil para vc entender....ou se puder enviar algo...detalhe....as colunas vendedor coluna V5, valor de vendas coluna W5, data de contrato coluna F6 (referente ao mes de vendas), nome cliente coluna A5...estão em colunas diferentes, gostaria de apresentar apenas estas colunas no listbox...
Primeiramente gostaria de agradecer pela clareza na forma de passar conteúdo. Uma dúvida. Fiz o código na meu projeto e está depurando erro na linha do formatnumber. Pode me ajudar? E não visualizei o código para limpar a listbox.
Olá Valdenir Eu consigo referenciar ao RowSource sem necessariamente apontar para o nome da planilha? Ou seja, Pois gostaria de conhecer uma forma que referenciasse ao codeNome da planila "O nome vba da planilha" isse é possivel? Grato, Marcelo Adriano
Boa tarde. Três formas de referenciar a planilha. 1 - Pelo CodName: Plan2.Activate 2 - Pelo nome da Planilha: Sheets("janeiro").Activate 3 - Pelo índice da panilha: Sheets(5).Activate Qualquer dúvida estou à disposição. Laudemir
Boa Noite Atual Excel Eu usei evento initialize,quando abrir userform ele carrega listbox,mas esta dando um erro: Erro em Tempo de execução 70,permissão negada.E verificando o código essa falha esta acontecendo com coluna ,onde esta sequencia 1,2,3,quando eu apago ele abre userform. o código esta logo abaixo: Private Sub UserForm_Initialize() Dim linhafinal As Integer Dim x As Integer Dim linha As Integer linhafinal = Planilha1.Cells(Rows.Count, 1).End(xlUp).Row x = 0 For linha = 2 To linhafinal ListBox1.AddItem Cells(2, 1) ListBox1.List(x, 1) = Cells(linha, 2).Value ListBox1.List(x, 2) = Cells(linha, 3).Value ListBox1.List(x, 3) = Cells(linha, 4).Value Next End Sub Tem como me ajudar Resolver esse erro. Att: Elso
boa tarde A forma de inserir os dados está incorreta. Use um incremento para a variável x. o valor de x está sempre em zero e irá sobrepor os dados. As linhas e as colunas da listbox iniciam sempre em zero. With ListBox1 .AddItem .List(x, 0) = Cells(linha, 2).Value .List(x, 1) = Cells(linha, 3).Value .List(x, 2) = Cells(linha, 4).Value End With
Excelente aula. Mas se o critério procurado for um número: código, data ou ano, como devemos fazer? ActiveSheet.Range("$A$1:$U$2197").AutoFilter Field:=1, Criteria1:="=*" & Me.txt_codigo.Value & "*" ActiveSheet.Range("$A$1:$U$2197").AutoFilter Field:=2, Criteria1:="=*" & Me.txt_data.Value & "*" ActiveSheet.Range("$A$1:$U$2197").AutoFilter Field:=3, Criteria1:="=*" & Me.txt_Registro.Value & "*, ListView1.ListItems.Clear Sheets("Combinações").Select lin = 2
Do Until Sheets("Combinações").Cells(lin, 1) = "" If Cells(lin, 1).Rows.Hidden = False Then
Set li = ListView1.ListItems.Add(Text:=Sheets("Controle").Cells(lin, 1).Value) 'codigo li.ListSubItems.Add Text:=Sheets("Controle").Cells(lin, 2).Value 'data li.ListSubItems.Add Text:=Sheets("Controle").Cells(lin, 3).Value 'Registro End If lin = lin + 1 Loop End Sub (Boa tarde quando realizo a consulta ele retorna vazio pós trabalho com números e data, vc pode me dar uma luz...Desde já agradeço).
gostaria de compartilhar uma quarta opção: Private Sub UserForm_Initialize() Dim arrayItems() With Plan1 ReDim arrayItems(4 To .UsedRange.Rows.Count, 2 To .UsedRange.Columns.Count) Me.ListBox1.ColumnCount = .UsedRange.Columns.Count For linha = 4 To .UsedRange.Rows.Count Me.ListBox1.AddItem For coluna = 2 To .UsedRange.Columns.Count arrayItems(linha, coluna) = .Cells(linha, coluna).Value Next coluna Next linha Me.ListBox1.List = arrayItems() End With neste vc pode trabalhar com mais de dez colunas na listbox. sem ter que determinar a largura das colunas mais ou menos como no lisview apenas em columncout vc determina qt colunas.
Bom dia meu amigo....gostei muito da video aula...
Tenho uma planilha com 120 colunas, preciso apresentar a direção da empresa o valor de venda de cada vendedor, de acordo com o mês .....criei 5 combobox , um para cada vendedor , 5 combobox para Mês, 5 textbox para mostrar total de vendas por vendedor, desta forma a diretoria pode escolher o mesmo vendedor em cada combobox e meses diferentes em cada combobox, mostrando o valor total de vendas em cada textbox, do vendedor, ou um vendedor em cada combobox e o mesmo mês em cada combobox, mostrando quanto cada vendedor vendeu....em cada textbox .....gostaria de sua ajuda .... pretendo usar seu exemplo.....posso enviar meu vba pronto para vc verificar....assim fica mais fácil para vc entender....ou se puder enviar algo...detalhe....as colunas vendedor coluna V5, valor de vendas coluna W5, data de contrato coluna F6 (referente ao mes de vendas), nome cliente coluna A5...estão em colunas diferentes, gostaria de apresentar apenas estas colunas no listbox...
Obrigada, me ajudou muito!!!!!
Professor não tem como formatar os valores na listbox para ficarem alinhados à direita?
Primeiramente gostaria de agradecer pela clareza na forma de passar conteúdo.
Uma dúvida. Fiz o código na meu projeto e está depurando erro na linha do formatnumber. Pode me ajudar? E não visualizei o código para limpar a listbox.
Para limpar consegui: ListBox1.Clear !!!
Excelente vídeo, Isso ajudou muito. Possível fazer um tutorial com o 'treeview "? Muito obrigado !
Boa Noite Excel
na caso se quiser salvar os dados nos campo no formulário e também na planilha,com botão cadastrar,deletar.
tem como ensinar trabalhar com matrix na listbox
Muito bom.
Olá Valdenir
Eu consigo referenciar ao RowSource sem necessariamente apontar para o nome da planilha? Ou seja, Pois gostaria de conhecer uma forma que referenciasse ao codeNome da planila "O nome vba da planilha" isse é possivel?
Grato,
Marcelo Adriano
Boa tarde. Três formas de referenciar a planilha.
1 - Pelo CodName: Plan2.Activate
2 - Pelo nome da Planilha: Sheets("janeiro").Activate
3 - Pelo índice da panilha: Sheets(5).Activate
Qualquer dúvida estou à disposição.
Laudemir
Boa Noite Atual Excel
Eu usei evento initialize,quando abrir userform ele carrega listbox,mas esta dando um erro:
Erro em Tempo de execução 70,permissão negada.E verificando o código essa falha esta acontecendo com coluna ,onde esta sequencia 1,2,3,quando eu apago ele abre userform.
o código esta logo abaixo:
Private Sub UserForm_Initialize()
Dim linhafinal As Integer
Dim x As Integer
Dim linha As Integer
linhafinal = Planilha1.Cells(Rows.Count, 1).End(xlUp).Row
x = 0
For linha = 2 To linhafinal
ListBox1.AddItem Cells(2, 1)
ListBox1.List(x, 1) = Cells(linha, 2).Value
ListBox1.List(x, 2) = Cells(linha, 3).Value
ListBox1.List(x, 3) = Cells(linha, 4).Value
Next
End Sub
Tem como me ajudar Resolver esse erro.
Att:
Elso
boa tarde
A forma de inserir os dados está incorreta. Use um incremento para a variável x. o valor de x está sempre em zero e irá sobrepor os dados.
As linhas e as colunas da listbox iniciam sempre em zero.
With ListBox1
.AddItem
.List(x, 0) = Cells(linha, 2).Value
.List(x, 1) = Cells(linha, 3).Value
.List(x, 2) = Cells(linha, 4).Value
End With
Excelente aula. Mas se o critério procurado for um número: código, data ou ano, como devemos fazer?
ActiveSheet.Range("$A$1:$U$2197").AutoFilter Field:=1, Criteria1:="=*" & Me.txt_codigo.Value & "*"
ActiveSheet.Range("$A$1:$U$2197").AutoFilter Field:=2, Criteria1:="=*" & Me.txt_data.Value & "*"
ActiveSheet.Range("$A$1:$U$2197").AutoFilter Field:=3, Criteria1:="=*" & Me.txt_Registro.Value & "*,
ListView1.ListItems.Clear
Sheets("Combinações").Select
lin = 2
Do Until Sheets("Combinações").Cells(lin, 1) = ""
If Cells(lin, 1).Rows.Hidden = False Then
Set li = ListView1.ListItems.Add(Text:=Sheets("Controle").Cells(lin, 1).Value) 'codigo
li.ListSubItems.Add Text:=Sheets("Controle").Cells(lin, 2).Value 'data
li.ListSubItems.Add Text:=Sheets("Controle").Cells(lin, 3).Value 'Registro
End If
lin = lin + 1
Loop
End Sub (Boa tarde quando realizo a consulta ele retorna vazio pós trabalho com números e data, vc pode me dar uma luz...Desde já agradeço).
gostaria de compartilhar uma quarta opção:
Private Sub UserForm_Initialize()
Dim arrayItems()
With Plan1
ReDim arrayItems(4 To .UsedRange.Rows.Count, 2 To .UsedRange.Columns.Count)
Me.ListBox1.ColumnCount = .UsedRange.Columns.Count
For linha = 4 To .UsedRange.Rows.Count
Me.ListBox1.AddItem
For coluna = 2 To .UsedRange.Columns.Count
arrayItems(linha, coluna) = .Cells(linha, coluna).Value
Next coluna
Next linha
Me.ListBox1.List = arrayItems()
End With
neste vc pode trabalhar com mais de dez colunas na listbox. sem ter que determinar a largura das colunas mais ou menos como no lisview apenas em columncout vc determina qt colunas.
Ótimo. Obrigado pela dica.
Laudemir
Tem como disponibilizar esse projeto pra estudo ?
+someone bass
Olá. Link para download
drive.google.com/file/d/0BySfeM8SDYpTWlhCZEdhRU10czQ/view?usp=sharing
Esta faltando a Form com Carregar Dados; Limpar ListBox e Fechar, é possível disponibilizar essa planilha?Obrigado
Que vídeo ruim, não resolveu nada do meu problema...
Ajudou a muitos. Se vc precisa de um vídeo personalizado para o seu problema, me envie.
faz um melhor ae! kkkkk