Este fórum está sendo desativado

[AndreSpecker]

Olá pessoal, alguém poderia me ajudar, estou precisando de uma macro que selecione automaticamente cada valor do AK e execute automaticamente a macro que tenho de salvar, executando um por um até o final.
Seleciona -> Salvar -> Pula pro de baixo -> Seleciona -> Salvar -> Pula pro de baixo..... até o final

[osvaldomp]

Vincule o botão existente Salvar ao código abaixo.

Código: Selecionar todos

Sub ReplicaNúmerosESalva()
 Dim c As Range
  For Each c In Range("AK1:AK" & Cells(Rows.Count, "AK").End(3).Row)
   [AI1] = c.Value
   SalvarFichaProduto
  Next c
End Sub

[AndreSpecker]

Perfeito, muito obrigado