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

• #35252 sztanozs veterán Hyper84 #35250

  Új Válasz 2017-05-18 17:58:35 #35252

  Ú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

  

  sztanozs

  veterán

  válasz Hyper84 #35250 üzenetére

  C2-be és utána lehúzod (vigyázz Array Formula, bevitel CTRL+SHIFT+ENTER-rel):
  {=IFERROR(INDEX($E$2:$E$5,MATCH(1,(--(A2=$D$2:$D$5)*--(B2>=$F$2:$F$5)*--(B2<=$G$2:$G$5)),0)),"nincs találat")}

• #35251 Delila_1 veterán Hyper84 #35250

  Új Válasz 2017-05-18 17:48:37 #35251

  Ú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

  

  Delila_1

  veterán

  válasz Hyper84 #35250 üzenetére

  Azt vizsgálod, hogy a B2 dátuma közte van-e az F2 és G2 dátumának. Ha igen, a C2 értéke legyen az E2 alterméke, egyébként vagy üres string, vagy mondjuk egy kötőjel.

  A MEDIÁN függvény megadja, hogy a 3 dátum közül melyik a középső. Ha ez a B2, akkor beírjuk az altermék nevét, egyébként kötjelet.

  =HA(MEDIÁN(B2;F2:G2)=B2;E2;"-")

• #23600 m.zmrzlina senior tag Hyper84 #23599

  Új Válasz 2014-10-07 21:52:58 #23600

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

  A "torolni " munkalap A oszlopába nem a s01... stb-t írod hanem az A01.... stb-t és a

  If Application.WorksheetFunction.CountIf(rngTorolni, rngCella) = 1 helyett

  If Application.WorksheetFunction.CountIf(rngTorolni, rngCella) = 0 lesz

  A többi ugyanaz.
  Azt gondolom mondani sem kell, hogy legyen a fáljból biztonsági másolatod.

• #23597 m.zmrzlina senior tag Hyper84 #23595

  Új Válasz 2014-10-07 21:27:14 #23597

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

  1. "torolni" munkalap A1-be beírod s01, A2-be s02.
  2, A1:A2-t kijelölöd, sarkánál fogva lehúzod s(akármeddig) 10mp

• #23593 m.zmrzlina senior tag Hyper84 #23592

  Új Válasz 2014-10-07 21:17:05 #23593

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

  1. Létrehoztam egy munkalapot a "torolni" néven
  2. Ennek a munkalapnak az A oszlopába felvittem azokat az elemeket amelyeknek az oszlopát törölni kell
  3. A munkalap amin a törlendő adatok vannak "adatok " nevet kapott
  4. A For Each sor végén lévő Range("A1:Z1") azt a tartományt jelöli ameddig a te adataid tartanak az "adatok" munkalapon.

  Sub oszlop_torol()
  
  Dim rngTorolni As Range
  Dim rngCella As Range
  Dim wsAdatok As Worksheet
  Set wsAdatok = ThisWorkbook.Worksheets("adatok")
  Set rngTorolni = ThisWorkbook.Worksheets("torolni").Range("A:A")
  
  For Each rngCella In wsAdatok.Range("A1:Z1")
  
  If Application.WorksheetFunction.CountIf(rngTorolni, rngCella) = 1 Then
  rngCella.EntireColumn.Delete
  End If
  Next
  
  End Sub

• #23591 m.zmrzlina senior tag Hyper84 #23590

  Új Válasz 2014-10-07 20:48:31 #23591

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

  Én eltárolnám egy oszlopba azokat a fejlécelemeket amelyek oszlopát tötölni kell majd egy for each next-tel és egy =CountIf()-fel végigmennék a fejlécen. Ahol a =CountIf() 1-et ad vissza ott törölném az egész sort.

  Ha teszel be egy képet a munkalapodról (vagy legalább leírod, hogy hogyan néz ki) konkrétabb is tudok lenni.

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