seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
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:
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:
Ekli dosyalar
-
15.4 KB Görüntüleme: 3