Tente retirar o resize e faça todas as colunas da forma abaixo, apenas mudando o número e o nome da coluna: .Range(1, 4) = varDados(Linha_ID, Co...

Não entendi sua planilha, mas tente fazer algo parecido com isto: 'Option Explicit Sub AtivDiarias_ItemCadastrado_Inserir() Dim Ta...

If Arquivo.Name = Celula.value Then

Private Sub CommandButton1_Click() Dim linhaEntrada As Long Dim linhaHistorico As Long inicio: linhaEntrada = 3 While P...

@alexaripuana Alt F11 Inserir módulo Cole o código Aperte F5

Este vídeo ensina a fazer:

Fiz um teste alterando o banco do Mario e não ocorreu nenhum erro. É necessário que cada registro possua um código de identificação único. ...

@mineiro rolar-pagina-ao-clicar-em-hyperlink.xlsm

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) If Target.Name = "Toyota 1" Then Planilha2.Activate ActiveWindow.ScrollR...

Sub imprimir30paginas() Dim i As Integer Dim dt As Date dt = CDate(Planilha1.[d1]) For i = 1 To 30 Planilha1.Range("A1:D21").PrintO...

@cimerio

Sub verificaCnpjNovo2() 'pega os valores de cnpj na coluna J e percorre a coluna B pra ver se eles estão constando lá For n = 2 To 180 If W...

Basta tirar as aspas dos números. Quanto à data invertida, assista a este vídeo:

@gu250 Marque como resolvido ou diga o que falta.