Příspěvky uživatele


< návrat zpět

přidání čísla o 1 větší než původní číslo (4.3.2016 7:08)

Děkuju moc. Funguje. Použil jsem to první
___
PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row
If PosledniPlnyRadek > 4 Then Cells(5, "B") = Cells(PosledniPlnyRadek, "C")
___
, oba kódy jsou super. jsem si myslel že tam bude použito něco s Range, ale vy jste tam použil Cell. VBA je fakt super snad se to někdy naučím.
Každopádně Děkuji, hodně štěstí a ať se daří.

přidání čísla o 1 větší než původní číslo (3.3.2016 22:18)

toto je jiné, to je druhý typ
Najdi poslední prázdnou buňku ve sloupci C (začátek hledání od řádku 5) a potom tuto hodnotu napiš do sloupce B řádek 5

omlouvám se že otravuji pokud by měl někdo čas, já myslel že v tomto druhém typu se mi podaří využít ten první kód, ale moje grafika v hlavě potřebuje pořádnou dávku aktualizace, umím trochu používat If a Case, Select Case, ale zatím se to učím. Chtěl jsem si jen zjednodušit práci, běžně nedělám ve vba jen velmi okrajově, ale jinak smekám před váma, no snad to taky jednou pochopím zkoušel jsem toto:

Sub posledni_radek()
PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row ' Ve sloupci A
MsgBox "Poslední obsazený řádek má číslo: " & PosledniPlnyRadek
Range("B5") = PosledniPlnyRadek
End Sub

ale to je blbě, protože mi to vyhazuje číslo řádku a ne hodnotu buňky. Ale pořád je to o tom využít ten první kód ještě jednou děkuji elninoslov.

nevím jak tu hodnotu z konce převést do sloupce B řádek 5 podle zadání pro druhý typ.

přidání čísla o 1 větší než původní číslo (3.3.2016 18:21)

Děkuji moc všechno funguje.

Prosím ještě takovou maličkost, sedím nad tím už 2 hodiny a furt mi to nejde.snažil jsem se využít ten kód a nejde mi to.

Najdi poslední prázdnou buňku ve sloupci C (začátek hledání od řádku 5) a potom tuto hodnotu napiš do sloupce B řádek 5

přidání čísla o 1 větší než původní číslo (2.3.2016 19:50)

Ahoj, prosím o radu.

potřebuji zjistit, jestli V SLOUPCI C ŘADEK 5 JE HODNOTA 0001 pokud ne zapiš číslo 0001, pokud ano potom najdi ve sloupci C poslední číslo (vyhodnocení od 5 řádku) a za něj do prázdné buňky dopiš o číslo větší o 1 tedy (+1) = 0002

Jakým způsobem by to šlo přes makra?

Děkuji za radu pokud budete mít někdo chvilku.

kopírování daného počtu řádků do jiného sešitu (12.10.2014 12:16)

Ahoj, prosím o radu jsem z toho v pasti, nevím jestli to pude? Děkuji za jakoukoli radu pokud budete mít někdo chvilku se tím zabývat.

Mám sešit v tom sešitě mám hodnoty, které jsou někdy od A3 řádku do 10 někdy jsou hodnoty do 100 řádků i více. Chtěl bych, aby se každých 16 řádků i se sloupci A3 až G3 nakopírovalo do nového sešitu na nový list. Když jich bude 17 řádků, tak 16 se nakopíruje do druhého listu a ten 17 do třetího listu a další listy by vytvářel vzorcem v stejném sešitě. Měl by ale poznat vzorcem jestli je či není na 18 řádku nebo dalším nějaká hodnota. V prvním listě by měla být naformátovaná tabulka, a když začne Excel kopírovat hodnoty z jiného sešitu, který vždy ručně vyberu, z jakého sešitu to bude. Tak se přitom do dalších listů bude kopírovat i ta tabulka a vzor tabulky by byl na prvním listě.
Je možné vytvořit toto bez maker jen pomoci vzorců, jaké by byli vzorce nebo postup?
Kdyby bylo s makrem, jak by vypadalo?


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