Vba excel

2738 palavras 11 páginas
'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 = 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")

Relacionados

  • Vba - excel
    4167 palavras | 17 páginas
  • VBA Excel
    11396 palavras | 46 páginas
  • Vba no excel
    2347 palavras | 10 páginas
  • Excel vba
    574 palavras | 3 páginas
  • Vba para excel
    2356 palavras | 10 páginas
  • excel vba
    499 palavras | 2 páginas
  • excel VBA
    11569 palavras | 47 páginas
  • Excel VBA
    12337 palavras | 50 páginas
  • VBA excel
    582 palavras | 3 páginas
  • VBA excel
    4535 palavras | 19 páginas