< návrat zpět

MS Excel

Téma: odstraneni prazdnych b rss

Zaslal/a mordredd 16.9.2010 22:25

Zdravim vas,
vedel by mi niekto popisat ako co najednoduchsie odstranit vsetky prazdne bunky v stlpchoch tabulky?

Cize z takejto tabulky

jozo fero lubo
2 2 2
3
4 4
5 5 5

... dostat taku tabulku?

jozo fero lubo
2 2 2
3 4 5
4 5
5

Zaslat odpověď >
Strana:  1 2   další »
Niffki(17.9.2010 6:46)#002457
avatar
Aloha

Podle popisu nechápem. Chceš jen smazat prázdné řádky nebo i změnit pořadí čísel v řádku? Podle jakých sloupců by se to mělo porovnávat?

N.citovat
clavien(17.9.2010 8:21)#002459
avatar
Private Sub CommandButton1_Click()

'v prvním řádku máš jména

'toto vymaže prádnou buňku ve 2.řádku
Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).Delete

'toto ve třetím
Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1).Delete

'a ve čtvrtém
Cells(4, Columns.Count).End(xlToLeft).Offset(0, 1).Delete

End Subcitovat
icon Poki(17.9.2010 13:30)#002465
Poki
zdravim,
kdyz vyberete oblast, na ktere chcete uplatnit odstraneni prazdnych bunek a pustite nasledujici praceduru, melo by to fungovat - za předpoklady, ze prazdnych bunek nebude moc...pak to hodi chybu, no ;-) Sub empty_cells()
Dim Retezec As String
Dim RETEZ As String
For Each cell In Selection
If IsEmpty(cell) = True Then
Retezec = Retezec & cell.Address & ","
End If
Next
RETEZ = Left(Retezec, Len(Retezec) - 1)
Range(RETEZ).Select: Selection.Delete Shift:=xlUp
End Subcitovat
mordredd(17.9.2010 20:40)#002471
avatar
OK. radsej teda pekne od zaciatku - mozno na to idem uplne zle.
Takze:
- na zaciatku mam dost velku databazu (pre zjednodusenie som ju skratil) v harku1 a potrebujem ju pretransformovat do tvaru ako je v harku2
- skusal som to pouzitim IF, ale potom mam problem s odstranenim a poposuvanim prazdnych buniek vid harok3

Ma niekto dobry napad ako nato?
Dakujem
Příloha: rar2471_odstranenie-prazdnych-buniek.rar (10kB, staženo 26x)
citovat
icon Poki(20.9.2010 9:55)#002475
Poki
Zdravim,
tady bych asi pouzil vlastni funkce SVYHLEDAT2, ktera dokaze najit i dalsi vyskyty hledane hodnoty ve sloupci tabulky (viz kod prilozeneho souboru).
Pak uz jen staci po transformaci neduplicitnich 'strojniku' vlozit funkci (viz list 1).
Snad to takto bude vyhovovat.
Příloha: zip2475_odstranenie-prazdnych-buniek.zip (16kB, staženo 52x)
citovat
mordredd(21.9.2010 17:23)#002511
avatar
diky, moc funguje to. vobec ma to nenapadlo takto riesit i ked tuto funkciu casto pouzivam.
este raz dakujem.citovat
mordredd(22.9.2010 22:52)#002517
avatar
... no nakoniec to nebolo take jednoduche ako som myslel. to ze si tam vlozil vlastnu funkciu tom som si vsimol az neskor. ale funguje to, super.
v znikla mi vsak dalsia komplikacia. doplnil som dalsie dva stlpce - cistenie x a cistenie y. Bolo by mozne este dlzky prestojov delit jednak podla strojnika ale aj podla toho ci vykonal alebo nevykonal cistenie (vid priloha)?
Příloha: rar2517_odstranenie-prazdnych-buniek.rar (15kB, staženo 30x)
citovat
icon Poki(23.9.2010 9:41)#002518
Poki
tak tohle uz je na vzorce opravdu slozite (a tudiz to neni na reseni zdarma) - makrem by to slo jednoduse, ale je otazka, jestli by to pro vas melo smysl - spise, jestli existuje takovy zpusob spousteni makra, ktery by zajistil spravne informace vzdy, kdyz je budete potrebovat - to je potreba si rozmyslet!citovat
krapl(24.9.2010 11:30)#002540
avatar
Možná by to šlo takto
Příloha: rar2540_svyhledat2.rar (11kB, staženo 67x)
citovat
mordredd(27.9.2010 19:56)#002545
avatar
dakujem vam. velmi ste mi pomohli, funguje tocitovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje