Vložení buněk makrem (vyřešeno)

[Axamith]

Mám drobný problém. Napsal jsem si makro, které sloučí vybrané řetězce funkcí CONCATENATE a celé to vkládá do konkrétního listu na konkrétní místo. Takových maker budu používat několik a potřebuji, aby se automaticky vkládaly na nejbližší volnou buňku (s nejnižším číslem) v daném sloupci. V mém případě sloupec E. Zkrátka každé makro něco udělá a vloží to za předešlý zápis. Je to řešitelné ??? Přikládám výpis makra :

Kód: Vybrat vše

Sub G00()
'
' G00 Makro
' Makro zaznamenané 20.10.2005, Axamith
'

'
    Sheets("NC program").Select
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(G00!R[2]C[-2],G00!R[2]C[-1])"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(G00!R[2]C[1],G00!R[2]C[2])"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(G00!R[2]C[4],G00!R[2]C[5])"
    Range("D1").Select
End Sub

Děkuji za nápady a rady
Axamith

[miras]

Mikel je v tomhle lepší, třeba by to pochopil, ale já ne, já to nechápu
Nemohl bys zkusit prosimtě uvést nějakej konkrétní příklad? Nebo nějak líp popsat co má být výsledkem? Možná zkusit udělat nějaký obrázky, jestli to z nich bude pochopitelný?

[mikel]

Něco mi tu neštimuje. To makro jsem tu dával ráno spolu s makrem v jiném topiku a teď tady ten příspěvek není.
Přiznejte se, kdo ho ukradl!

Tak znova. To makro jsem trochu předělal a upravil podle tvého požadavku. Za prvé, na slučování text.řetězců nepotřecuješ funkci CONCATENATE. Můžeš vzorec napsat ve tvaru např. =A1&A2 a také =A1&"text" a stejný zápis se používá v makrech. To nalezení první prázdné buňky ve vybraném sloupci je v makru zajištěno složenou podmínkou IF. Stačí, když ji nakopíruješ do ostatních maker. Ale pozor, je napsána tak, že před tím je potřeba vybrat konkrétní sloupec (Range(...).Select).

[miras]

Něco mi tu neštimuje. To makro jsem tu dával ráno spolu s makrem v jiném topiku a teď tady ten příspěvek není.
Přiznejte se, kdo ho ukradl!

No přiznávám se že já to nebyl
Taky mívám občas někdy pocit že sem někam psal odpověď a ta tam potom není. Ale ještě nikdy sem si nebyl stopro jistej, že sem tu odpověď opravdu dopsal a odeslal . No ale jestli nejsem sám s podobnejma pocitama, možná se tu opravdu dějou nadpřirozený věci

[Axamith]

Tak bohužel to není to, co jsem si představoval. Makro, které navrhl Mikel lze použít max. 2x za sebou a potom zařve chybu. Celá ta legrace se má používat k jednoduchému psaní ISO kódu pro obráběcí stroje. Vyberu funkci, doplním údaje a vložím do programu. Opakuji to podle potřeby 10x, 20x, 100x ... Celé jsem to podrobně popsal i s JPGéčkama + přiložil celý Exelovský sešit . Dá se stáhnout na :
http://mujweb.cz/www/Axamith/Privat/ISO.zip?r=2988
Pokud by vás někoho daná problematika zaujala a jste shopni a ochotni poradit, tak se na to mrkněte.

Dík Axamith

[mikel]

Tak jsem zjistil, že problém je v chybném opisu makra.

Chyba je na tomto řádku (označena červeně):
Selection.End(x1.Down).Offset(1, 0).Select

Správný zápis je (pro lepší orientaci velkými písmeny) XLDOWN

Když jsem to ve tvém souboru opravil, tak to funguje bez problémů.

[Axamith]

To Mikel : Jsi frajer, šlape to. Holt pořád platí, že ten umí to a ten zas tohle . . . Díky Axamith