Realizei varias procuras pela internet e as encontrada realizei as adaptações orientada e não funcionou como planejado.
Encontrei em um arquivo de macros este código abaixo. que com procv na linguagem vba funcionou.
Como faço para fazer a adaptação desta linha "ActiveCell.Formula = "=iferror(vlookup(b2,Cadastro!A:c,2,0),""Favor Cadastrar este item"")" " concatenando a funçao indice + corresp onde retorne a menor data de cada produto cadastrado até o ultimo registro da planilha.
Sub AtualizaDatas()
'' Atualiza Guia Movimento
' Gravado por Denilson Roberto de Souza
Dim w As Worksheet
Dim senha As String
Dim ulinha As Long
Dim UltimaLin As Long
senha = "acerf15"
'Captura a Ultima Linha na Coluna c
UltimaLin = ActiveSheet.Cells(Rows.Count, "a").End(xlUp).Row
Application.ScreenUpdating = False
Set w = Planilha5
w.Activate
If w.ProtectContents = True Then
w.Unprotect senha
End If
Range("i2").Select
ActiveCell.Formula = "=iferror(vlookup(b2,Cadastro!A:c,2,0),""Favor Cadastrar este item"")"
Range("b2").Select
Selection.End(xlDown).Select
lin = ActiveCell.Row
rg = "i2:i" & lin
ActiveCell.Value = ActiveCell.Value
Range("i2").Select
Selection.AutoFill Destination:=Range(rg), Type:=xlFillDefault
Range("i2:i" & lin).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
cont = 2
cont = cont + 1
'Loop
'Apaga todas as Linhas em branco a partir de A2
w.Protect senha
End Sub
Postado : 16/06/2025 11:09 pm