Soru User Form İle Kaydet Kodları( Farklı Satırlara)

[officer08]

Örnek dosyamda Sayfa1'de A1'den başlayarak ID, SINIF, İSİM SOYİSİM, YAŞ ve RENK başlıklı bir tablom var. Userform1 de yapılan girişlerin bu tabloya kaydedilmesini amaçlıyorum. Ancak biraz farklı olması lazım bu kaydın. Yani Userforma yazıla bilgilerden İSİM SOYİSİM ve YAŞLAR her şahıs için otomatik ID alarak alt alta sıralı bir şekilde kaydedilecek ancak SINIF ve RENK bu satırlara ayrı ayrı ortak bir şekilde yazdırılacak. Çok teşekkür ederim şimdiden.

Örneğin:

ID SINIF İSİM SOYİSM YAŞ RENK
1 11 Hasan Tekin 17 Kırmızı
2 11 Sinan Duru 18 Kırmızı


Burada önemli olan ID nin otomatik sıralanması, şahısların ve yaşların ayrı satırlara ayrılması, sınıf ve renklerin ortak olarak şahısların karşısına ilgili yerlerine kaydedilmesi.

Örnek excel : https://s5.dosya.tc/server7/tieupu/ORNEK.xlsm.html

 

[dEdE]

Merhaba,
Sorunuzu böyle anladım. Dener misiniz?

Private Sub CommandButton1_Click()
    Set s1 = Sheets("Sayfa1")
    ss = s1.Cells(Rows.Count, 1).End(3).Row
    
    s1.Cells(ss + 1, 1) = ss
    s1.Cells(ss + 1, 2) = TextBox6.Text
    s1.Cells(ss + 1, 3) = TextBox1.Text
    s1.Cells(ss + 1, 4) = TextBox2.Text
    s1.Cells(ss + 1, 5) = TextBox5.Text
    
    s1.Cells(ss + 2, 1) = ss + 1
    s1.Cells(ss + 2, 2) = TextBox6.Text
    s1.Cells(ss + 2, 3) = TextBox3.Text
    s1.Cells(ss + 2, 4) = TextBox4.Text
    s1.Cells(ss + 2, 5) = TextBox5.Text
End Sub

 

[officer08]

dEdE çok teşekkür ederim yardımın için tam istediğim gibi oldu.

 

[officer08]

dEdE bu kodları kontrol ettim çalışıyor ancak şöyle bir sorun oluştu. Userformda ikinci isim soyisim girilmemişse sadece birinci isim soyisim ve diğer yazılan bilgilerin tek satır olarak atması gerekiyor. Oysa bu haliyle ikinci isim soyisim girilmese bile sayfa1' e iki satır biden atıyor

 

[dEdE]

Merhaba,
Eksik soru=eksik yanıt Sorularınızı olası tüm durumları içerecek şekilde sormalısınız.
Yukarıdaki kodda;

s1.Cells(ss + 1, 5) = TextBox5.Text

Satırının altına aşağıdaki satırı ekleyiniz.

    If TextBox3.Text = "" Then Exit Sub

 

[officer08]

Çok haklısısn dEdE ben eksik yazmışım, gözden kaçmış dediğini yaptım sorun kalmadı. Teşekkür ederim.Eğer imkanınız ve vaktiniz olursa öğrenmek amacıyla kodla ilgili bir iki şey sormak isterim.

ss = s1.Cells(Rows.Count, 1).End(3).Row
s1.Cells(ss + 1, 1) = ss
s1.Cells(ss + 2, 1) = ss + 1

Bu üç satırda ne yaptırdık kısaca bilgi verebilirmisiniz.Bende ufak ufak öğrensem.

 

[Korhan Ayhan]

Merhaba,

İlk satır A sütunundaki son dolu satır numarasını buluyor.
İkinci satır son dolu satırın bir altına bulunan satır numarasını yazıyor.
Üçüncü satır ise son dolu satırın iki altına bulunan satır numarasının üstüne bir ekleyerek yazıyor.

Yani bir nevi sıra numarası gibi düşünebilirsiniz.

 

[officer08]

Korhan Bey çok teşekkür ederim yardımlarınız için