Kaydet Makrosu Hata

[nihatra]

Private Sub CommandButton1_Click()
Son_Dolu_Satir = Sheets("Kararname").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Kararname").Range("A" & Bos_Satir).Value = Application.WorksheetFunction.Max(Sheets("Kararname").Range("A:A")) + 1
Sheets("Kararname").Range("B" & Bos_Satir).Value = TextBox2.Text
End Sub

Kararname isimli excel sayfasına veri kaydetmek istiyorum. yukarıdaki kod 1. satrdan başlayarak kayıt ediyor.Kararname sayfasının 33. satırının B sütnüna kayıt nasıl yapılır.

 

[yanginci34]

B sütunun 33. hücresine kadar olan hücreleri boşmu ?

 

[nihatra]

B sütunun 33. hücresine kadar olan hücreleri dolu
yani B sütunun 33. hücresinden itibaren kayıt etmeye başlayacak

 

[asi_kral]

B sütunun 33. hücresine kadar olan hücreleri dolu
yani B sütunun 33. hücresinden itibaren kayıt etmeye başlayacak

Merhaba

Private Sub CommandButton1_Click()
If Sheets("Kararname").Range("B65536").End(xlUp).Row < 33 Then
son_dolu_satir = 33
Else
son_dolu_satir = Sheets("Kararname").Range("B65536").End(xlUp).Row
End If
Bos_Satir = son_dolu_satir + 1
Sheets("Kararname").Range("A" & Bos_Satir).Value = Application.WorksheetFunction.Max(Sheets("Kararnam e").Range("A:A")) + 1
Sheets("Kararname").Range("B" & Bos_Satir).Value = TextBox2.Text
End Sub

Bu şekilde dener misiniz ?

 

[yanginci34]

örnek dosya ekleye bilirmisiniz?

 

[nihatra]

Private Sub CommandButton1_Click()
If Sheets("Kararname").Range("c65536").End(xlUp).Row < 33 Then
son_dolu_satir = 31
Else
son_dolu_satir = Sheets("Kararname").Range("c65536").End(xlUp).Row
End If
Bos_Satir = son_dolu_satir + 1
Sheets("Kararname").Range("c" & Bos_Satir).Value = ComboBox3
Sheets("Kararname").Range("d" & Bos_Satir).Value = ComboBox4
Sheets("Kararname").Range("e" & Bos_Satir).Value = TextBox6.Text
Sheets("Kararname").Range("e" & Bos_Satir).Value = TextBox7.Text
End Sub

teşekkür ederim bu şekli ile oldu
ancak
e32 ye TextBox6.Text
e33' e TextBox7.Text
e34' e TextBox8.Text
gibi nasıl yazdırabilirim.

 

[asi_kral]

Sorunuzu net anlayamadım.

 

[nihatra]

"E" sütünü 32. satıra TextBox6.Text
"E" sütünü 33. satıra TextBox7.Text
"E" sütünü 34. satıra TextBox8.Text

gibi nasıl yazdırabilirim.

 

[asi_kral]

"E" sütünü 32. satıra TextBox6.Text
"E" sütünü 33. satıra TextBox7.Text
"E" sütünü 34. satıra TextBox8.Text

gibi nasıl yazdırabilirim.

Bu şekilde mi olacak ?

Private Sub CommandButton1_Click()
If Sheets("Kararname").Range("c65536").End(xlUp).Row < 33 Then
son_dolu_satir = 31
Else
son_dolu_satir = Sheets("Kararname").Range("c65536").End(xlUp).Row
End If
Bos_Satir = son_dolu_satir + 1
Sheets("Kararname").Range("c" & Bos_Satir).Value = ComboBox3
Sheets("Kararname").Range("d" & Bos_Satir).Value = ComboBox4
Sheets("Kararname").Range("e32").Value = TextBox6.Text
Sheets("Kararname").Range("e33").Value = TextBox7.Text
Sheets("Kararname").Range("e34").Value = TextBox8.Text
End Sub

 

[nihatra]

Bu şekli ile oldu ancak
Sheets("Kararname").Range("e32").Value = TextBox6.Text
Sheets("Kararname").Range("e33").Value = TextBox7.Text
Sheets("Kararname").Range("e34").Value = TextBox8.Text
kaydettikten sonra başka bir isim seçip
Sheets("Kararname").Range("e35").Value = TextBox6.Text
Sheets("Kararname").Range("e36").Value = TextBox7.Text
Sheets("Kararname").Range("e37").Value = TextBox8.Text
gibi boş satırın alından sürekli kayıt etmeye devam edecek.

 

[asi_kral]

Bu üç textbox ayrı mı çalışacak onu mu istiyorsunuz ?
E sütununda boş yere göre mi çalışacak hep.
Bu şekilde deneyin.

Private Sub CommandButton1_Click()
If Sheets("Kararname").Range("c65536").End(xlUp).Row < 33 Then
son_dolu_satir = 31
Else
son_dolu_satir = Sheets("Kararname").Range("c65536").End(xlUp).Row
End If
bos_Satir = son_dolu_satir + 1
bos_Satir2 = Sheets("Kararname").Range("E65536").End(xlUp).Row
Sheets("Kararname").Range("c" & bos_Satir).Value = ComboBox3
Sheets("Kararname").Range("d" & bos_Satir).Value = ComboBox4
Sheets("Kararname").Range("e" & bos_Satir2).Value = TextBox6.Text
Sheets("Kararname").Range("e" & bos_Satir2 + 1).Value = TextBox7.Text
Sheets("Kararname").Range("e" & bos_Satir2 + 2).Value = TextBox8.Text
End Sub

 

[nihatra]

Ünvanı Adı Soyadı Branşı Dersler

Sınıf Öğretmeni Ahmet Sınıf Öğretmeni aaaa
bbb
ccc
ddd
Okul Öncesi Öğret. Ahmet Okul Öncesi Öğret. eeee
ffff
ggg
hhh

gibi kayıt edecek.

 

[asi_kral]

Dosya ekler misiniz ?
Nasıl kayıt yapılacağını da gösteriniz