[Çözüldü] Alt alta ekleme

[yesilyurtlu]

Private Sub CommandButton1_Click()
Dim Say As Integer

If TextBox1 = Empty Then MsgBox "Okul Adı yazılmadı!", vbCritical, "Hata!": Exit Sub
If TextBox2 = Empty Then MsgBox "İşletme Kodu Yazılmadı", vbCritical, "Hata!": Exit Sub
If TextBox3 = Empty Then MsgBox "Abone Numarası yazılmadı!", vbCritical, "Hata!": Exit Sub
If TextBox4 = Empty Then MsgBox "Fatura Tarihi yazılmadı!", vbCritical, "Hata!": Exit Sub
If TextBox5 = Empty Then MsgBox "Fatura Tutarı yazılmadı!", vbCritical, "Hata!": Exit Sub

Say = Worksheets("GELEN").Range("B16").End(3).Row
Worksheets("GELEN").Range("B" & Say + 1) = Say
Worksheets("GELEN").Range("C" & Say + 1) = TextBox2.Value
Worksheets("GELEN").Range("D" & Say + 1) = TextBox3.Value
Worksheets("GELEN").Range("E" & Say + 1) = TextBox4.Value
Worksheets("GELEN").Range("F" & Say + 1) = TextBox5.Value



yukarıdaki koda alt alta eklemesi için ne eklenecekse yardımcı olabilir misiniz?

[Orion1]

Say = Worksheets("GELEN").Range("B65536").End(3).Row

[yesilyurtlu]

Evren abi Teşekkür ederim.

Evren Abi ayrıca eklediğim dosya Bülent abinin diğer sitede iken yardımcı olduğu bir program.
bu programda YAZI sayfasında ki bilgileri diğer sayfaya alt alta aktarmama yardımcı olabilir misiniz?

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

Projenizde vba şifreli.
Şifreli vba ya yardım yapılmıyor.
Ama ben bir kereliğine kodu yazdım.
3 veriyi kaydet kodunu yazdım diğerlerini siz yazınız.

Kod: [Seç]

Sub aktar()
Dim sat As Long, sh As Worksheet
Sheets("YAZI").Select
Set sh = Sheets("Sayfa1")
sat = sh.Cells(65536, "B").End(xlUp).Row + 1
If sat >= 65533 Then
    MsgBox "Aktarılacak olan sayfada satır doldu." & vbLf & "Kayıt girilmedi.", vbCritical, "UYARI"
    Exit Sub
End If
If Range("D9").Value = "" Then
    MsgBox "Sayı Bölümü boş olamaz." & vbLf & "Kayıt girilmedi.", vbCritical, "UYARI"
    Range("D9").Select
    Exit Sub
End If
'BU aralığa verilerinizi giriniz.
'================================================
sh.Cells(sat, "A").Value = sat - 3
sh.Cells(sat, "B").Value = Cells(9, "D").Value
sh.Cells(sat, "D").Value = Cells(10, "D").Value

'==================================================
sh.Select
Cells(sat, "A").Select
MsgBox "Kayıt girildi.", vbOKOnly + vbInformation
End Sub


[yesilyurtlu]

Evren Abi VBA' ya şifre girmesini bilmiyordum. Bu sitede yine sizin resimli anlatmanız sayesinde öğrendim. Hemen denedim ama siteye soruyu gönderirken VBA şifresini unuttum. çok çok özür dilerim. Şifre 0000 dört tane sıfır.

Yinede acemiliğimizi mazur görüp yardımınızı esirgemediğiniz için sonsuz teşekkür ederim abi.

[Orion1]

Evren Abi VBA' ya şifre girmesini bilmiyordum. Bu sitede yine sizin resimli anlatmanız sayesinde öğrendim. Hemen denedim ama siteye soruyu gönderirken VBA şifresini unuttum. çok çok özür dilerim. Şifre 0000 dört tane sıfır.

Yinede acemiliğimizi mazur görüp yardımınızı esirgemediğiniz için sonsuz teşekkür ederim abi.

Estafurullah .
İyi çalışmalar.