Saberexcel - o Site das Macros
 Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), copia dados de determinado intervalo de células para o Aplicativo Word.
Private Sub CommandButton1_Click()
Dim MSWord As Object
Worksheets("Plan1").Range("A1:B3").Copy
Set MSWord = CreateObject("Word.Application") MSWord.Visible = True MSWord.ScreenUpdating = True
With MSWord
With .Documents.Add .Range.Paste End With
.WindowState = wdWindowStateMaximize End With
End Sub
 Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Publicidade Compre com segurança, garantia e ótimos preços
 |