Essa eu me enrolei no básico.
Até consigo com FormulaR1C1, mas não consegui manter a linha de referência
Segue plan
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Comparar com planilha diferentes e manipular dados correspondentes
Comparar com planilha diferentes e manipular dados correspondentes
- Anexos
-
- Horti.zip
- (16.32 KiB) Baixado 146 vezes
Re: Comparar com planilha diferentes e manipular dados correspondentes
seu problema é simples, no geral pode ser algo assim:
Código: Selecionar todos
Sub comparar()
Dim lin As Long, lin2 As Long
Dim prod As String, prod2 As String
Dim total As Double
lin = 2
Do While Planilha2.Range("A" & lin) <> ""
prod = Planilha2.Range("A" & lin)
lin2 = 2
Do While Planilha1.Range("A" & lin2) <> ""
prod2 = Planilha1.Range("A" & lin2)
If LCase(prod) = LCase(prod2) Then
total = Planilha1.Range("B" & lin2) * Planilha2.Range("B" & lin)
If LCase(Planilha2.Range("C" & lin)) = "sim" Then total = total + (total * 0.15)
Planilha2.Range("D" & lin) = total
End If
lin2 = lin2 + 1
Loop
lin = lin + 1
Loop
End Sub