• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

ne ne nepomohlo

Ale já potřebuji první prázdnou buňku od H1 směrem dolů :)

Někde to může být tak, že prvních 20 buněk ve sloupci H jsou obsazeny a jindy se může stát, že třeba hned H3 je prázdná. Viz příloha, kterou jsem posílal.

V příloze tabulka se stavem jak dopadlo po provedení níže uvedeného makra od Devila.

Jde o to, že do řádku kde má byt souvislé černé podbarvení, potřebuji do sloupce "H" dostat do nepodbarvené buňky černé podbarvení a písmeno "d"
V listě "20341" kód zapracoval jak měl, ale u ostatních ne.

Proč?

z těchto stránek čerpám, ale problém je v tom, že i když změním oblast oblast na H1 tak mi to hledá řádky podle sloupce A

Proč mi prosím nenajde první prázdnou buňku ve sloupci H?

Range("H1").Select
PosledniPlnyRadek = Range("H1").End(xlDown).Row ' Ve sloupci H
PrvniPrazdnyRadek = PosledniPlnyRadek + 1
Cells(PrvniPrazdnyRadek, 8).Select

Děkuji

Tak jsem to nakonec vyřešil jinak. První dva řádky jsem ukotvil a do třetího řádku jsem pomocí makra vytvořil fiktivní zakázku. Tím jsem obešel to, že se mi již nestane, že pro některé středisko není naplánována práce a původní makro se chová jak má.

Na konci makra ten řádek vždycky najdu a dám ho smazat.

V příloze celý sešit. Makro včetně popisku co které dělá atd., uloženo ve VBA list "Dořešit" tak pokud by někdo potřeboval nějakou inspiraci, nechť čerpá. (podotýkám, že jsem začátečník)

Děkuji za reakci.
Takto se to těžko popisuje. V příloze celé makro v list1.

Pokud si zadáte vyhledat "#### POKUD NEJSOU DATA V ŘÁDCÍCH A3 A NÍŽE, POKRAČUJ NA DALŠÍM LISTĚ" dostanete se do bodu, kde potřebuji, aby když v daném listě nejsou data, pokračovalo makro na dalším listě. Pokud data budou, tak aby provedl úkony popsané v tom makru.

Snad je to již pochopitelné.

Je to pro mě celkem důležité, tak klidně i zavolám, abych vysvětli podrobněji.

Děkuji.

Dobrý den.

Potřeboval bych poradit jak zapsat kód pro níže potřebné.

Pomocí maker tvořím denní plány pro různá střediska.
Občas se stane, že na některá střediska není naplánována žádná práce a tak bych potřeboval přeskočit na další list s dalším střediskem.

Ve finále by to mělo vypadat tak, že pokud v buňce "A3" nenajdu data tak se spustí sub xy.

Pomůže někdo?

ani to netrvalo a poradil jsem si sám

na místo
Rng.Cells(i).Clear

je potřeba zadat
Rng.Cells(i).ClearContents

Tak se zase mějte

Ahoj.
Nevím kde dělám chybu, ale potřebuji ve sloupcích A-C najít buňky obsahující "0" a tyto nuly smazat. Nesmí se týkat buněk obsahující text s nulou npř. "10"

Níže uvedený kód však odstraní i ohraničení tabulky.

Poradíte mi porosím?
Děkuji

'Odstarnit nuly
Columns("A:C").Select
Set Rng = Range("A:C")
i = 1
For counter = 1 To Rng.Rows.Count
If Rng.Cells(i) = "0" Then
Rng.Cells(i).Clear
Else
i = i + 1
End If
Next

Hurááááááá mám to. No Vy jste jednička.

Tisíceré děkuji.

Jsem velkým dlužníkem.

LoL děkuji za pomoc. Již na tom pracuji.

Chtěl jsem se ještě zeptat, pokud list ve kterém budu chtít vložit řádek se jmenuje "20371+20372" tak bude zápis vypadat takto?

Call VlozRadek(ActiveSheet(20371 + 20372))

Děkuji moc za vstřícnost.

Jinak v příloze finální podoba tabulky, pokud by jste se chtěl podívat o co jde.

TO - eLCHa

jak jsem psal, jsem v tomto absolutní nováček, ale vedení na mě tlačí.

Pokud pošlu zdrojový txt a samotné makro s informací v něm, kam je potřeba tuto formulaci umístit, mohl by jsi to prosím upravit?

Děkuji moc.

Děkuji za odpověď i okomentování. Jistě mě v blízké budoucnosti čeká školení od profesionálů, protože to po mě v práci vyžadují.

Nyní bych však s tímto případem potřeboval pomoct.

jo zapomněl bych, v makru jsem vyznačil, kam je potřeba zápis zakomponovat a to textem

'SEM NAJDI NáSLEDUJÍCÍ DATUM A VLOŽ ŘÁDEK

To jen pokud by jste se do toho pustil.

Děkuji

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse