Excel makro - kopírování buněk

[Grift]

Ahoj, chtěl bych se zeptat na dotaz pro vás asi naprosto rychlý a jednoduchý. Potřebuji z listu List1 v sešitu v excelu vypsat všechny neprázdné buňky ve sloupci B do listu List2. První buňka je B6 a nevím si rady. Zkoušel jsem různé kódy pomocí Range... Copy a pak Paste, ale to vždy zkopírovalo i s formátem takže například B6 s textem pak B7 bez textu až do B10 poté B11 text atd ... . V mém případu jde o kopírování neprázdných buněk pod sebe. Přikládám Excel a výsledkem by mělo být na listu List2 pouze Vypsane pod sebou ODD1, ODD2, ODD3, ODD4, .... . Předem děkuji za odpověď a jakoukoliv radu.

Sešit1.xlsx

(8.43 KiB) Staženo 137 x

[atari]

Máš to pro prvních 1000 řádků, Pokud by jsi chtěl více, tak si přepiš hodnotu. Je to makro bez jakýkoliv kontrol a ošetření.

Kód: Vybrat vše

Sub radky()
pocetradku = 1000 'hodnotu si můžeš zvětšit
radkylist2 = 1

Application.ScreenUpdating = False
Sheets("List1").Select

For i = 4 To pocetradku
    If IsEmpty(Cells(i, 2)) Then
    Else
        Worksheets("List2").Cells(radkylist2, 1) = Cells(i, 2)
        radkylist2 = radkylist2 + 1
    End If
Next i
Sheets("List2").Select
Application.ScreenUpdating = False
End Sub