Makro

Poptejte např. na jaudelam, tam vám to někdo šikovný vytvoří za pár kaček

Dobrý den,
Analogický problém jsem řešil. Já jsem potřeboval do předem zvolené buňky zapsat ne první, ale poslední neprázdnou hodnotu v zadaném sloupci. Nemusel jsem to řešit skrze makro, ale maticovým vzorcem. Myslím, že by se ta myšlenka dala použít i na Váš případ. Je-li Váš dotaz ještě aktuální, dejte vědět, popíšu Vám to.
-Peter-

Pro příklad. Oblast buněk A2 až A11 si pojmenujte jako: Vektor. Do jakékoliv buňky mimo pojmenovanou oblast Vektor si zadejte vzorec:
=NEPŘÍMÝ.ODKAZ(ODKAZ(MIN(KDYŽ(JE.PRÁZDNÉ(Vektor);999;ŘÁDEK(Vektor)));SLOUPEC(Vektor)))
a ten označte jako maticový vzorec. V řádku vzorců by se mělo objevit:
{=NEPŘÍMÝ.ODKAZ(ODKAZ(MIN(KDYŽ(JE.PRÁZDNÉ(Vektor);999;ŘÁDEK(Vektor)));SLOUPEC(Vektor)))}
Pak buňka s maticovým vzorcem budete mít hodnotu z prvé neprázdné buňky z oblasti pojmenované jako Vektor, bez ohledu na umístění pojmenované oblasti Vektor. Číslo 999 je zvoleno záměrně nesmyslně vysoké. Pokud by však oblast Vektor měla zasahovat až do řádku 999, klidně tam dejte 999999.
Snad Vám to pomůže.

Je to marný, je to marný, je to marný. Položit dotaz, jo, Prakticky ale NIKDO se sem nevrátí pro odpověď. Natož, aby poděkoval :-) Má to smysl.

Jee, moc děkuji, zkusím vyzkoušet!
/omlouvám se nedala jsem si upozornění při reakci a teď na to náhodou narazila...

Já jsem zatím vystvořila toto makro, ale zadrhla jsem se na tom, aby se mi to opakovalo do dalších sloupců, takže teď studuje loop pod, ale moc mi to nefunguje...

Sub Import()

With Columns("A").Find(what:="*", after:=.Cells(1, 1), LookIn:=xlValues).activate
End With

ActiveCell.EntireRow.Select
Selection.cut
Rows("2:2").Select
Selection.Insert Shift:=xlDown

End Sub