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&...

Algo parecido com isto, não manjo de Word. 'Set doc = appWord.Documents.Open("C:Tema.doc") Set doc = ThisDocument ...

Quando cliquei no botão copiar para abas, não deu erro. Você fez alguma alteração no arquivo? Em caso positivo, anexo como está agora.

Sub teste() Dim caminho As String caminho = Application.GetOpenFilename MsgBox caminho End Sub No código acima, vai ser aberta uma janela para v...