Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) , copia as medidas das colunas determinadas na folha de planilha(Plan2)
para a planilha planilha(Plan1).


Sub copiar_medida_colunas_para_outra_plan()
    Dim X As Byte
    Dim Y As Long
    Dim Z As Integer

Application.ScreenUpdating = 0

    For X = 1 To 12        'planilhas
       For Y = 1 To 20     'para 20 linhas
           For Z = 1 To 20 'para 20 colunas

                Plan1.Range("A" & Y).RowHeight = Plan2.Range("A" & Y).RowHeight
                Plan1.Columns(Z).ColumnWidth = Plan2.Columns(Z).ColumnWidth

            Next Z
        Next Y
    Next X

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



  Baixe o exemplo de planilha contendo o macro acima
vba colunas copiar medida de outra planilha (23.63 KB 2011-03-05 16:40:52)