Vba excel

Páginas: 11 (2738 palavras) Publicado: 17 de abril de 2013
'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...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • Vba no excel
  • Vba para excel
  • VBA Excel
  • excel VBA
  • vba excel
  • excel vba
  • Excel vba
  • VBA excel

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!