0
0

Dobrý den,
potřebovala bych vytvořit makro, aby procházelo sloupce a vždy se v něm našla první neprázdná buňka a ten řádek, kde se neprázdná buňka nachází, se vyjmul a vložil na první řádek...Takto projít všechny sloupce...Moc děkuji za jakoukoliv radu

Marked as spam
Odeslal haney
Otázka položena 24.2.2021 18:20
51 views
0
Private answer

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

Marked as spam
Odeslal Anonymous
Odpověděl 26.2.2021 16:26
0
Private answer

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-

Marked as spam
Odeslal (Otázky: 1, Odpovědi: 2)
Odpověděl 11.3.2021 23:37
0
Private answer

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.

Marked as spam
Odeslal (Otázky: 1, Odpovědi: 2)
Odpověděl 12.3.2021 1:05
0
Private answer

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.

Marked as spam
Odeslal radši nikdo
Odpověděl 27.3.2021 22:45
0
Private answer

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...

Marked as spam
Odeslal haney
Odpověděl 19.4.2021 7:02
0
Private answer

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

Marked as spam
Odeslal haney
Odpověděl 19.4.2021 7:05

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]