Da mesma forma que elogie a aula do Guru, faço o mesmo para você! Magnifica Aula e Belo Raciocínio Trovado! Só sabia que em quatro em quatro anos temos o ano bissexto e para sabermos se uma determinada data é ano bissexto - teria que dividir o referido ano por 4. As outras situações demostradas não sabia. Que bom! Alessandro Trovato, é Excel! Mais também é CULTURA.....:-) Grato, Marcelo Adriano Contagem/ MG em 29/02/2016
Olá +Marcelo Adriano ! Muito obrigado pela sua mensagem. A aula brilhante veio do Guru com a ideia de explicar as 10 formas diferentes de fazer essa validação. Conversando com ele resolvi fazer o mesmo utilizando o VBA. É sensacional o quanto podemos aplicar em nosso dia a dia esses conceitos. Grato por acompanhar os trabalhos! Aproveito e convido você a se inscrever em meu canal de vídeos e também participar do II Congresso Nacional de Excel - ConaExcel 2016. Vou ser um dos palestrantes. O congresso será online e totalmente gratuito e vou falar sobre esse tema: Conectando planilhas com o ACCESS via VBA. Inscreva-se e garanta a sua vaga: www.conaexcel.com.br
Quando o juízo esquenta, procuro descontrair vendo matérias fora do foco do meu grupo de estudos. Vocês postam cada coisa que esclarecem as curiosidades, mas que todas servem de legado para quem as aprende. Hoje baixei o dicionário do Guru, saber o significado das palavras é importantíssimo. OBRIGADO PROFESSOR.
+Jair dos Passos Ayres Muito grato pela mensagem !!! É assim mesmo. Gostamos de trabalhar com tópicos que instiguem pesquisa e curiosidade. A ideia foi do Guru e fiz a minha parte em VBA. É incrível como podemos fazer as coisas de várias formas diferentes. O Guru vai gostar do comentário também. Vou enviar uma cópia para ele. Abraços e muito obrigado mais uma vez por acompanhar os trabalhos!
show de aula Alessandro ..tiro a dúvida que eu estava a função fim mês no VBA .. pra mim foi muito útil .. .. assisti a aula do guru tbem muito boa tbem .. outro fera .. obrigado e até próxima ..
Grato pela mensagem +Raul Melo ! Excelente as explicações do Guru... sou fã dele e dos vídeos que ele posta... Combinamos e gravei a aula no formato do VBA... ficou muito bacana o resultado final. Obrigado por acompanhar os trabalhos!
+Alessandro Trovato Estou tentando assistir sua palestra no cona excel mais não foi enviado nenhum link ..e não estou achando nenhum link que direciona ao cona ..
Muito obrigado pela mensagem e pelo feedback +eu ! Bons estudos e convido você a conhecer as outras aulas que tenho de Excel no RUclips. Tenho mais de 260 aulas atualmente publicadas.Excel Básico: ruclips.net/p/PL7iAT8C5wumoOJ135_2lqQfDhCxkkJvDH Funções Excel: ruclips.net/p/PL7iAT8C5wumqX-bUoZn4dgr2dld1KuBTc Desafios Excel: ruclips.net/p/PL7iAT8C5wumpvdXOLLlRZ3t7SUBiqwNU_ Macros e VBA: ruclips.net/p/PL7iAT8C5wumpfsfVzZRRVfpTS17d6sykT
Sem duvida essa FormulaR1C1 é excelente não tinha percebido bem a função dela, mas temntei fazer uma soma normal e tive de rever muita coisa cheguei lá W.Range("A10").FormulaR1C1 = "=SUM(R[-9]C1:R[-1]C1)" , mas mestre é mestre e só tenho a agradecer grande abraço
Excelente aula como sempre. Sabia que para ser bissexto tinha de dividir por 4. Desconhecia que a cada 100 anos, não é um ano bissexto. Tentei ver no excel e no windows e diz que 29 de Fevereiro de 2116 é um sábado.
Boa noite! E fiz um desafio para mim mesma. Eu fui ordenando em uma linha só dados que contem data, codigo e uma seguencia de numeros. Primeiro eu testei com dados pequenos do tipo que vai de da coluna A1 ate G22. Deu tudo certo. pois quando copiei o codigo e colei na outra planilha com dados maiores que vão de A1 ate G3650, o excel trava. Eu esperei o excel destravar sozinho mesmo assim foi executado ate no final. Por que isso acontece? Esse é o codigo. Onde eu poderia melhorar para não travar ? Private Sub CommandButton2_Click()
Application.ScreenUpdating = False Dim w, w1 As Worksheet Dim ultcel As Range 'selecionando planilha e a posição do cursor Set w1 = Sheets("Planilha2") w1.Select 'Apagando os dados na coluna que será colado os itens w1.Range("A:Q").ClearContents w1.Range("M1").Select
Set w = Sheets("Planilha1") w.Select w.Range("A1").Select Range(w.Cells(ActiveCell.Row, 1), w.Cells(ActiveCell.Row, 3)).Select Application.CutCopyMode = False Selection.Copy ActiveSheet.Next.Select w1.Range("A1").Select ActiveSheet.Paste w1.Range("M1").Select ActiveSheet.Previous.Select 'Faz a copia enquanto for diferente de vazio While ActiveCell.Value "" 'ultcel.Row 'se a celula ativa é diferente de vazio copia e cola If ActiveCell "" Then Do While ActiveCell.Value "" 'ultcel.Row 'se a celula ativa é diferente de vazio copia e cola If ActiveCell "" Then ActiveCell.Offset(1, 0).Select Range(w.Cells(ActiveCell.Row, 1), w.Cells(ActiveCell.Row, 2)).Select Application.CutCopyMode = False Selection.Copy ActiveSheet.Next.Select ActiveCell.Offset(1, -12).Select ActiveSheet.Paste ActiveSheet.Previous.Select ActiveCell.Offset(0, 2).Select Range(w.Cells(ActiveCell.Row, 3), w.Cells(ActiveCell.Row, 7)).Select Selection.Copy ActiveSheet.Next.Select ActiveCell.Offset(0, 2).Select ActiveSheet.Paste ActiveSheet.Previous.Select ActiveCell.Offset(1, 0).Select Range(w.Cells(ActiveCell.Row, 3), w.Cells(ActiveCell.Row, 7)).Select Selection.Copy ActiveSheet.Next.Select ActiveCell.Offset(0, 5).Select ActiveSheet.Paste ActiveSheet.Previous.Select ActiveCell.Offset(1, 0).Select Range(w.Cells(ActiveCell.Row, 3), w.Cells(ActiveCell.Row, 7)).Select Selection.Copy ActiveSheet.Next.Select ActiveCell.Offset(0, 5).Select ActiveSheet.Paste ActiveSheet.Previous.Select End If ActiveCell.Offset(0, 5).Select
Loop
End If ActiveCell.Offset(0, -7).Select Wend Application.ScreenUpdating = True MsgBox "Processo concluído" End Sub
![Noob To Max With DRAGON REWORK In Blox Fruits [FULL MOVIE]](http://i.ytimg.com/vi/LnBMOinoOvA/mqdefault.jpg)
Da mesma forma que elogie a aula do Guru, faço o mesmo para você!
Magnifica Aula e Belo Raciocínio Trovado!
Só sabia que em quatro em quatro anos temos o ano bissexto e para sabermos se uma determinada data é ano bissexto - teria que dividir o referido ano por 4. As outras situações demostradas não sabia.
Que bom!
Alessandro Trovato, é Excel! Mais também é CULTURA.....:-)
Grato,
Marcelo Adriano
Contagem/ MG em 29/02/2016
Olá +Marcelo Adriano ! Muito obrigado pela sua mensagem. A aula brilhante veio do Guru com a ideia de explicar as 10 formas diferentes de fazer essa validação. Conversando com ele resolvi fazer o mesmo utilizando o VBA. É sensacional o quanto podemos aplicar em nosso dia a dia esses conceitos. Grato por acompanhar os trabalhos!
Aproveito e convido você a se inscrever em meu canal de vídeos e também participar do II Congresso Nacional de Excel - ConaExcel 2016. Vou ser um dos palestrantes. O congresso será online e totalmente gratuito e vou falar sobre esse tema: Conectando planilhas com o ACCESS via VBA.
Inscreva-se e garanta a sua vaga: www.conaexcel.com.br
Quando o juízo esquenta, procuro descontrair vendo matérias fora do foco do meu grupo de estudos. Vocês postam cada coisa que esclarecem as curiosidades, mas que todas servem de legado para quem as aprende. Hoje baixei o dicionário do Guru, saber o significado das palavras é importantíssimo. OBRIGADO PROFESSOR.
+Jair dos Passos Ayres Muito grato pela mensagem !!! É assim mesmo. Gostamos de trabalhar com tópicos que instiguem pesquisa e curiosidade. A ideia foi do Guru e fiz a minha parte em VBA. É incrível como podemos fazer as coisas de várias formas diferentes. O Guru vai gostar do comentário também. Vou enviar uma cópia para ele.
Abraços e muito obrigado mais uma vez por acompanhar os trabalhos!
show de aula Alessandro ..tiro a dúvida que eu estava a função fim mês no VBA .. pra mim foi muito útil .. .. assisti a aula do guru tbem muito boa tbem .. outro fera .. obrigado e até próxima ..
Grato pela mensagem +Raul Melo ! Excelente as explicações do Guru... sou fã dele e dos vídeos que ele posta... Combinamos e gravei a aula no formato do VBA... ficou muito bacana o resultado final. Obrigado por acompanhar os trabalhos!
+Alessandro Trovato Estou tentando assistir sua palestra no cona excel mais não foi enviado nenhum link ..e não estou achando nenhum link que direciona ao cona ..
Raul Melo conaexcel.com.br/tv-15h00/
+Alessandro Trovato muito obrigado Alessandro. .. o link estava no spam consegui ver sua palestra .. excelente palestra .. muito boa mesmo .. PARABÉNS
Alessando, muito obrigado pelas aulas! São geniais!
Muito obrigado pela mensagem e pelo feedback +eu !
Bons estudos e convido você a conhecer as outras aulas que tenho de Excel no RUclips. Tenho mais de 260 aulas atualmente publicadas.Excel Básico: ruclips.net/p/PL7iAT8C5wumoOJ135_2lqQfDhCxkkJvDH
Funções Excel: ruclips.net/p/PL7iAT8C5wumqX-bUoZn4dgr2dld1KuBTc
Desafios Excel: ruclips.net/p/PL7iAT8C5wumpvdXOLLlRZ3t7SUBiqwNU_
Macros e VBA: ruclips.net/p/PL7iAT8C5wumpfsfVzZRRVfpTS17d6sykT
Sem duvida essa FormulaR1C1 é excelente não tinha percebido bem a função dela, mas temntei fazer uma soma normal e tive de rever muita coisa cheguei lá W.Range("A10").FormulaR1C1 = "=SUM(R[-9]C1:R[-1]C1)" , mas mestre é mestre e só tenho a agradecer grande abraço
Show de Bola
Olá +Paulo Tarso ! Grato pela mensagem. Fico feliz que tenha gostado da solução...
Excelente aula como sempre.
Sabia que para ser bissexto tinha de dividir por 4.
Desconhecia que a cada 100 anos, não é um ano bissexto. Tentei ver no excel e no windows e diz que 29 de Fevereiro de 2116 é um sábado.
Eu também desconhecia outros métodos +José Alberto Novais Machado de calcular um ano bissexto. Aprendi com o Guru do Excel no vídeo dele. Sensacional!
#maisum
Boa noite! E fiz um desafio para mim mesma. Eu fui ordenando em uma linha só dados que contem data, codigo e uma seguencia de numeros.
Primeiro eu testei com dados pequenos do tipo que vai de da coluna A1 ate G22. Deu tudo certo. pois quando copiei o codigo e colei na outra planilha com dados maiores que vão de A1 ate G3650, o excel trava. Eu esperei o excel destravar sozinho mesmo assim foi executado ate no final. Por que isso acontece?
Esse é o codigo. Onde eu poderia melhorar para não travar ?
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim w, w1 As Worksheet
Dim ultcel As Range
'selecionando planilha e a posição do cursor
Set w1 = Sheets("Planilha2")
w1.Select
'Apagando os dados na coluna que será colado os itens
w1.Range("A:Q").ClearContents
w1.Range("M1").Select
Set w = Sheets("Planilha1")
w.Select
w.Range("A1").Select
Range(w.Cells(ActiveCell.Row, 1), w.Cells(ActiveCell.Row, 3)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Next.Select
w1.Range("A1").Select
ActiveSheet.Paste
w1.Range("M1").Select
ActiveSheet.Previous.Select
'Faz a copia enquanto for diferente de vazio
While ActiveCell.Value "" 'ultcel.Row
'se a celula ativa é diferente de vazio copia e cola
If ActiveCell "" Then
Do While ActiveCell.Value "" 'ultcel.Row
'se a celula ativa é diferente de vazio copia e cola
If ActiveCell "" Then
ActiveCell.Offset(1, 0).Select
Range(w.Cells(ActiveCell.Row, 1), w.Cells(ActiveCell.Row, 2)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Next.Select
ActiveCell.Offset(1, -12).Select
ActiveSheet.Paste
ActiveSheet.Previous.Select
ActiveCell.Offset(0, 2).Select
Range(w.Cells(ActiveCell.Row, 3), w.Cells(ActiveCell.Row, 7)).Select
Selection.Copy
ActiveSheet.Next.Select
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveSheet.Previous.Select
ActiveCell.Offset(1, 0).Select
Range(w.Cells(ActiveCell.Row, 3), w.Cells(ActiveCell.Row, 7)).Select
Selection.Copy
ActiveSheet.Next.Select
ActiveCell.Offset(0, 5).Select
ActiveSheet.Paste
ActiveSheet.Previous.Select
ActiveCell.Offset(1, 0).Select
Range(w.Cells(ActiveCell.Row, 3), w.Cells(ActiveCell.Row, 7)).Select
Selection.Copy
ActiveSheet.Next.Select
ActiveCell.Offset(0, 5).Select
ActiveSheet.Paste
ActiveSheet.Previous.Select
End If
ActiveCell.Offset(0, 5).Select
Loop
End If
ActiveCell.Offset(0, -7).Select
Wend
Application.ScreenUpdating = True
MsgBox "Processo concluído"
End Sub