Listbox-výpis hodnot z listboxu do buňky Vyřešeno

[Fanatig]

Dobrý den,
tak jsem tu zas s dalším zádrhelem,tak doufám,že mi zas vypomůžete:)
Tak v čem lpí můj problém.Mam vytvořený listbox s 10 sloupci a ,,n "řádky.Z listboxu potřebuji vyčíst všechny řádky a vypsat je do vedlejšího listu,tak aby se vkládal celý řádek, a tím docházelo k posunu řádků pod nimi.
Kód jsem se snažil nějak poskládat z různých fór,ale čím víc v tom šťourám, tak tím míň ten kód chodí:D..zatím jsem se snažil jen ukládání z listboxu do určitých buněk a dávání nových řádků.

Příloha:snažil jsem se napodobit ten kód co je dán v příloze

Použitý kód v mém programu:

Private Sub CommandButton1_Click()

Dim NextRow As Long
Dim OptionUnknown

' Přidání dalšího řádku
NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1

Sheets("List1").Cells(1, 2) = ListBox1.List(ListBox1.ListCount - 1, 1)
Worksheets("List1").Cells(1, 11) = Range("E3")
Worksheets("List1").Cells(1, 13) = ListBox1.List(ListBox1.ListCount - 1, 7)
Worksheets("List1").Cells(1, 14) = ListBox1.List(ListBox1.ListCount - 1,
Worksheets("List1").Cells(1, 15) = ListBox1.List(ListBox1.ListCount - 1, 9)

Worksheets("List1").Cells(1, 9) = 1

Worksheets("Výpis").Cells(6, 11) = Now

End Sub

[Reklama]

[d1amond]

Nějak jsem nepochopil ten "listbox". Ten má být kde a co to je?

[Fanatig]

Listbox=Seznam
nalézt lze mezi ovládacími prvky jako prvek ActiveX

[d1amond]

No ale v tom příkladu ho nikde nevidím.

[Fanatig]

tady je ukázka kde je zalezlej:)..http://www.excel-vba-easy.com/vba-userf ... stbox.html ...ale jestli ani pak ho nenacházíš tak to vážně netuším co tam máš za verzi:)

[cmuch]

To D1amond ví kde ho má najít, ale nevidího v Tvé příloze.
Viz

Mam vytvořený listbox s 10 sloupci a ,,n "řádky.Z listboxu potřebuji vyčíst všechny řádky a vypsat je do vedlejšího listu,tak aby se vkládal celý řádek

Toto lépe definuj.

[Fanatig]

NN v té příloze není můj příklad to jsem našel někde na netu...ale chtěl bych, aby to tak podoběn fungovalo jako v něm...akorát stím rozdílem, že ty údaje co oni vytahovali z různých polí, tak ja budu mít jen listbox s 10 sloupci a n řádky.....jinak jestli dobře koukám tak oni tam mají texbox pojmenovaný ,,TXT_obsah_zpravy.Text"....ale jestli to bude lepší s příkladem, tak ještě jeden vytvořím včera večer se mi ho nechtělo tvořit.

--- Doplnění předchozího příspěvku (26 Zář 2012 10:29) ---

tak tady přikládám ještě jeden soubor se vzorem,který jsem rychle spíchnul.......dal jsem tam i ten nefunkční kód co jsem se snažil rozchodit ale nevim jestli jsem tam něco nezapomněl....úkolem této funkce by mělo být překopírování všech údajů z tabulky (Listboxu) do tabulky dole a očíslovat a jestli by to i šlo, tak aby přidával jako řádek a tím pádem by odsouval ten text dole.

[d1amond]

Už mám pár tisíc řádků kódu namačkáno, ale doposud jsem nepochopil, co vlastně chceš Výrazy jako "podobně", "přibližně", "nějak tak" jsou dost zavádějící a chtělo by to naplnit konkrétními daty a na nich vysvětlit, co se má kam přenášet. Spolu s popisem kroků.
Z Tvého zmateného zápisu prostě analýzu problému neudělám.

[Fanatig]

...dobrá zkusím to
konkrétní data tam nemohu vložit pač se mi seznam po uložení vymažou

v přiložený sešitě bych potřeboval udělat toto:
1.po zmáčknutí tlačítka ,,vložit" se přepíšou údaje z textových polí do seznamu do 3 samostatných sloupců------to už funguje
2.vytvoříme si několik ,,n" řádků
3.tlačítko přepsat a.) vloží veškerý údaje ze seznamu do ohraničený tabulky níže
b.)do sloupce ,,A" se připíše pořadové číslo
c.)aby se nepřepsali údaje v ,,řádku 23" , celý ,,řádek 23" posouvat níže

--- Doplnění předchozího příspěvku (26 Zář 2012 23:59) ---

tak část úkolu jsme už vyřešil...už jen úkol c.) to vsunování řádku....pro zájemce tu příklad

[cmuch]

Vložil jsem tam to posouvání řádku.