Diskuzní forum: Visual Basic

Zdravím,
řeším problém, jak v MS Excel udělat výběr ze sloupce čísel tak, abych do jiného sloupce vypsal každou x-tou buňku. Našel jsem nějaké makro, ale nevím, jak to zařídit tak, abych vytvořil například vlastní funkci s parametry ... třeba vyberXtychPolozek(zdrojSloupec, cilSloupec, x). Je tady někdo, kdo by mi byl schopen poradit?
Děkuji

ještě přikládám kód makra, který jsem našel:

Sub kazdaDesata()
Application.ScreenUpdating = False
Columns("C:C").Select
Selection.ClearContents
Range("c1").Value = "KazdaDesata"
If WorksheetFunction.CountA(Cells) > 0 Then
Last_Row = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End If
a = 1
n = 2
Do While a <= Last_Row
Cells(a, 1).Copy
Cells(n, 3).Select
ActiveSheet.Paste
n = n + 1
a = a + 10
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Snad tento kod vyresi vas problem:

Public Sub vyberXtychPolozek(zdrojSloupec As String, cilSloupec As String, x As Long, posledniRadek As Long, razeni As Boolean)
    Dim i As Long
    Dim sum As Long
        sum = 0
    For i = 1 To posledniRadek Step x
        sum = sum + 1
        If razeni = True Then
            ActiveSheet.Range(cilSloupec & sum) = List1.Range(zdrojSloupec & i)
        Else
            ActiveSheet.Range(cilSloupec & i) = List1.Range(zdrojSloupec & i)
        End If
        
    Next
End Sub

Pouziti:

vyberXtychPolozek "A", "B", 3, 20, True