Još da si prikačio ovdje primjer tvoje Workbook bilo bi sve "5"
Ovo je macro za skrivanje redova baziran na stupcu B

Kopiraj ga u Sheet na kojem želiš sakriti prazne redove. Dakle klikni na naziv Sheet-a desnom tipkom miša => View Code => zalijepi ga u Code Window u desnom dijelu VBE. Pokrećeš ga sa Alt+F8 => Selektiraš naziv makronaredbe "deleteRow" => klik na Run
Sad u ti se sakrili svi redovi koji su u stupcu B bili prazni a to se odrazilo na sve stupce

[edit]:izvršena ispravka "Cells(i, "B").EntireRow.Delete" u "Cells(i, "B").EntireRow.Hidden = True".

_{[Ovu poruku je menjao Ivek33 dana 25.06.2011. u 15:05 GMT+1]}

Ivek, promeni "Cells(i, "B").EntireRow.Delete" u "Cells(i, "B").EntireRow.Hidden = True".
Čak i posle ove promene, makro će samo sakrivati redove, ali ih neće otkrivati.

---

Ovo je izuzetno brz način skrivanja redova. On takođe otkriva redove kada se podaci naknadno upišu.
Na jednom Sheetu se upisuju originalni podaci. U drugom Sheetu se ti isti podaci kopiraju sa:
=IF(isblank(Original!A1);"text";Original!A1)
Kao što vidite formula stavlja ili originalni broj, a ako broja nema onda se vraća tekst. Sada se primeni donji makro.

Private Sakrivanje()
On Error Resume Next
Range("A1:A100").SpecialCells(xlCellTypeFormulas, xlTextValues).EntireRow.Hidden = True
Range("A1:A100").SpecialCells(xlCellTypeFormulas, xlNumbers).EntireRow.Hidden = False
On Error GoTo 0
End Sub

@hipomiki
Stvarno bi bilo lepo da staviš ovde neki XLS primer.



_{[Ovu poruku je menjao Brodoplovac dana 24.06.2011. u 15:00 GMT+1]}

Nisam nasao gde je ovde upload fajla pa sam uploadovao na megaupload pa vidite
http://www.megaupload.com/?d=76TUHQMS
Izvinjavam se sto je tako

@hipomiki
Kada se post pojavi u threadu onda ispod posta imaš dugme Upload. Znači, prvo postuješ a posle dodaješ slike ili fajlove. Više na http://www.elitesecurity.org/t...TATI-prije-otvaranja-nove-teme

Postavio si XLS sa originalnim podacima, ali ja se ne snalazim u tom fajlu.
Da li bi mogao da napraviš neki jednostavni workbook, u njemu primer onoga što želiš i da napišeš u samom workbooku pored tabela i podataka šta tačno treba da se uradi.

Prvi sheet je bitan ovo ostalo nije toliko vazno. Znaci u sheet-u nayiv treba da se sakriju celije tablice koji nemaju unos. Mislim da je to to ako mozes reci kako a ja cu da uradim. Jedino ostalo sto je vazno da se posle vuku podaci iz drugih sheetova ali prvo da sredim ovo hide

U koloni "B" treba da imaš formulu koja ostavlja tekstualni podatak ako želiš da red bude otkriven, a numerički podatak ako želiš da red bude sakriven. Sakrivanje/otkrivanje radiš klikom na dugme.

Prilikom otvaranja Workbooka, automatski će biti prikazani svi redovi.

VBA kod se nalazi u VBA modulu i u Workbook modulu.

Hvala na upozorenju, kopirao sam taj code ovdje sa foruma a nisam obraćao pažnju. Više sam se bazirao na jednokratnu upotrebu brisanja redova prije samog printanja, bez snimanja workbook.
Tvoja opcija mi se više sviđa

btw: uvijek može otkriti redove sa "UNHIDE"
pozdrav obojici

Kako sam ja shvatio problem koji imaš, rešava ga običan AutoFilter: samo iz prikaza isključiš "Blanks".

Takođe, sve ovo što radi makro možeš prečicama na tastaturi, a pitanje je samo koliko ti često treba sakrivanje.

CTRL+G, ALT+S -otvara Go To Special dijalog, a
CTRL+9 -sakriva redove obeleženih ćelija. (Nad istim opsegom CTRL+SHIFT+9 ih opet otkriva.)

Ljudi problem je i dalje prisutan. Makro u redu i ove precice takodje ali ne znam da li ste shvatili kompletno sav problem. Moze li pojasnjenje kako da iz onog sheet-a robe povlacim podatke odnosno da vrsim odabir u sheetu nayiv. Odredjene delove treba povuci a najbitnije je iz roba:sfr:naziv u nayiv:naziv
Ako moze to pa onda hide i eto tako resavamo komplet

Ja sam ti donekle rešio problem.
Izabereš proizvod iz padajuće liste i automatski ti bude upisana cena za dati proizvod.
Problem je što je padajuća lista visine 8 redova (i ne može se povećati), a ti imaš 1000 proizvoda. Dok pronađeš pravi proizvod ima da crkneš.

Ja vidim dva rešenja:
1) Svaki proizvod ima šifru. Šifru saznaš preko bar koda i fiskalne kase. Sada tu šifru iskoristiš da pronađeš dati proizvod.
2) Moraš da razbiješ listu proizvoda na grupe. Npr. periferije, komponente, konfiguracije... Onda koristiš duplu padajuću listu. U prvoj padajućoj listi pronađeš grupu u kojoj se nalazi proizvod koji tražiš. U drugoj padajućoj listi potražiš tačan proizvod iz date grupe. Ovde je bitno da ti sam napraviš te grupe. Grupa je poželjno da imaš oko 30.

Super je ovo a videcu da kao sto si ti rekao da razdelim na grupe. Hvala puno ako se nesto pogubim vikacu UPOMOC :)

Evo ponovo vicem UPOMOC. Dobro u redu sve ali evo ovako sta je sada problem.U sheetu "par" imam preko 600 unosa a treba gore gde su merge cells da bude neki podaci iz tog sheet-a. Mislim da je najlakse ctr+f u tom sheetu i copy/paste gde treba. Mozda postoji neko elegantnije resenje sto bi bilo lepo. Sve moze to u drugom programu da se odradi elegantnije i lepse ali me zanima da li moze i kako moze

Koliko ja vidim ti radiš nešto slično kao obrazac RAČUN-FAKTURA. Pogledaj dotični link možda ti može pomoći. Na njemu imaš dosta makronaredbi a imaš i mogućnost downloada sa svim funkcionalnim formulama. Također imaš filtriranje nakon završenog unosa stavki na obrazac. Probaj si uzeti dijelove i upotrijebiti za svoj problem ;)

Ivek33 hvala ti znao sam za ovo ali dobro da si me podsetio. Dve glave bolje znaju nego jedna. Hvala i super je sve