Belirtilen satırdan sonra kayıt

[muratozmenler]

Selamlar
30 ncu satırdan sonra sıra ile kayıt yaptırmak istiyordum fakat 30 a kadar satır boş olsa bile 30 dan başlayacak devam edecek.

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Private Sub CommandButton1_Click()
    ss = [B65536].End(3).Row + 1
    Cells(ss, 1).Value = ss - 30
    Cells(ss, 2).Value = TextBox1.Text
    Cells(ss, 3).Value = TextBox2.Text
End Sub

 

[muratozmenler]

teşekkür ederim
fakat eksik anlatmışım kusura bakmayın dosyayı tekrar gönderiyorum

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[muratozmenler]

Teşekkür ederim sayın dede tam istediğim gibi olmuş.
Iyi çalışmalar dilerim.

 

[dEdE]

Rica ederim.
İyi çalışmalar.