Skúste
Příloha: 
31725_zoznam.porada.zip (26kB, staženo 38x)
citovat31725_zoznam.porada.zip (26kB, staženo 38x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Prenos riadku na základe splnenej podmienky
MS Excel
Téma: Prenos riadku na základe splnenej podmienky 
Zaslal/a kabaka 9.6.2016 20:51
Dobrý deň! Prosím o pomoc
Viem si nahrať makro, ale neviem ho upraviť tak, aby fungovalo ako chcem.
Po splnení podmienky, po vyplnení celého riadku, na základe poslednej hodnoty (napr. TR) zaradiť riadok tam, kde treba (prostredníctvom tlačítka- môže byť, nemusí) a samozrejme pokračuje v predchádzajúcom číslovaní (do makra by vchádzali tieto skratky TR, ORT, NCH, U, ORL, KPCH)
Mám excel 2003
Příloha: 31724_zoznam.porada.zip (24kB, staženo 32x)
31724_zoznam.porada.zip (24kB, staženo 32x)Môžem poprosiť, aby ste mi makro, ktoré ste mi vytvorili, upravili tak, aby mi zaraďovalo údaje po SKUPINE? Teda nie po jednom riadku? Podmienky sú rovnaké. Prišla som nato, že by mi to viac vyhovovalo.
Veľmi pekne ďakujem.citovat
Veľmi pekne ďakujem.citovat
Dovolil jsem si upravit soubor od p. elninoslova, tak snad to nevadí..
mělo by fungovat na vícero nových záznamů, jen novým záznamům nevkládejte p.č. v rámci sloupce A (asi není nejlepším řešením, ale myslím, že nejrychlejším) :-)
mělo by fungovat na vícero nových záznamů, jen novým záznamům nevkládejte p.č. v rámci sloupce A (asi není nejlepším řešením, ale myslím, že nejrychlejším) :-)
Příloha: 32991_zoznam.porada.zip (25kB, staženo 35x)
citovat32991_zoznam.porada.zip (25kB, staženo 35x)Sub makro()
'Skopíruje 9buněk od kurzoru doprava
ActiveCell.Offset().Resize(, 9).Copy
Range("A1").Select
Do Until ActiveCell = ""
ActiveCell.Offset(1).Select
Loop
ActiveCell.PasteSpecial xlPasteAll
ActiveCell = ActiveCell.Offset(-1).Value + 1
End Subcitovat
'Skopíruje 9buněk od kurzoru doprava
ActiveCell.Offset().Resize(, 9).Copy
Range("A1").Select
Do Until ActiveCell = ""
ActiveCell.Offset(1).Select
Loop
ActiveCell.PasteSpecial xlPasteAll
ActiveCell = ActiveCell.Offset(-1).Value + 1
End Subcitovat
Ďakujem Ti Devil, aj Tebe Jena. Makro funguje presne tak ako som chcela. Ešte raz vďaka. Veľmi ste mi pomohli.citovat
Ešte by som chcela poprosiť o úpravu v makre v tom istom súbore. Prikladám nový súbor. Ide o makro Nový záznam. Makro skočí na prvý voľný riadok 12.Ale ja potrebujem, aby to makro skočilo až na riadok 45.(Makro Zaradiť skupinu je už poriešené.)
Ďakujem veľmi pekne.
Ďakujem veľmi pekne.
Příloha: 33002_subor.rar (29kB, staženo 37x)
citovat33002_subor.rar (29kB, staženo 37x)co má makro nový záznam vlastně dělat? proč chceš zrovna řádek 45 (podle jakého pravidla to má skočit zrovna na tento řádek)?
Je to protože je v odd. vynecháno pole, nebo chceš v dané tabulce najít nejvyšší TR a vložit řádek s novým pořadovým číslem?citovat
Je to protože je v odd. vynecháno pole, nebo chceš v dané tabulce najít nejvyšší TR a vložit řádek s novým pořadovým číslem?citovat
Je to protože je v odd. vynecháno pole,....
--------------------------------------------------------
Hlavne preto že do riadku 43 (L11:AC43)mám tabuľku a keby sa tam makrom Zaradenie vkladali nové riadky, tak by mi rozhádzalo tabuľku.citovat
--------------------------------------------------------
Hlavne preto že do riadku 43 (L11:AC43)mám tabuľku a keby sa tam makrom Zaradenie vkladali nové riadky, tak by mi rozhádzalo tabuľku.citovat
Aby Ti tedy makro Novy zaznam skočilo na první volný řádek za vynechaným odd TR, pak jsem to upravil takto
Sub PoslRiadok()
A = Cells(11, 9).End(xlDown).Row
'(posledné číslo riadka , poradové číslo stlpca kde má zastať)
Cells(A + 1, 2).Select
End Sub
citovat
Sub PoslRiadok()
A = Cells(11, 9).End(xlDown).Row
'(posledné číslo riadka , poradové číslo stlpca kde má zastať)
Cells(A + 1, 2).Select
End Sub
citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články