Notifications
Clear all

Adptar Macro

2 Posts
2 Usuários
0 Reactions
716 Visualizações
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Como posso adaptar a seleção A1:A500 nessa macro pessoal? tentei de todo jeito e não consegui

Sub Enter_Values()

For Each xCell In Selection
xCell.Value = xCell.Value
Next xCell
End Sub

Welington Gonçalves

 
Postado : 04/10/2013 7:23 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sub Enter_Values()

Dim rng As Range

Set rng = Range("A1:A5000")

For Each xCell In rng
xCell.Value = xCell.Value
Next xCell

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/10/2013 7:33 am