EXCEL - práce s databází

Ahoj,mozna tohle:Sub test()Dim ws As Worksheetdim As RangeDim arrDim s As StringDim x As IntegerSet ws = ThisWorkbook.Sheets(1)Set rng = ws.Range("A1", ws.Range("A" & Rows.Count).End(xlUp))arr = Application.Transpose(rng.Value)For x = 1 To UBound(arr) If x <> UBound(arr) Then s = s & arr(x) & "," & vbLf Else s = s & arr(x) End IfNext xWorksheets.AddActiveSheet.Range("A1") = sEnd Sub

zde soubor: http://leteckaposta.cz/656234149

a tady jeste moznost[code]Sub test2()Dim arr, i As Longarr = Application.Transpose(Range("A1", Range("A" & Rows.Count).End(xlUp)))Sheets.Add before:=ActiveSheetRange("A1") = Join(arr, "," & vbLf)End Sub[/code]

Ahoj syde, díky za reakci. Dostávám se k tomu až ted. 1/ Snažím se to předělat, ale neumím makra. Jednak ten rozsah A1 až poslední bunka ve sloupci se snažím předělat na výběr, tzn. já vyberu rozsah buněk (selection) a ten výběr přejede přes makro. (https://support.microsoft.com/cs-cz/kb/291308) zkoušel jsem to přes toto a pořád mi to hází chybu: konkrétně ... Set ws = ActiveSheet.Range("a1").CurrentRegion.Select 2/ Je to super, částečně mi to pomůže, ale pořád to nevyřeší můj problém úplně. Jde o to, že se mi vytvoří ten List1. A mým cílem je, aby při změně bunky v databázi (např. z "A" na "AAA") se mi tato změna projevila i v nově vytvořeném listu (List1). Ještě jednou díky za reakci, Syde !

Ahoj,tady najdes soubor: http://leteckaposta.cz/uploaded/190603264Trosku jsem si s tim v ramci vyuky pohral.Najdes tam 2 makra - dlouhe a kratke. Tak si to vyzkousej.Prve jsem to moc dobre nepochopil, ze se jedna o odkazy z jineho listu a chces je zachovat.syd

Ahoj Syde, tak právě jsem to dokončil. Strašně moc mi to pomohlo, bez tvé pomoci bych to dělal tak do konce léta. :)) Ještě jednou obrovský díky a nechť se ti tvá ochota vrátí. Díky, Jakub.

Vyborne,tesi me, ze ti to pomohlo.syd