[Yardım]  CommandButton Aracılığıyla Başka Sayfaya Veri Taşıma

Komut düğmesi. Komutlarınızı çalıştırmak için tıklayacağınız düğme modeli.

CommandButton Aracılığıyla Başka Sayfaya Veri Taşıma

İleti#1)  anaksimandros » 07 Kas 2019 09:26

Arkadaşlar hepinize kolay gelsin. Olayı anlatayım öncelikle;

"Personel Veritabanı" sayfamda açılır listem var. İçerisinde "Asil","Aday" ve "Ayrıldı" seçenekleri mevcut. Aşağıda paylaşacağım kod aracılığıyla "Ayrıldı" seçeneği işaretlendiğinde ilgili kişi "Personel Veritabanı"ndan silinerek "Ayrılan Personel" sayfasına aktarılmaktadır.

Benim burada sizden yardımını istediğim konu bunu excel sayfası aracılığıyla değil de userform'a koyacağım buton aracılığıyla yapmak istiyorum ve yardımlarınızı bekliyorum. Teşekkürler.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Intersect(Target, [L2:L1000]) Is Nothing Then Exit Sub

Application.ScreenUpdating = False

    If Target.Value = "AYRILDI" Then

        cevap = MsgBox(Cells(ActiveCell.Row, "B") & " adlı " & Chr(34) & Cells(ActiveCell.Row, "C") & Chr(34) & " sicil numaralı personel Ayrılanlar sayfasına taşınacaktır. Onaylıyor musunuz ?", vbYesNo + vbQuestion, "UYARI", 500, 50) = vbNo

            If cevap = True Then
            Target.Value = ""
            AsilAdayForm.Show
            Exit Sub
            End If
   
            a = Target.Row: son = Sheets("Ayrılan Personel").Cells(65355, "A").End(3).Row + 1
                    Sheets("Ayrılan Personel").Range("B" & son) = Sheets("Personel Veritabanı").Range("B" & a)
                    Sheets("Ayrılan Personel").Range("C" & son) = Sheets("Personel Veritabanı").Range("C" & a)
                    Sheets("Ayrılan Personel").Range("D" & son) = Sheets("Personel Veritabanı").Range("D" & a)
                    Sheets("Ayrılan Personel").Range("E" & son) = Sheets("Personel Veritabanı").Range("E" & a)
                    Sheets("Ayrılan Personel").Range("F" & son) = Sheets("Personel Veritabanı").Range("G" & a)
                    Sheets("Ayrılan Personel").Range("G" & son) = Sheets("Personel Veritabanı").Range("R" & a)
                    Sheets("Ayrılan Personel").Range("H" & son) = Sheets("Personel Veritabanı").Range("I" & a)
                    Sheets("Ayrılan Personel").Range("I" & son) = Sheets("Personel Veritabanı").Range("J" & a)
                    Sheets("Ayrılan Personel").Range("J" & son) = Sheets("Personel Veritabanı").Range("K" & a)
                    Sheets("Ayrılan Personel").Range("K" & son) = Date
                    Sheets("Ayrılan Personel").Range("A2:A600").ClearContents
       
            For t = 2 To son
                If Not Sheets("Ayrılan Personel").Cells(t, 2) = "" Then
                    sr = sr + 1
                    Sheets("Ayrılan Personel").Cells(t, 1) = sr
                End If
            Next t
               
            Sheets("Ayrılan Personel").Range("A2" & ":" & "K" & son).Borders.LineStyle = xlContinuous

            Sheets("Personel Veritabanı").Rows(a).Delete
            Sheets("Personel Veritabanı").Range("A2:A600").ClearContents
            son1 = Sheets("Personel Veritabanı").Cells(65355, "B").End(3).Row + 1
           
            For s = 2 To son1
                If Not Sheets("Personel Veritabanı").Cells(s, 2) = "" Then
                    Nr = Nr + 1
                    Sheets("Personel Veritabanı").Cells(s, 1) = Nr
                End If
            Next s

Application.ScreenUpdating = True
        MsgBox "İşlem tamamlanmıştır." & vbCrLf & "Personel, Ayrılanlar sayfasına taşınmıştır. Ayrılan personel bilgilerini tamamlamak için Ayrılanlar sayfasını ziyaret edebilirsiniz."
    End If
End Sub
Kullanıcı avatarı
anaksimandros
İsimsiz Üye
 
Adı Soyadı:kazım kazım
Kayıt: 18 Oca 2012 13:49
İleti: 1
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ağrı

Forum CommandButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe