Alessandro, suas aulas são simplesmente fantásticas, cara se um dia eu for ai na sua cidade vou te conhecer pessoalmente, vc é um cara espetacular, seus conhecimentos estão ajudando milhares de brasileiros que como eu tem o objetivo de se qualificar e não pode fazer um curso presencial.
Olá Carlos! Me avise quando estiver aqui pelo centro de Sampa City! Muito obrigado pela sua mensagem e pelo feedback. Fico muito feliz que as aulas estejam te ajudando! É muito gratificante receber mensagens como a sua ! Você é de onde? Bons estudos e sucesso para você meu amigo!
Eu é que agradeço pelas mensagens e por acompanhar os trabalhos Luiz! Se ainda não é um inscrito(a), convido você a se inscrever em meu canal de vídeos! Espero que os mais de 430 vídeos tutorias que possuo atualmente (só de Excel são mais de 180!) possam lhe ajudar. Bons estudos e sucesso!
Mestre Trovato ! Mas é claro que estou inscrito. Só não estou tão participativo...mas vou participar mais com comentários. Estou divulgando o máximo que posso o seu canal. Te acompanho no youtube, linkedin, Twiiter, face.... abraços
Oi, suas aulas são fantásticas. Preciso da sua ajuda: tenho uma Planilha MATERIAIS ALMOFADA APLIQUE BOTAO
ALMOFADA BABADO TRICO BRANCO APLIQUE COURO AUTOCOLANTE PRETO BOTAO CROCHE AMARELO BIJUTERIA CURVIM Quando incluo um Grupo para o Material, via formulário, tenho que classificar a respectiva coluna. Não sei como montar o Range dinâmico ou se teria outra maneira de fazer. Poderia me ajudar.
Grande Trovato. Utilizei este código sem sucesso na tentativa de classificar as colunas de forma descendente após o segundo clique: If Target.Address Sheets("Parâmetros").Range("B3").Value Then W.Range("A6").CurrentRegion.Select W.Sort.SortFields.Clear W.Sort.SortFields.Add Key:=vCol, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With W.Sort .SetRange vRNG .Header = xlNo .MatchCase = False 'Para coincidir maiusclas e minusculas, estamos descartando isso .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Target.Select Application.EnableEvents = True Else W.Range("A6").CurrentRegion.Select W.Sort.SortFields.Clear W.Sort.SortFields.Add Key:=vCol, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With W.Sort .SetRange vRNG .Header = xlNo .MatchCase = False 'Para coincidir maiusclas e minusculas, estamos descartando isso .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Target.Select Application.EnableEvents = True End If Veja que na lógica se o valor do target corresponde a um mesmo valor na célula B3 da guia parametros, ele deveria classificar de forma descendente. Porém isso não ocorre pois o evento selection change não interpreta um segundo clique numa mesma célula como uma mudança na sheet. Como resolveríamos esse caso? Grande abraço.
Olá Giuliko. Nesse caso, a não ser que você clique na célula B3 da planilha Parâmetros o Else nunca vai ser executado. Reserve outra célula na Planilha parâmetros e grave nela o valor do último parâmetro classificado (xlDescending ou xlAscending) Armazene esse conteúdo em uma variável e troque na execução da rotina para sempre alterar, regravando o valor da nova célula com o parâmetro atual. Assim quando classificar em ordem crescente ele gravará esse parâmetro. Antes de classificar você chega se o valor for XlAscending troque para xlDescending e grave na célula)... Bons estudos!
Grande Trovato!, o meu muitíssimo obrigado pela suas excelentes aulas. Só tenho um questionamento a fazer sobre esse código como você captura a target.address o endereço da célula, a condição if nunca estará vazia, fiz alguns testes deixando a condição como vazia e variável vcol da erro. Em resumo nem é preciso fazer o if, pois a vcol só estará vazia se eu depurar o código e propositalmente apagar o parâmetro!, e mesmo assim dará erro, já que Range(ActiveCell.Offset(1, 0), ActiveCell.End(xlDown)) não faz efetivamente nada!...
Olá Souza! Muito obrigado pela sua contribuição. Há sempre melhorias para códigos. Nas aulas tentei criar situações mais didáticas possível para o bom entendimento da rotina. Grato mais uma vez por acompanhar os trabalhos! Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 540 vídeos tutorias que possuo atualmente (só de Excel são mais de 260!) possam lhe ajudar. Bons estudos e sucesso!
Oi mestre. olha nós "aquitraveis" Pode me dar uma luz? Estou fazendo um projetinho no VBA e coloquei umas imagens no [IMAGE] do meu formulário... ta funcionando tranquilo e mudando as imagens conforme as especificações. O Arquivo e as imagens estão no meu C:/ porém preciso colocar em outro diretório (exemplo: D:/TESTE/PROJETO). Sei que no canal ja tem uma vídeo aula que cita o CAMINHO VARIAVEL, mas não localizei... sabe aquele que verifica onde o arquivo está salvo e usa como variável para "caminho". me da uma luz mestre, grande abraço.
Olá Daniel. O comando que mostra o caminho da planilha é activeworkbook.path De cabeça eu não lembro qual a aula que tem essa informação. Já são mais de 114 aulas de VBA e é impossível lembrar de todas! Abraços.
Video muito bom obrigado por compartilhar teus conhecimentos
Muito obrigado Charles pelo feedback! Fico feliz que tenha gostado! Bons estudos!
Muito Bom!! A cada dia aprendo mais com esse projeto!!!
Olá Wallace! Grato pela mensagem. Fico feliz que esteja aprendendo técnicas com o projeto. Ele vai ficar bem legal quando completo! Bons estudos!
Alessandro, suas aulas são simplesmente fantásticas, cara se um dia eu for ai na sua cidade vou te conhecer pessoalmente, vc é um cara espetacular, seus conhecimentos estão ajudando milhares de brasileiros que como eu tem o objetivo de se qualificar e não pode fazer um curso presencial.
Olá Carlos! Me avise quando estiver aqui pelo centro de Sampa City! Muito obrigado pela sua mensagem e pelo feedback. Fico muito feliz que as aulas estejam te ajudando! É muito gratificante receber mensagens como a sua !
Você é de onde?
Bons estudos e sucesso para você meu amigo!
Mais uma vez, muito obrigado Trovato !!!
Eu é que agradeço pelas mensagens e por acompanhar os trabalhos Luiz!
Se ainda não é um inscrito(a), convido você a se inscrever em meu canal de vídeos!
Espero que os mais de 430 vídeos tutorias que possuo atualmente (só de Excel são mais de 180!) possam lhe ajudar.
Bons estudos e sucesso!
Mestre Trovato !
Mas é claro que estou inscrito. Só não estou tão participativo...mas vou participar mais com comentários.
Estou divulgando o máximo que posso o seu canal.
Te acompanho no youtube, linkedin, Twiiter, face....
abraços
Muito obrigado por esse envolvimento com o trabalho Luiz! Fico muito grato!
Professor Trovato, ótima aula, mas fiquei com dúvidas do valor "13" na linha - Set UltCel = ActiveSheet.Cells(ActiveSheet.Rows.Count, 13).End(xlUp)?
Oi, suas aulas são fantásticas. Preciso da sua ajuda: tenho uma Planilha
MATERIAIS ALMOFADA APLIQUE BOTAO
ALMOFADA BABADO TRICO BRANCO
APLIQUE COURO AUTOCOLANTE PRETO
BOTAO CROCHE AMARELO
BIJUTERIA CURVIM
Quando incluo um Grupo para o Material, via formulário, tenho que classificar a respectiva coluna. Não sei como montar o Range dinâmico ou se teria outra maneira de fazer. Poderia me ajudar.
Grande Trovato. Utilizei este código sem sucesso na tentativa de classificar as colunas de forma descendente após o segundo clique:
If Target.Address Sheets("Parâmetros").Range("B3").Value Then
W.Range("A6").CurrentRegion.Select
W.Sort.SortFields.Clear
W.Sort.SortFields.Add Key:=vCol, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With W.Sort
.SetRange vRNG
.Header = xlNo
.MatchCase = False 'Para coincidir maiusclas e minusculas, estamos descartando isso
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Target.Select
Application.EnableEvents = True
Else
W.Range("A6").CurrentRegion.Select
W.Sort.SortFields.Clear
W.Sort.SortFields.Add Key:=vCol, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With W.Sort
.SetRange vRNG
.Header = xlNo
.MatchCase = False 'Para coincidir maiusclas e minusculas, estamos descartando isso
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Target.Select
Application.EnableEvents = True
End If
Veja que na lógica se o valor do target corresponde a um mesmo valor na célula B3 da guia parametros, ele deveria classificar de forma descendente. Porém isso não ocorre pois o evento selection change não interpreta um segundo clique numa mesma célula como uma mudança na sheet.
Como resolveríamos esse caso?
Grande abraço.
Olá Giuliko. Nesse caso, a não ser que você clique na célula B3 da planilha Parâmetros o Else nunca vai ser executado.
Reserve outra célula na Planilha parâmetros e grave nela o valor do último parâmetro classificado (xlDescending ou xlAscending)
Armazene esse conteúdo em uma variável e troque na execução da rotina para sempre alterar, regravando o valor da nova célula com o parâmetro atual.
Assim quando classificar em ordem crescente ele gravará esse parâmetro. Antes de classificar você chega se o valor for XlAscending troque para xlDescending e grave na célula)...
Bons estudos!
Grande Trovato!, o meu muitíssimo obrigado pela suas excelentes aulas. Só tenho um questionamento a fazer sobre esse código como você captura a target.address o endereço da célula, a condição if nunca estará vazia, fiz alguns testes deixando a condição como vazia e variável vcol da erro. Em resumo nem é preciso fazer o if, pois a vcol só estará vazia se eu depurar o código e propositalmente apagar o parâmetro!, e mesmo assim dará erro, já que Range(ActiveCell.Offset(1, 0), ActiveCell.End(xlDown)) não faz efetivamente nada!...
Olá Souza! Muito obrigado pela sua contribuição. Há sempre melhorias para códigos. Nas aulas tentei criar situações mais didáticas possível para o bom entendimento da rotina. Grato mais uma vez por acompanhar os trabalhos!
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 540 vídeos tutorias que possuo atualmente (só de Excel são mais de 260!) possam lhe ajudar.
Bons estudos e sucesso!
Oi mestre. olha nós "aquitraveis"
Pode me dar uma luz? Estou fazendo um projetinho no VBA e coloquei umas imagens no [IMAGE] do meu formulário... ta funcionando tranquilo e mudando as imagens conforme as especificações. O Arquivo e as imagens estão no meu C:/ porém preciso colocar em outro diretório (exemplo: D:/TESTE/PROJETO).
Sei que no canal ja tem uma vídeo aula que cita o CAMINHO VARIAVEL, mas não localizei... sabe aquele que verifica onde o arquivo está salvo e usa como variável para "caminho".
me da uma luz mestre, grande abraço.
Olá Daniel.
O comando que mostra o caminho da planilha é activeworkbook.path
De cabeça eu não lembro qual a aula que tem essa informação. Já são mais de 114 aulas de VBA e é impossível lembrar de todas! Abraços.
Obrigado mestre. Está ótimo e funcionou perfeitamente.