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

• #52437 Fferi50 Topikgazda benjoe1 #52435

  Új Válasz 2024-04-08 16:41:25 #52437

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

  Szia!
  Egy segédoszlopban megközelítőleg lehet megoldani:
  
  D2 cella képlete: =HA(C2>0;B2 & ",";"")
  D3 cella képlete: =HA(C3>0;D2 & B3 & ",";D2)
  Ez a képlet húzható lefelé.
  A legutolsó sorban találod a "végső" eredményt.
  Üdv.

• #52409 Delila_1 veterán benjoe1 #52406

  Új Válasz 2024-04-05 16:25:31 #52409

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

  Egy rövid makróval meg lehet oldani. Makróbarátként kell mentened a füzetet.
  Az A10 helyett más cellába is adhatod az eredményt.

  Sub Kigyujtes()
    Dim sor As Integer, szoveg As String
    sor = 2
    Do While Cells(sor, 2) > ""
        If Cells(sor, 3) <> "" Then szoveg = szoveg & Cells(sor, 2) & ","
        sor = sor + 1
    Loop
    Range("A10") = Left(szoveg, Len(szoveg) - 1)
End Sub

• #50765 lappy őstag benjoe1 #50764

  Új Válasz 2023-03-28 10:37:48 #50765

  Ú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

  

  lappy

  őstag

  válasz benjoe1 #50764 üzenetére

  [kép]
  az egyik szöveg a másik pedig dátum

• #50660 lappy őstag benjoe1 #50659

  Új Válasz 2023-03-06 12:12:33 #50660

  Ú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

  

  lappy

  őstag

  válasz benjoe1 #50659 üzenetére

  =HA(MA()-B2<=7;1;0)
  feltételes formázásba téve

• #45991 Fferi50 Topikgazda benjoe1 #45987

  Új Válasz 2021-02-09 14:35:15 #45991

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

  Szia!
  Szumha függvényt nézd meg légy szíves.
  Üdv.

• #45990 lappy őstag benjoe1 #45989

  Új Válasz 2021-02-09 11:20:58 #45990

  Ú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

  

  lappy

  őstag

  válasz benjoe1 #45989 üzenetére

  Egy és kapcsolat kell az első feltételbe

• #45988 lappy őstag benjoe1 #45987

  Új Válasz 2021-02-09 10:09:00 #45988

  Ú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

  

  lappy

  őstag

  válasz benjoe1 #45987 üzenetére

  Az fkeres jó csak olyat kell vele hogy több paramétert figyel

• #44237 benjoe1 aktív tag benjoe1 #44235

  Új Válasz 2020-06-10 15:04:49 #44237

  Ú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

  

  benjoe1

  aktív tag

  válasz benjoe1 #44235 üzenetére

  Közben megoldottam.

• #44203 Mutt senior tag benjoe1 #44180

  Új Válasz 2020-06-05 21:57:11 #44203

  Ú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

  

  Mutt

  senior tag

  válasz benjoe1 #44180 üzenetére

  Szia,

  Makrómentesen 2 megoldás:

  

  1. A Projektneveket egy Kimutatással soroltam fel alul.
  2. B10-ben ez a csúnya tömbképlet van.
  =HA(A10<>"";SZÖVEGÖSSZEFŰZÉS(";";IGAZ;HA(ELTOLÁS($B$1;HOL.VAN($A10;$A:$A;0)-1;;;DARAB2($1:$1)-1)>0;ELTOLÁS($B$1;0;;;DARAB2($1:$1)-1);""));"")

  Kell hozzá Excel 2016-tól elérhető SZÖVEGÖSSZEFŰZÉS, a végén CSE-t kell nyomni. Másold le sokszor, hogyha új projekt jön akkor automatikusan megjelenjen. Ha az oszlopok száma nem bővül (vagyis nem hétről-hétre adjátok hozzá őket, akkor a második ELTOLÁST le lehet cserélni fix tartományra, pl. $B$1:$BA$1-re)

  2. Excel 2010-től van Power Query, amiben kb. 10 lépés. A lényeg az ún. UNPIVOT (magyarul elemi értékre bontás).
  

  üdv

• #44200 Delila_1 veterán benjoe1 #44199

  Új Válasz 2020-06-05 15:36:53 #44200

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

  Makróval megoldható.
  Első oszlop projektek, másodikba ír a makró, 3-tól az első sorban vannak a hetek.
  A makrót modulba tedd, a füzetet makróbarátként kell mentened.

  Sub Heti_Arbevetel()
Dim oszlop As Integer, uoszlop As Integer, sor As Long

Columns("B:B") = ""
Range("B1") = "Tervezett" & vbLf & "árbevételek"
sor = 2: uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column

Do While Cells(sor, 1) <> ""
For oszlop = 3 To uoszlop
If Cells(sor, oszlop) > "" Then Cells(sor, 2) = Cells(sor, 2) & Cells(1, oszlop) & ", "
Next
If Len(Cells(sor, 2)) > 0 Then Cells(sor, 2) = Left(Cells(sor, 2), Len(Cells(sor, 2)) - 2)
sor = sor + 1
Loop
Columns("B:B").EntireColumn.AutoFit
End Sub

• #44182 Fferi50 Topikgazda benjoe1 #44180

  Új Válasz 2020-06-04 10:15:39 #44182

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

  Szia!
  Próbáld meg a Kimutatást.
  Üdv.

• #25575 Delila_1 veterán benjoe1 #25574

  Új Válasz 2015-02-24 15:03:30 #25575

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

  Szívesen.

• #25573 Delila_1 veterán benjoe1 #25572

  Új Válasz 2015-02-24 14:05:43 #25573

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

  Szűröd az A oszlopot, majd indítod a lenti makrót.

  Sub Rejt()
  Dim sor As Integer, oszlop As Integer
  Application.ScreenUpdating = False
  
  sor = Range("A" & Rows.Count).End(xlUp).Row
  For oszlop = 2 To 200
  If Cells(sor, oszlop) = "" Then
  Columns(oszlop).Hidden = True
  Else
  Columns(oszlop).Hidden = False
  End If
  Next
  
  Application.ScreenUpdating = True
  End Sub

• #3821 Delila_1 veterán benjoe1 #3820

  Új Válasz 2008-08-26 19:39:28 #3821

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

  A Selection.Offset(3.1).Select sort itt nem értem, meg szerintem a cikluson belül módosítani kellene a kijelölés helyét. Nálad működött?
  Az enyémben az usor kezdetű sor felesleges, de nem árt senkinek. Előbb a ciklust az usorig vittem, aztán a módosítottban benne hagytam a szemetet.

• #3818 Delila_1 veterán benjoe1 #3817

  Új Válasz 2008-08-26 16:51:39 #3818

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

  Hátha még nem késő.

  Sub sorbeszuras()
  usor = Range("A65536").End(xlUp).Row
  For sor = Range("A65536").End(xlUp).Row To 2 Step -1
  Cells(sor, 1).Select
  Selection.EntireRow.Insert
  Next
  End Sub

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