Soru sayfaya kaydetme

[sirkülasyon]

On Error Resume Next
With Sheets("Sayfa4")
Satır = .Range("E4:E65536").End(3).Row + 1
For a = 0 To 2
    .Cells(Satır + a, 5) = Me.Controls("ComboBox" & a + 1).Value
    .Cells(Satır + a, 10) = Me.Controls("textbox" & a + 1).Value
Next
End With
Unload Me

Şu an ki hali ile E2 den itibaren aktarıyor.
E4 den itibaren alt alta e6 ya kadar aktarmayı başaramadım. Rica etsem yardımcı olabilir misiniz?

 

[ÖmerFaruk]

Satır = .Range("E" & Rows.Count).End(3).Row + 1

Son dolu hücreniz E3 ise

 

[sirkülasyon]

Ömer bey sayfaya aktarmadı.

 

[ÖmerFaruk]

İlk kod aktarıyorsa bu da aktarır.

 

[sirkülasyon]

İlk kod E2 hücresinden itibaren aktarıyordu. Sadece E4 hücresinden itibaren aktarmasını sağlayamamıştım.