Belirli sayıda hücre atlayarak kayıt yaptırma

[bhdr]

Herkese kolay gelsin;

Ek' te gönderdiğim dosyada bir userform oluşturdum ve bu user form ile veriler gerekli hücrelere giriyor.En azından ilk satır için.

Ancak ikinci adıma geçmem için belirli sayıda hücre atlaması gerekiyor makronun.Yani kayıt yapılacak makronun bir sonraki adımı tabloda sarı ile boyadığım noktalar olması gerekiyor.

Yardımlarınız için teşekkürler.

 

[askm]

Kaydet butonu kodlarını aşağıdaki kodlar ile değiştirin.

Private Sub CommandButton1_Click()
Dim satir, son As Long
son = Range("A" & Rows.Count).End(xlUp).Row
For i = 7 To son Step 6
    If Cells(i, 5) = Empty Then
        satir = i
        Exit For
    End If
Next i
        Sayfa2.Cells(satir + 2, 5) = ComboBox1.Value
        Sayfa2.Cells(satir + 1, 2) = ComboBox2.Value
        Sayfa2.Cells(satir, 5) = ComboBox3.Value & "-" & ComboBox4.Value
        Sayfa2.Cells(satir + 1, 7) = ComboBox5.Value
        Sayfa2.Cells(satir + 1, 10) = ComboBox8.Value
        Sayfa2.Cells(satir + 1, 11) = ComboBox6.Value
        Sayfa2.Cells(satir + 1, 12) = ComboBox7.Value
End Sub

 

[bhdr]

Kaydet butonu kodlarını aşağıdaki kodlar ile değiştirin.

Private Sub CommandButton1_Click()
Dim satir, son As Long
son = Range("A" & Rows.Count).End(xlUp).Row
For i = 7 To son Step 6
    If Cells(i, 5) = Empty Then
        satir = i
        Exit For
    End If
Next i
        Sayfa2.Cells(satir + 2, 5) = ComboBox1.Value
        Sayfa2.Cells(satir + 1, 2) = ComboBox2.Value
        Sayfa2.Cells(satir, 5) = ComboBox3.Value & "-" & ComboBox4.Value
        Sayfa2.Cells(satir + 1, 7) = ComboBox5.Value
        Sayfa2.Cells(satir + 1, 10) = ComboBox8.Value
        Sayfa2.Cells(satir + 1, 11) = ComboBox6.Value
        Sayfa2.Cells(satir + 1, 12) = ComboBox7.Value
End Sub

Çok teşekkür ederim emeğinize sağlık.

 

[askm]

Rica ederim kolay gelsin.