Vba excel
Dim x18 As Integer
Dim y18 As String
x18 = 3
With Sheets("Sheet2") Do Until .Range("A" & x18).Text = "" y18 = .Range("A" & x18).Text With Sheets("Sheet1") If .Range("a" & x18) = y18 Then With Sheets("Sheet2")
If .Range("aK" & x18).Text = 0 Then With Sheets("Sheet1") .Range("t" & x18).Select Sheets("Sheet1").Pictures.Insert ("\\vcn.ds.volvo.net\vce-ped\VCEPROJ03\027195\Portal VPS\Quadro Funcionário Multifunção\Novo Quadro Multifunção\Qualidade - ok\0.jpg") End With End If If .Range("ak" & x18).Text = 50 Then With Sheets("Sheet1") .Range("t" & x18).Select Sheets("Sheet1").Pictures.Insert ("\\vcn.ds.volvo.net\vce-ped\VCEPROJ03\027195\Portal VPS\Quadro Funcionário Multifunção\Novo Quadro Multifunção\Qualidade - ok\50.jpg") End With End If If .Range("ak" & x18).Text = 75 Then With Sheets("Sheet1") .Range("t" & x18).Select Sheets("Sheet1").Pictures.Insert ("\\vcn.ds.volvo.net\vce-ped\VCEPROJ03\027195\Portal VPS\Quadro Funcionário Multifunção\Novo Quadro Multifunção\Qualidade - ok\75.jpg") End With End If If .Range("ak" & x18).Text = 100 Then With Sheets("Sheet1") .Range("t" & x18).Select Sheets("Sheet1").Pictures.Insert ("\\vcn.ds.volvo.net\vce-ped\VCEPROJ03\027195\Portal VPS\Quadro Funcionário Multifunção\Novo Quadro Multifunção\Qualidade - ok\100.jpg")