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

• #29310 Fferi50 Topikgazda pirit28 #29304

  Új Válasz 2015-11-03 22:29:40 #29310

  Ú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

  

  Fferi50

  Topikgazda

  válasz pirit28 #29304 üzenetére

  Szia!

  Ezt a makrót beteszed egy modul lapra (de akár az adott munkalap kódlapjára is teheted), majd elindítod. Persze tetszés szerint átnevezheted.
  A makró végigmegy a C oszlopon az utolsó nem üres celláig és beírja a C oszlopban levő érték alapján a D oszlopba a kívánt értéket (ez utóbbit csak remélem, hogy eltaláltam).
  Annyiszor futtatod, ahányszor akarod, mindig újraírja a D oszlop celláit az aktuális C oszlop szerint.

  Sub kitalalo()
  Const oes = "hattorf,Győr,Ford,Pors,BMW,AUDI,hmmc,kms,Sassenburg,Figueruelas,Grossmehring,Sindelfingen,Bremen,Koeln,Voelklingen,Seat,emden,Genk,Daventry,VW,BENZ,Swarzedz,Hannover,(OE)"
  Const whs = "WH,W/H"
  Dim beir As String, cl As Range
  For Each cl In Range("C11:C" & Cells(Rows.Count, "C").End(xlUp).Row).Cells
  If cl.Value = "" Then
  beir = ""
  Else
  If oes Like "*" & cl.Value & "*" Then
  beir = "OE"
  Else
  If whs Like "*cl.value" & "*" Then
  beir = "W/H"
  Else
  beir = "DFC"
  End If
  End If
  End If
  cl.Offset(0, 1).Value = beir
  Next
  
  End Sub

  Üdv.

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