Yazılan satırı sayfa 2 ye kayıt ve alt satıra oto geçiş yarıdm.

[caydacira23]

Merhaba hocalarım ekte gönderdiğim exel dosyasında belirlediğim yerleri sayfa2 de 1.satıra yazma temizle butonuna bastığımda yazdıklarımı temizle ve yine sayfa2 de bu kez 2.satira yazma butonu eklemek istiyorum ama yapamadım aslında çok kolay ama bilmediğimizden bize çok zor geliyor ekteki exel dosyasındada açıkladım bakarsanız daha iyi anlarsınız hiç bilgim yok düzenleyip tekrar atarsanız sevinirim.

Kolay Gelsin
İYi Çaılmalar.

 

[Mehmet Şahin]

Merhaba,
düğmelere aşağıdaki kodları ekleyerek deneyiniz. İyi geceler.

Sub Düğme9_Tıklat()
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
sat = s2.[b65536].End(3).Row + 1
    If sat <= 2 Then
    bas = 0
    Else
    bas = s2.Cells(sat - 1, "a")
    End If
    If s1.[b4] = "" Or s1.[b5] = "" Or s1.[b6] = "" Then
    MsgBox "Gerekli alanları doldurunuz"
    GoTo son
    End If
    If Application.WorksheetFunction.CountIf(s2.Range("d2:d" & sat), s1.[b5]) > 0 Then
        MsgBox "Kayıt mevcuttur"
        GoTo son
    Else
        s2.Cells(sat, "a") = bas + 1
        s2.Cells(sat, "b") = s1.[e9]
        s2.Cells(sat, "d") = s1.[b5]
        s2.Cells(sat, "e") = s1.[c4]
        s2.Cells(sat, "f") = s1.[d4]
        s2.Cells(sat, "g") = s1.[b4]
        c = Split(s1.[b6], " ", -1, vbTextCompare)
        s2.Cells(sat, "h") = c(0)
        s2.Cells(sat, "ı") = c(1)
        MsgBox "Kaydedildi!"
        s1.Range("b4:b6").ClearContents
    End If
son:
Set s1 = Nothing: Set s2 = Nothing
End Sub

Sub Düğme8_Tıklat()
Sheets("Sayfa1").Range("b4:b6").ClearContents
End Sub

 

[caydacira23]

Teşekkürler kodları aldım ve uyarladım işimi gördü sağol dentex hocam