KAYDETME KODU

[officer08]

Ekte gönderdiğim örnek excelimde, birtane database sayfam ve bir de userform1 var. Userformu açınca yapmak istediğimi label içerisinde açıklamaya çalıştım. Konuyu kısaca burada da açıklamam gerekirse:

Userformda; numaraların girildiği 3 adet textbox, tarihin girildiği textbox, şehir girilen textbox, tren ve gemi olarak seçmeyi sağlayan 2 adet optionbutton ve kaydet butonu var.
Amacım girilen her numara için diğer bilgiler hepsinin karşısında aynı olacak şekilde alt alta boş satırlara gelecek şekilde database sayfasına kayıt yapmak. Şimdiden teşekkür ederim.

Örnek excel link: https://www.dosya.tc/server40/1jtx5p/Ornek.xlsm.html

 

[officer08]

Öncelikle herkese kolay gelsin. İlk defa bu forumdan cevap alamadım, acaba anlatamadın mı, ya da olmayacak bişey mi istedim çözemedim. Normalde üstadlar hemen yardımcı olurlardı. Halbuki örnek excelde kaydet kodları hazırdı sadece biraz değiştirilecekti yapamadım o şekilde. Neyse canınız sağolsun 1 kere cevap alamadık diye küscek değiliz çok defa yardımımıza koştular burdan

 

[YUSUF44]

Aynı işlemi üç kez alt alta gelecek şekilde yapabilirsiniz:

Private Sub CommandButton1_Click()
    Set s1 = Sheets("database")
    ss = s1.Cells(Rows.Count, 1).End(3).Row
    
    s1.Cells(ss + 1, 1) = ss
    s1.Cells(ss + 1, 2) = TextBox3.Text
    s1.Cells(ss + 1, 4) = ComboBox1.Text
    s1.Cells(ss + 1, 3) = TextBox1.Text
    
    If OptionButton1 = True Then
        s1.Cells(ss + 1, 5) = "TREN"
    ElseIf OptionButton2 = True Then
        s1.Cells(ss + 1, 6) = "GEMİ"
    End If
    
    s1.Cells(ss + 2, 1) = ss + 1
    s1.Cells(ss + 2, 2) = TextBox4.Text
    s1.Cells(ss + 2, 4) = ComboBox1.Text
    s1.Cells(ss + 2, 3) = TextBox1.Text
    
    If OptionButton1 = True Then
        s1.Cells(ss + 2, 5) = "TREN"
    ElseIf OptionButton2 = True Then
        s1.Cells(ss + 2, 6) = "GEMİ"
    End If
        
    s1.Cells(ss + 3, 1) = ss + 2
    s1.Cells(ss + 3, 2) = TextBox5.Text
    s1.Cells(ss + 3, 4) = ComboBox1.Text
    s1.Cells(ss + 3, 3) = TextBox1.Text
    
    If OptionButton1 = True Then
        s1.Cells(ss + 3, 5) = "TREN"
    ElseIf OptionButton2 = True Then
        s1.Cells(ss + 3, 6) = "GEMİ"
    End If
End Sub

 

[officer08]

Yusuf44 çok teşekkür ederim, tam istediğim gibi sonuç verdi. Sağolun.

 

[officer08]

Yusuf Bey peki eğer numaralardan biri boşsa database sayfasında o satıra bişey yazdırmasın atlasın için ne yapmak lazım.

 

[YUSUF44]

Şöyle olabilir:

Private Sub CommandButton1_Click()
    Set s1 = Sheets("database")
    
    If TextBox3 <> "" Then
        ss = s1.Cells(Rows.Count, 1).End(3).Row
        s1.Cells(ss + 1, 1) = ss
        s1.Cells(ss + 1, 2) = TextBox3.Text
        s1.Cells(ss + 1, 4) = ComboBox1.Text
        s1.Cells(ss + 1, 3) = TextBox1.Text
        If OptionButton1 = True Then
            s1.Cells(ss + 1, 5) = "TREN"
        ElseIf OptionButton2 = True Then
            s1.Cells(ss + 1, 6) = "GEMİ"
        End If
    End If
    
    If TextBox4 <> "" Then
        ss = s1.Cells(Rows.Count, 1).End(3).Row
        s1.Cells(ss + 1, 1) = ss
        s1.Cells(ss + 1, 2) = TextBox4.Text
        s1.Cells(ss + 1, 4) = ComboBox1.Text
        s1.Cells(ss + 1, 3) = TextBox1.Text
    
        If OptionButton1 = True Then
            s1.Cells(ss + 1, 5) = "TREN"
        ElseIf OptionButton2 = True Then
            s1.Cells(ss + 1, 6) = "GEMİ"
        End If
    End If
    
    If TextBox5 <> "" Then
        ss = s1.Cells(Rows.Count, 1).End(3).Row
        s1.Cells(ss + 1, 1) = ss
        s1.Cells(ss + 1, 2) = TextBox5.Text
        s1.Cells(ss + 1, 4) = ComboBox1.Text
        s1.Cells(ss + 1, 3) = TextBox1.Text
        
        If OptionButton1 = True Then
            s1.Cells(ss + 1, 5) = "TREN"
        ElseIf OptionButton2 = True Then
            s1.Cells(ss + 1, 6) = "GEMİ"
        End If
   End If
End Sub

 

[officer08]

Yusuf Bey çok yardımcı oldun sağolasın iyiki varsın