Új hozzászólás Aktív témák

• #29309 m.zmrzlina senior tag pirit28 #29304

  Új Válasz 2015-11-03 21:43:40 #29309

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz pirit28 #29304 üzenetére

  Ahhoz munkalaphoz rendeld amin az adataid vannak!

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
  If Target.Value = "" Then
  Target.Offset(0, 1).Value = ""
  ElseIf Target.Value = "*hatroff*" Or Target.Value = "*Győr*" Or Target.Value = "*(OE)*" _
  Or Target.Value = "*Ford*" Or Target.Value = "*Pors*" Or Target.Value = "*BMW*" _
  Or Target.Value = "*AUDI*" Or Target.Value = "*hmmc*" Or Target.Value = "*kms*" _
  Or Target.Value = "*Sassenburg*" Or Target.Value = "*Figueruelas*" Or Target.Value = "*Grossmehring*" _
  Or Target.Value = "*Sindelfingen*" Or Target.Value = "*Bremen*" Or Target.Value = "*Koeln*" _
  Or Target.Value = "*Voelklingen*" Or Target.Value = "*Seat*" Or Target.Value = "*emden*" _
  Or Target.Value = "*Genk*" Or Target.Value = "*Daventry*" Or Target.Value = "*VW*" _
  Or Target.Value = "*Benz*" Or Target.Value = "*Swarzedz*" Or Target.Value = "*Hannover*" Then
  Target.Offset(0, 1).Value = "OE"
  ElseIf Target.Value = "*WH*" Or Target.Value = "*W/H*" Then
  Target.Offset(0, 1).Value = "W/H"
  Else
  Target.Offset(0, 1).Value = "DFC"
  End If
  End If
  End Sub

Új hozzászólás Aktív témák