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

• #29303 Fferi50 Topikgazda pirit28 #29300

  Új Válasz 2015-11-03 17:20:57 #29303

  Ú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 #29300 üzenetére

  Szia!

  Mivel jelen esetben egyetlen cella tartalmát vizsgálod, továbbá a countif csak azt mondja meg, hogy a cellában van olyan érték (lehet, hogy több is, de ezt nem tudja megmondani!!!), ezért én a sok countif helyett a like operátort javasolnám:
  if range("C11").value="" then range("D11").value=""
  else
  if hattorf,Győr,Ford,Pors" like "*" & range("C11").value & "*" then ' a felsorolást természetesen ki kell egészíteni - igaz, ha a c11 cella értéke valahol előfordul a megadott szövegben
  range("D11").value="OE"
  else
  
  endif
  endif

  Az else ágakat az előttem szóló alapján alakíthatod ki.

  Üdv.

• #29302 m.zmrzlina senior tag pirit28 #29300

  Új Válasz 2015-11-03 16:20:26 #29302

  Ú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 #29300 üzenetére

  Nem derült ki a kérdésből, hogy melyik cella tartalmát kell módosítania a képletnek ezért én a D11-es cellára írtam meg a makrót.

  Próbáld ki jól fejtettem-e vissza a képletet!

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("C11").Value = "" Then
  Range("D11").Value = ""
  ElseIf Range("C11").Value = "*hatroff*" Or Range("C11").Value = "*Győr*" Or Range("C11").Value = "*(OE)*" Then
  Range("D11").Value = "OE"
  ElseIf Range("C11").Value = "*WH*" Or Range("C11").Value = "*W/H*" Then
  Range("D11").Value = "W/H"
  Else
  Range("D11").Value = "DFC"
  End If
  End Sub

  A második ág ahogy látod nem teljes, ha így azt csinálja amit szeretnél akkor ki lehet egészíteni.

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