Cinco dicas que foram muito úteis para mim: 1) Quando não sei fazer algo no VBA, vou ao menu EXIBIÇÃO >> MACROS >> GRAVAR MACRO Faço o qu...

Private Sub cmdadc_Click() Dim rang As Range Dim DLin As Long DLin = Range("B1").End(xlDown).Row Set rang = Range("B"...

Existe a função DATAM. No VBA, é EDATE. Option Explicit Sub TESTE() Dim LINHA As Long LINHA = 1 While Plan1.Range("A" & LINHA)...

Sub Macro2() ' ' Macro2 Macro ' ' Range("G1").Select Selection.NumberFormat = "@" End Sub

Primeira Versão Option Explicit Sub teste() Dim linha As Long Dim linhas As Long linhas = Range("A1").End(xlDown).Row For l...

Mensagem apagada pelo usuário

Creio que você pode usar algo parecido com o código abaixo: sub chamartodasasmacros ( ) Application.DisplayAlerts = False call macro1 call mac...

Só se você fizer deste jeito: https://www.youtube.com/watch?v=PFTMCXvIfro&t=161s Qualquer dúvida a mais que você tiver, garimpe n...

Anexo

Troque Name Por CodeName Option Explicit Sub teste() MsgBox ActiveSheet.CodeName End Sub

Para passar a data, criei o botão selecionar data. Veja o arquivo anexo:

https://www.youtube.com/results?search_query=excel+vba+filtro

Sub insertrows() 'Duplica "x" vezes cada uma das linhas na tabela Dim I As Long Dim xCount As Integer LableNumber: xCount ...

Option Explicit Sub teste() Dim linha As Long Dim linha2 As Long Dim achou As Boolean achou = False Dim DLin As Long DLin = Plan1.Range("...

Option Explicit Sub teste() Dim linha As Long Dim linha2 As Long linha = 1 While Plan1.Range("A" & linha).Value <>...