-----

Não paga nada para anexar arquivo. Quando postar código neste fórum, aperte o botão Code. Talvez também seja necessário mudar esta linha: linhavaz...

Anexo

-----

Option Explicit Sub ReplicaDados() Dim QUADRO As Range Set QUADRO = Plan1.Range("C12:L16") QUADRO.Cells.ClearContents...

Anexos

Estude laço de repetição: https://www.youtube.com/results?search_query=vba+la%C3%A7o+de+repeti%C3%A7%C3%A3o Estude como copiar dados ...

Edite o título do seu tópico e deixe apenas Copiar, localizar e colar. Isso facilita na busca para outras pessoas. Quando quiser anexar imagem, uma po...

Não entendi. Dê exemplo.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim linha As Long linha = Target.Row Dim linha2 As Long li...

................

Sub teste ( ) 'Set doc = appWord.Documents.Open("C:Tema.doc") Set doc = ThisDocument For i = doc.Paragraphs....

Sub teste() Dim X As Integer For X = 16 To 501 If Cells(X, 14) = 0 Then Cells(X, 15).Value = 0 Else Range("O" & X).Value = Wo...

Sub teste() Range("O16").Value = WorksheetFunction.SumIf(Range("N16:N501"), ">=N16", Range("N16&...