Bir sürü checkbox var...İşaretli olan verileri boş satıra alt alta almak için yardım?

[fikret.akbaba]

Yusuf bey gerçekten çok teşekkür ederim. Şimdi oldu.

Commandbutton1'in kodlarını aşağıdakilerle değiştirip deneyin:

Private Sub CommandButton1_Click()
Dim sh As Worksheet, i As Integer, s As Integer
Sheets("Alım Takip").Select
Set sh = Sheets("Alım Takip")
sat = sh.Range("A56789").End(3).Row + 1
With Me
    sh.Range("A" & sat).Value = CDate(Label30.Caption)
    sh.Range("B" & sat).Value = txtserikod.Text
    sh.Range("C" & sat).Value = txtfirmaunvan.Text
    s = 4
    For i = 1 To 4
        If .Controls("CheckBox" & i).Value = True Then
            If .Controls("tip" & i).Value <> "" Then
                Sheets("Alım Takip").Cells(sat, s).Value = .Controls("tip" & i).Value
            End If
            If .Controls("agirlik" & i).Value <> "" Then
                Sheets("Alım Takip").Cells(sat, s + 1).Value = .Controls("agirlik" & i).Value
            End If
        End If
        s = s + 2
    Next i
End With
End Sub