Vba excel

Disponível somente no TrabalhosFeitos
  • Páginas : 11 (2738 palavras )
  • Download(s) : 0
  • Publicado : 17 de abril de 2013
Ler documento completo
Amostra do texto
'QRPS
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 = 50Then
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 IfIf .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 WithEnd 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")End With
End If

End With
End If
End With
x18 = x18 + 1
Loop


End With


'Kaizen


x18 = 3


With Sheets("Sheet2")
Do Until .Range("A" & x18).Text = ""
y18 = .Range("A" & x18).Text
With Sheets("Sheet1")
If .Range("a" & x18) = y18 ThenWith Sheets("Sheet2")

If .Range("al" & x18).Text = 0 Then
With Sheets("Sheet1")
.Range("u" & 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("al" & x18).Text = 50 Then
With Sheets("Sheet1")
.Range("u" & x18).Select
Sheets("Sheet1").Pictures.Insert ("\\vcn.ds.volvo.net\vce-ped\VCEPROJ03\027195\Portal VPS\Quadro FuncionárioMultifunção\Novo Quadro Multifunção\Qualidade - ok\50.jpg")
End With
End If
If .Range("al" & x18).Text = 75 Then
With Sheets("Sheet1")
.Range("u" & 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("al" & x18).Text = 100 Then
With Sheets("Sheet1")
.Range("u" & x18).Select
Sheets("Sheet1").Pictures.Insert...
tracking img