Offset ile ilgili kayıt problemi

[kelkitli]

Değerli Dostlar Selamlar,

UserForm1("TextBox1,TextBox2,TextBox3,TextBox4,TextBox5,TextBox6").Copy
Sayfa1.Select
Son_Satır = Range("B65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("B65536").End(3).Offset(1).Select
For a = 0 To 5
ActiveCell.Offset(0, a).Value = UserForm1.Controls("Textbox" & a + 1).Value
Next a
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
ActiveCell.Offset(0, 6).Value = UserForm1.ComboBox1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
Application.CutCopyMode = False
MsgBox "KAYIT TAMAMLANDI"

Bu kodlarla kayıt yapmaktayım.
Ancak şöyle bir sorunla karşılaştım.

UserForm1("TextBox1,TextBox2,TextBox3,TextBox4,TextBox5,TextBox6").Copy
Sayfa1.Select
Son_Satır = Range("[COLOR="Red"]C[/COLOR]65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("[COLOR="Red"]C[/COLOR]65536").End(3).Offset(1).Select

TextBox1 deki veri (TC Kimlik) B sütununa denk geliyor.
Ancak TC Kimlik bilgisi varsa kaydediliyor, yoksa diğer bilgiler yazılıp TC Kimlik boş bırakılıyor. Bundan dolayı son satır denetimini C sütununa göre ayarlayıp,eğer TextBox1 doluysa C deki en son dolu satıra göre bir alt satırdaki B yi seçip kayıt yapmalıyım. Eğer TextBox1 boş ise C nin en sonundaki boş satırı seçip kayıt yapmalıyım.

Range("C65536").End(3).Offset(1).Select

yi B ye nasıl kaydırırım.

 

[kelkitli]

Tamam sonucu buldum.

Range("C65536").End(3).Offset(1,-1).Select