Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #29309 m.zmrzlina senior tag pirit28 #29304
    Új Válasz #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