Sutuna şartlı kayıt sorunu

[seddur]

Merhaba.Aşağıdaki kod ile userformdan seçili checkboxa göre istenen sutuna kayıt yapıyorum ancak ekran alıntısında göründüğü gibi örneğin "B" ve "C" sutununa kayıt yaptığımda "C" sutunu kayıt yapması gereken satırın bir altına kayıt yapıyor.Acaba nasıl düzeltebiliriz.Şimdiden Teşekkür ederim

Private Sub CommandButton2_Click()
Dim s1 As Worksheet
Dim i As Integer

Set s1 = Sheets("GİDERLER")
i = Sheets("GİDERLER").Cells(Rows.Count, "b").End(3).Row + 1
If i < 3 Then i = 3
If CheckBox1.Value = True Then
s1.Cells(i, 2) = UserForm3.TextBox1
Else
If CheckBox2.Value = True Then
s1.Cells(i, 3) = UserForm3.TextBox1
Else
If CheckBox3.Value = True Then
s1.Cells(i, 4) = UserForm3.TextBox1
Else
If CheckBox4.Value = True Then
s1.Cells(i, 5) = UserForm3.TextBox1
Else
If CheckBox5.Value = True Then
s1.Cells(i, 6) = UserForm3.TextBox1
Else
If CheckBox6.Value = True Then
s1.Cells(i, 7) = UserForm3.TextBox1
End If: End If: End If: End If: End If: End If:

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki satır hep B sütunundaki son boş satırı arıyor.

i = Sheets("GİDERLER").Cells(Rows.Count, "b").End(3).Row + 1

Siz C sütunu için kayıt yapmak istediğinizde B sütunundaki ilk boş satır arttığı için kaymalar oluyor.

Ben olsam üstteki satırı kullanmadan aşağıdaki gibi uygulardım.

Mesela aşağıdaki satır yerine;

s1.Cells(i, 3) = UserForm3.TextBox1


Bu şekilde kullanırdım;

s1.Cells(s1.Rows.Count, 3).End(3)(2, 1) = UserForm3.TextBox1

Diğer satırlarıda bu mantıkla sütun numarasına (son satırdaki bold bölüm) dikkat ederek kendiniz uyarlayınız.