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
|