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

• #10812 Delila_1 veterán #94180096 #10811

  Új Válasz 2011-07-12 12:32:19 #10812

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

  A 10782-ben hányadost kerestettél, amit megváltoztattál a 10789-ben. Az újabb válaszra most mindent átírsz.

  Ha szívességet kérsz valakitől – igénybe véve az idejét és esetleges tudását –, vedd a fáradságot, hogy eleve azt kérdezed, amire szükséged van.

  Nézd át jól a makrót, biztosan át tudod írni arra a feladatra, amit pillanatnyilag végre szeretnél hajtatni vele. Miért fordítanék több időt a válaszokra, mikor te, akinek szüksége van a válaszra, nem foglalkozol annyit a dologgal, hogy pontosan leírhatnád a kérdést?!

• #10790 Delila_1 veterán #94180096 #10789

  Új Válasz 2011-07-11 14:07:14 #10790

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

  Makróval oldottam meg, mert anélkül nagyon hosszú képletek kellenének.

  Sub kulonbs()
  Dim sor%, sor_1%, usor%
  Columns("G:G").ClearContents
  sor = 5: usor = Range("F50000").End(xlUp).Row
  
  Do While Cells(sor, 2) <> ""
  For sor_1 = 4 To usor
  If Cells(sor, 2) = Cells(sor_1, 6) Then _
  Cells(sor_1, 7) = Cells(sor_1, 7) & " " & Cells(sor, 1)
  Next
  sor = sor + 1
  Loop
  End Sub

  A fenti kódból a Columns("G:G").ClearContents a kigyűjtés előtt törli a teljes G oszlop tartalmát. Ha ez bajt okozna a lapodon, töröld a sort a makróból, és indítás előtt töröld a csatold kép szerinti G4:G8 tartományt.

• #10784 Delila_1 veterán #94180096 #10782

  Új Válasz 2011-07-11 09:36:03 #10784

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

  Az A oszlopban vannak az osztandók. B1 képlete =A1, B2-től lefelé =A2/B1.
  F1-be írtam a keresendő osztót. A C2 cella képlete =HA(A2/$F$1=B2;"Ez az";"")

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