- 15 Mai 2018 às 14:44
#33041
Sub Atualizar()
'
' Atualizar Macro
'
'
Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
:=True
Rows("1:1").Select
Selection.Copy
Range("A7:AL7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Cadastrar").Select
Union(Range( _
"C41,A41,H4:R4,H10:R10,T10:V10,R12:V12,R14:T14,N14:P14,N12:P12,H12:L12,L14,J14,H14,A16:E16,G16:J16,L16:P16,M21:Q21,I21:K21,A21,C21,A26,C26,I26:K26,M26:Q26,M31:Q31,I31:K31,C31,A31,A36,C36,I36:K36,M36:Q36" _
), Range("M41:Q41,I41:K41")).Select
Range("A41").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("H4:R4").Select
End Sub
Gostaria que quando na programação seleciona A7:AL7 fosse dinâmico e que a célula AM1 é quem definisse. Exemplo:
Range("A(AM1):AL(AM1)").Select
mas nao funciona desse jeito.
Obrigado
'
' Atualizar Macro
'
'
Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
:=True
Rows("1:1").Select
Selection.Copy
Range("A7:AL7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Cadastrar").Select
Union(Range( _
"C41,A41,H4:R4,H10:R10,T10:V10,R12:V12,R14:T14,N14:P14,N12:P12,H12:L12,L14,J14,H14,A16:E16,G16:J16,L16:P16,M21:Q21,I21:K21,A21,C21,A26,C26,I26:K26,M26:Q26,M31:Q31,I31:K31,C31,A31,A36,C36,I36:K36,M36:Q36" _
), Range("M41:Q41,I41:K41")).Select
Range("A41").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("H4:R4").Select
End Sub
Gostaria que quando na programação seleciona A7:AL7 fosse dinâmico e que a célula AM1 é quem definisse. Exemplo:
Range("A(AM1):AL(AM1)").Select
mas nao funciona desse jeito.
Obrigado
