Precisava de outra coisa, que abaixo da data aparecesse o nome do item, como faria isso ? Experimente: Private Sub Worksheet_Change(ByVal Target As ...

O que é uma "planilha muito grande" ? Quantas linhas com dados na coluna 'A' ? Como você sabe que "vai travar" ? Já testou ?

Ola Osvaldo! Cara a soma ta correta, mas os valores obtidos da soma precisam se repetir em cada linha do produto. Substitua esta linha Cells(x + k ...

Olá, Leandro. Veja se este código atende. Sub SomaProduto() Dim x As Long, k As Long For x = 2 To Cells(Rows.Count, 1).End(xlUp).R...

Veja se ajuda. Sub Oculdiver() If Range("C" & [C8]).Value = 1 Then Rows([D8] & ":" &...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$H$4" Then [K...

Se entendi corretamente você quer que após inserir um registro na planilha "BASE" esse registro seja replicado em outra(s) planilha(s) de ac...

Não deu certo. Não deu certo o que? O que exatamente você fez? O exemplo que coloquei foi para demonstrar que é possível efetuar alterações em uma p...

Experimente Sub MinhaMacroV2() With Sheets("Plan1") .Range("A1").Value = "jacaré" .Range("B2&...

O que eu precisaria na verdade e que se tivesse qualquer qualquer alteração nas colunas "A:I" ele me atualizasse a data e hora nas colunas &...

Experimente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$I$3"...

xxxxxxxxAxxxxxxxxxxxxxxxxxxxB 1xxxxxJoséxxxxxxxxxxxxxxxxxx1 2xxxxxMariaxxxxxxxxxxxxxxxxx3 3xxxxxUóchitoxxxxxxxxxxxxxxx2 4xxxxxWanderkleyssonxxxxxxx2 5...

Meu problema é que a cada nome o usuário é perguntado se deseja imprimir. Talvez eu esteja reinventando a roda, mas não queria escrever duas rotinas ...

Marcelo, veja se ajuda. Sub imprimir() Dim a As Long For a = 1 To 200 If a Mod 50 = 0 Then If MsgBox("Deseja Imprimir o documento"...

Experimente Sub OrganizaDados() Dim N As Long, k As Long, c As Long, x As Long, m As Long, LR As Long For N = 2 To Cells(Rows.Count, 2)....