Stačí vložit přílohu s ukázkou, a my Vám ten kód vytvoříme ;-).
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Vložení prázdného řádku při změně textu
A čo ti funguje? Akosi som nepochopil:
citovat
MS Excel
Téma: Vložení prázdného řádku při změně textu 
Zaslal/a 24.7.2015 19:06
Dobrý den,
existuje vba kod, který by dokázal vložit řádek při každé změně textu ve sloupci?
Pro objasnění mám seznam se jmény a ty se opakují podle počtu, kolikrát u nás klient byl a potřebuji aby se mi vždy pod názvem klienta vložil řádek abych tam pak mohla vložit počet.
Předem moc děkuju!
(27.7.2015 10:19)#025989
AAAA
AAAA
AAAA
AAAA
AAAA
BBBB
BBBB
BBBB
SS
POO
POO
TU
TU
TU
TU
TU
TU
TU
takto ta tabulka vypadá a já bych potřebovala aby to vložilo řádek po každé, když se mi změní název klienta.
Předem mockrát děkujicitovat
AAAA
AAAA
AAAA
AAAA
BBBB
BBBB
BBBB
SS
POO
POO
TU
TU
TU
TU
TU
TU
TU
takto ta tabulka vypadá a já bych potřebovala aby to vložilo řádek po každé, když se mi změní název klienta.
Předem mockrát děkujicitovat
??? Toto je tabuľka klientov ? Klient AAAA, klient BBBB, klient SS, klient POO, klient TU.
A Vy teraz chcete čo ? Ja naozaj nerozumiem. Vy musíte napísať príklad toho čo chcete urobiť, a čo očakávate.
Takže Vy napr. zmeníte druhú bunku s klientom BBBB (7. riadok) na CCC, a chcete aby sa pod tento zmenený 7. riadok vložil nový riadok ?
Čiže výsledok bude:
AAAA
AAAA
AAAA
AAAA
AAAA
BBBB
CCC
-----prázdny riadok---
BBBB
SS
POO
POO
TU
TU
TU
TU
TU
TU
TU
Skúste to popísať úplne inak, o rád podrobnejšie, ale hlavne sa pokúste vcítiť do človeka, ktorý nemá o Vašej problematike páru, a netuší čo tým myslíte,a nevie čo Vy považujete za samozrejmé.
Ďalej chcete vkladať pod názov klienta počet, ja tam ale žiadny počet nevidím, iba názvy klientov, nie počty. Ten počet pôjde do iného stĺpca ?
atď, atď...citovat
A Vy teraz chcete čo ? Ja naozaj nerozumiem. Vy musíte napísať príklad toho čo chcete urobiť, a čo očakávate.
Takže Vy napr. zmeníte druhú bunku s klientom BBBB (7. riadok) na CCC, a chcete aby sa pod tento zmenený 7. riadok vložil nový riadok ?
Čiže výsledok bude:
AAAA
AAAA
AAAA
AAAA
AAAA
BBBB
CCC
-----prázdny riadok---
BBBB
SS
POO
POO
TU
TU
TU
TU
TU
TU
TU
Skúste to popísať úplne inak, o rád podrobnejšie, ale hlavne sa pokúste vcítiť do človeka, ktorý nemá o Vašej problematike páru, a netuší čo tým myslíte,a nevie čo Vy považujete za samozrejmé.
Ďalej chcete vkladať pod názov klienta počet, ja tam ale žiadny počet nevidím, iba názvy klientov, nie počty. Ten počet pôjde do iného stĺpca ?
atď, atď...citovat
(27.7.2015 11:32)#025993
Chtěla bych aby se mi pod klienta AAAA vložil prázdný řádek(v tomto případě pod řádek 5) a pak to vložilo prázdný řádek pod klienta BBBB ( v tomto případě pod řádek č.8, a pak pod klienta SS ( v tomto případě pod řádek č.9)atd.
S počtem klientů si už poradím, to úplně zapomeňte :)
Omlouvám se za špatné vysvětlení.citovat
S počtem klientů si už poradím, to úplně zapomeňte :)
Omlouvám se za špatné vysvětlení.citovat
neviem presne naco to potrebujete
ale napr. takto:
Sub test()
Set aTable = Selection
aName = aTable.Rows(aTable.Rows.Count).Columns(1)
For x = aTable.Rows(aTable.Rows.Count).Row To aTable.Rows(1).Row Step -1
If aName <> aTable.Rows(x - aTable.Rows(1).Row).Columns(1) Then Rows(x).Insert xlDown
aName = aTable.Rows(x - aTable.Rows(1).Row).Columns(1)
Next
End Sub
musite mat selectnutu tabulku a konroluje to duplicitu len v prvom stlpcicitovat
ale napr. takto:
Sub test()
Set aTable = Selection
aName = aTable.Rows(aTable.Rows.Count).Columns(1)
For x = aTable.Rows(aTable.Rows.Count).Row To aTable.Rows(1).Row Step -1
If aName <> aTable.Rows(x - aTable.Rows(1).Row).Columns(1) Then Rows(x).Insert xlDown
aName = aTable.Rows(x - aTable.Rows(1).Row).Columns(1)
Next
End Sub
musite mat selectnutu tabulku a konroluje to duplicitu len v prvom stlpcicitovat
A na karte Udaje > medzisúčty ti to nevyhovuje?
To robí presne to čo požaduješ. Teda z tej vzorky čo si uviedla.citovat
To robí presne to čo požaduješ. Teda z tej vzorky čo si uviedla.citovat
(27.7.2015 12:21)#025996
Třikrát huráááá!!!! 
Funguje perfektně, mám 13tis řádků, takže mám spoustu ušetřeného času. Mockrát děkuji!!!citovat
Funguje perfektně, mám 13tis řádků, takže mám spoustu ušetřeného času. Mockrát děkuji!!!citovat
Iska napsal/a:
Třikrát huráááá!!!!
Funguje perfektně, mám 13tis řádků, takže mám spoustu ušetřeného času. Mockrát děkuji!!!
A čo ti funguje? Akosi som nepochopil:
citovatUživatelské menu
Nejste přihlášen(a)
\n
\nFormulář 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