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

• #45929 pirit28 csendes tag

  Új Válasz 2021-02-01 20:51:07 #45929

  Ú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

  

  pirit28

  csendes tag

  Sziasztok..

  Az alábbi részletet hogyan tudnám rábírni arra ,ha a táblázat harmadik oszlopába címeket másolnék egyszerre többet is, akkor a címek mellé oda kellene biggyesztenie az hogy lengyel.. sajnos ebben a formában nem működik csak ha egy egy cellát másolok be.

  Remélem érthető. Köszi
  ...

  If Target.Column = 3 Then
If InStr(Target.Value, "Mszczon") Or InStr(Target.Value, "Kokot") Or InStr(Target.Value, "Warszawa") Or InStr(Target.Value, "Krak") Or InStr(Target.Value, "SWARZEDZ") _
Or InStr(Target.Value, "Pozna") Or InStr(Target.Value, "RZESZ") Or InStr(Target.Value, "Sosnow") Or InStr(Target.Value, "BYDGO") Or InStr(Target.Value, "Kekava") _
Or InStr(Target.Value, "KOMORN") Or InStr(Target.Value, "Prusz") Or InStr(Target.Value, "LUBLIN") Or InStr(Target.Value, "Zakroczym") Or InStr(Target.Value, "valami") _
Or InStr(Target.Value, "Opole") Or InStr(Target.Value, "Chorz") Or InStr(Target.Value, "milos") Or InStr(Target.Value, "Tuch") Or InStr(Target.Value, "Siech") _
Or InStr(Target.Value, "Pucice") Or InStr(Target.Value, "WOLSZT") Or InStr(Target.Value, "ystok") Or InStr(Target.Value, "pl(") Or InStr(Target.Value, "pl (") _
Then
Cells(Target.Row, 3) = Target + " + lengyel"

End If
End If

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