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

• #10877 m.zmrzlina senior tag Pale #10873

  Új Válasz 2011-07-18 00:28:23 #10877

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

  A létező legprimitívebb megoldás és ha valóban bolondbiztossá kell tenni akkor sok dolog lesz még vele de kiindulásnak talán jó:

  Sub atmasol()
  Dim sor As Integer
  sor = 1
  Worksheets("Munka1").Select
  
  Do Until IsEmpty(Cells(sor, 1).Offset(1, 0)) = True
  
  If Cells(sor, 8) <> "" Then
  Range(Cells(sor, 1), Cells(sor, 8)).Copy Worksheets("Munka2").Range("A" & Worksheets("Munka2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
  End If
  sor = sor + 1
  
  Loop
  
  End Sub

  Munka1-en vannak a kiinduló adatok és Munka2-re teszi az eredményt, illetve azt feltételeztem, hogy az A oszlopban a lista aljáig egyetlen cella sem üres. Valamint a H oszlop üres celláiban <szóköz> sem lehet.

• #10876 föccer nagyúr Pale #10875

  Új Válasz 2011-07-17 21:44:59 #10876

  Ú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

  

  föccer

  nagyúr

  válasz Pale #10875 üzenetére

  Ha egyszer be van kapcsolva a szűrő, akkor csak annyi a feladat, hogy legördít, rákattint, hogy "üres", majd nyomtat. A nyomtatási képen is csak a leszűrt elemek jelennek meg. (én ezt sok ezer soros táblázattal így csinálom, egyszerre 8-10 feltételt használva, és hibátlan) Ez sem bonyolultabb, mint megnyomni egy gombot, munkalapot váltani, és úgy nyomtatni. Mind a kettőt meg kell mutatni és el kell magyarázni legalább egyszer. Ráadásul, ha a tisztelt felhasználó elkefél valamit, akkor a szűrős verziót akár telefonon keresztül, távvezérelve is vissza tudod állítani, mert csak a menüben kell kattintgatni. Ez esetben szerintem az egyszerűbb jobb megoldást adna.

  üdv, föccer

• #10874 föccer nagyúr Pale #10873

  Új Válasz 2011-07-17 20:07:39 #10874

  Ú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

  

  föccer

  nagyúr

  válasz Pale #10873 üzenetére

  Én beraknék az első sorba egy auto szűrőt. A H oszlop szűrőjére beállítod, hogy csak az üresek legyenek megjelenítve, majd a leszürt táblázatra copy-paste. Csak a leszürt sorokat fogja átmásolni.

  üdv, föccer

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