Ú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.

• #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

• #29305 poffsoft veterán pirit28 #29304

  Új Válasz 2015-11-03 21:00:59 #29305

  Ú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

  

  poffsoft

  veterán

  válasz pirit28 #29304 üzenetére

  lapvédelem/füzetvédelem nem egyszerűbb?

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