Fóruns Microsoft Excel - 2... 2024 - VBA & Macros Adptar Macro Notifications Clear all Adptar Macro 2024 - VBA & Macros Post Recente por Fernando Fernandes 11 anos atrás 2 Posts 2 Usuários 0 Reactions 705 Visualizações RSS wfranca (@wfranca) Posts: 297 Honorable 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 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 Postado : 04/10/2013 7:33 am Super Globals Requests: Server: Options and Features route: community use_home_url: url: https://planilhando.com.br/community/ pageid:1 default_groupid: 3 2022