Ir para conteúdo
Fórum Script Brasil

Henrique Marra

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Henrique Marra

Henrique Marra's Achievements

0

Reputação

  1. Senhores boa tarde, preciso de uma ajuda sou novo no Forum e novo também no VBA do Excel Tenho essa macro abaixo porem, ela executa não cola especial e ai da erro fiz alguma coisa de errado e nai sei o que a finalidade desta macro é achar os numeros das placas em uma planilha que está na rede se alguém puder me ajudar, grato até o momento e só procv fica muito pesado Sub localizar_em_branco() 'essa Macro procurar pelo valor em branco no range D1:D10000 e substitui por procv 'e depois cola especial Dim localizador As Variant With Plan2.Range("D1 & D30000") Set localizador = .Find("", LookIn:=xlValues) If Not localizador Is Nothing Then endereco = localizador.Address Do localizador.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2],'H:\Implantação de Ativos\[N_de Placas.xlsx]Geral'!C2:C5,2,0),"""")" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Set localizador = .FindNext(localizador) Loop While Not localizador Is Nothing And localizador.Address <> endereco End If End With End Sub
×
×
  • Criar Novo...