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

• #24256 Delila_1 veterán zhari #24251

  Új Válasz 2014-11-18 16:54:16 #24256

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

  Makróval gyorsan előállítható.

  Sub Periodusok()
  Dim sor As Long, sor1 As Long
  
  Munka1.Select
  For sor = 1 To Application.WorksheetFunction.CountA(Munka1.Columns(1))
  For sor1 = 1 To Application.WorksheetFunction.CountA(Munka2.Columns(1))
  If Cells(sor, "A") >= Munka2.Cells(sor1, "A") And Cells(sor, "A") <= Munka2.Cells(sor1, "B") Then
  Cells(sor, Cells(sor, Columns.Count).End(xlToLeft).Column + 1) = Munka2.Cells(sor1, "C")
  End If
  Next
  Next
  End Sub

• #24252 Wyll őstag zhari #24251

  Új Válasz 2014-11-18 15:49:28 #24252

  Ú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

  

  Wyll

  őstag

  válasz zhari #24251 üzenetére

  A Munka1-be beszúrnék legfelülre egy új üres sort, és ide a B, C, D stb oszlopokba beírnám rendre az 1, 2, 3 stb számokat annak megfelelően, hogy hány periódus van. Így kialakulna egy olyan táblázat, aminek a baloldalán a keresett dátum található, a tetején meg a keresett periódus (Munka2-beli) sora. A többit a vizsgálófüggvény teszi hozzá, a következőképpen:

  A táblázat B2 cellájába a következő függvényt írnám:

  =HA(ÉS(INDIREKT("Munka2!A"&B$1)<=$A2;$A2<=INDIREKT("Munka2!B"&B$1));INDIREKT("Munka2!C"&B$1);"")

  És ezt kitolnám a teljes táblázatra. Így szépen fel lesz írva egy dátum mellé, hogy mely periódusokba esik bele.

  Tehát így:

  

  

  Ez a megoldás viszont nem igazodik automatikusan a periódusok számához.

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