Soru Bir sayfa'dan diğer sayfaya veri aktarma

A

anaksimandros

Katılım
2 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
30-10-2020
İyi günler arkadaşlar.

Personel verilerini tuttuğumuz bir sayfamız var (sayfa1). Burada durum sütünumuzda açılır kutu içinde "Asil", "Aday" ve "Ayrıldı" şeklinde seçimler mevcut. İstediğim olay;

1) "Ayrıldı" seçimi yapıldığında seçilen personel bilgileri sayfa2'deki tabloya aktarılması.
2) Mümkünse Sayfa1'de "Ayrıldı" olarak işaretlenen personel verilerinin kaldırılması.

İlgilenen ve çözüm üreten herkese şimdiden teşekkürler.
 
cems

cems

Altın Üye
Katılım
2 Eylül 2005
Mesajlar
2,469
Excel Vers. ve Dili
office 2010 tr 32bit
Altın Üyelik Bitiş Tarihi
13-06-2029
İlgilenecek bir dosya gerekli , dış serverlardan birine yüklemenize de gerek yok altın üyesiniz , mesaj altına ekleyebilirsiniz .
 
Ç

çıtır

Katılım
6 Mart 2005
Mesajlar
6,233
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
Dosyanız.
 

Ekli dosyalar

A

anaksimandros

Katılım
2 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
30-10-2020
Bu yapılana ek olarak bir değişken tanımlaması yaptım. Değişken sonucunda if, else kullanarak Yes, No sorusuna göre işlemi onaylama reddetme durumu ekledim. İşlem iptal edildiğinde açılır kutuda "Ayrıldı" seçeneği işaretli kalmakta. Bunu değiştirmeden önceki seçeneğe geri döndürme imkanı var mıdır? Yani özetle;

Asil olan kişi Ayrıldı olarak işaretlendikten sonra işlem iptal edildiğinde tekrar Ayrıldı olarak değil de Asil yazdırılması mümkün müdür?

Dim komut As Integer
Dim mesaj As String
Dim baslik As String

mesaj = "-Ayrıldı- olarak işaretlenen personel ayrılanlar sayfasına taşınacaktır. Onaylıyor musunuz?"
baslik = "Personel Ayrılma İşlemi"
komut = MsgBox(mesaj, vbYesNo + vbCritical, baslik)

If komut = 6 Then
...
Else
...
End If
 
Ç

çıtır

Katılım
6 Mart 2005
Mesajlar
6,233
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
Seçimi iptal ettiğnizde , yeniden sçim yapmanız için oluşturulmuş seçenek çıkar.
 

Ekli dosyalar

A

anaksimandros

Katılım
2 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
30-10-2020
çıtır' Alıntı:
Rica ederim.Dönüş yaptığınız için teşekkür ederim.
Genişletmek için tıkla ...
Üstad sizi yine rahatsız edeceğim ama bu sefer son olacağını düşünüyorum :censored:

Sizden geçen istediğim hücre içerisindeki açılır kutudan "Ayrıldı" olarak seçildiğinde istediğim kısmı personel ekleme&güncelleme&silme userform'una aktarmak istiyorum ve orada da bir buton yardımıyla bunu yapmak istiyorum. Aslında mantığı anladım ama kodlarınız içindeki hiyerarşik yapıyı tam çözemediğim için bunu yapamadım.

Özet olarak;
aşağıda kendimin oluşturduğu, "Personel Bul" butonu yardımıyla veritabanından bulduğum kaydı userform içine bir buton daha ekleyerek "Ayrılana Taşı" butonuyla "Ayrılan Personel" sayfasına taşımak istiyorum.

Teşekkür ederim.

Not: mesaj karakter sınırı nedeniyle bazı buton kodlarını çıkardım.

Kod: 
Dim aranan, sil_satir, degistir_satır, SonSatır, sat As Variant
Private Sub bul_Click()
    On Error GoTo Bitir
    aranan = InputBox("Bulmak istediğiniz kişinin tam ad ve soyadı giriniz.", "Arama Kutusu", "")
    Range("C:C").Find(aranan).Select
    sil_satır = ActiveCell.Row

        id.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "A")
        kurum_sicil.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "B")
        adi_soyadi.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "C")
        unvan.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "D")
        tc_kimlik.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "E")
        birim.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "G")
        ogrenim_durum.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "I")
        cep_no.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "J")
        baslama_tarih.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "K")
        durum.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "L")
        cinsiyet.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "M")
        kan_grup.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "N")
        dogum_tarihi.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "O")
        medeni_hal.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "Q")
        es_no.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "R")
        dogum_yeri.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "S")
        adres.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "T")
        adres_ilce.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "U")
        eposta.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "V")
        isg_tarih.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "W")
        acil_durum.Value = Worksheets("Personel Veritabanı").Cells(sil_satır, "Y")
Exit Sub
Bitir:     MsgBox "Aradığınız personel veritabanında bulunamadı."
End Sub

Private Sub kaydet_Click()
    If kurum_sicil <> "" And adi_soyadi <> "" And tc_kimlik <> "" And unvan <> "" And durum <> "" Then

    If IsNumeric(kurum_sicil.Value) Then
    
    SonSatır = WorksheetFunction.CountA(Worksheets("Personel Veritabanı").Range("A:A")) + 1
    
    If SonSatır = 2 Then
        Worksheets("Personel Veritabanı").Cells(SonSatır, "A") = 1
        Worksheets("Personel Veritabanı").Cells(SonSatır, "B") = kurum_sicil.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "C") = adi_soyadi.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "D") = unvan.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "E") = tc_kimlik.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "G") = birim.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "I") = ogrenim_durum.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "J") = cep_no.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "K") = baslama_tarih.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "L") = durum.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "M") = cinsiyet.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "N") = kan_grup.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "O") = dogum_tarihi.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "Q") = medeni_hal.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "R") = es_no.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "S") = dogum_yeri.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "T") = adres.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "U") = adres_ilce.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "V") = eposta.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "W") = isg_tarih.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "Y") = acil_durum.Value
    Else
        Worksheets("Personel Veritabanı").Cells(SonSatır, "A") = Worksheets("Veritabanı").Cells(SonSatır - 1, "A") + 1
        Worksheets("Personel Veritabanı").Cells(SonSatır, "B") = kurum_sicil.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "C") = adi_soyadi.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "D") = unvan.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "E") = tc_kimlik.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "G") = birim.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "I") = ogrenim_durum.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "J") = cep_no.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "K") = baslama_tarih.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "L") = durum.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "M") = cinsiyet.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "N") = kan_grup.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "O") = dogum_tarihi.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "Q") = medeni_hal.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "R") = es_no.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "S") = dogum_yeri.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "T") = adres.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "U") = adres_ilce.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "V") = eposta.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "W") = isg_tarih.Value
        Worksheets("Personel Veritabanı").Cells(SonSatır, "Y") = acil_durum.Value
    End If
        MsgBox "Personel başarıyla kaydedilmiştir."
    Else
        MsgBox "Kurum Sicili alanına sadece rakamsal değer girilebilir.", vbInformation
    GoTo Son
    End If
        id.Value = ""
        kurum_sicil.Value = ""
        adi_soyadi.Value = ""
        unvan.Value = ""
        tc_kimlik.Value = ""
        birim.Value = ""
        ogrenim_durum.Value = ""
        cep_no.Value = ""
        baslama_tarih.Value = ""
        durum.Value = ""
        cinsiyet.Value = ""
        kan_grup.Value = ""
        dogum_tarihi.Value = ""
        medeni_hal.Value = ""
        es_no.Value = ""
        dogum_yeri.Value = ""
        adres.Value = ""
        adres_ilce.Value = ""
        eposta.Value = ""
        isg_tarih.Value = ""
        acil_durum.Value = ""

Son:
    Else
        MsgBox "Başında * simgesi bulunan alanlar boş bırakılmamalıdır."
    End If
End Sub
 
Ç

çıtır

Katılım
6 Mart 2005
Mesajlar
6,233
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
Ne konuyu ,ne de yapılmak isteneni anlamadım.Userform taşıma nasıl olur bilmiyorum.Userform var ise sayfa işlemleri neden? Dolayısı ile yardımcı olamadığım için üzgünüm.
 
A

anaksimandros

Katılım
2 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
30-10-2020
çıtır' Alıntı:
Ne konuyu ,ne de yapılmak isteneni anlamadım.Userform taşıma nasıl olur bilmiyorum.Userform var ise sayfa işlemleri neden? Dolayısı ile yardımcı olamadığım için üzgünüm.
Genişletmek için tıkla ...
Şöyle üstad;

1. Userform'um var. Bunda textbox, listboxlar var. Bunlar vasıtasıyla excel personel veritabanıma kayıt yapıyorum, güncelliyorum ve siliyorum.
2. Bul butonu vasıtasıyla textbox, listbox lara çağırdığım herhangi bir kaydımı "Ayrıldı" commandbutonuyla farklı bir sayfaya almak istiyorum ve normal veritabanı sayfamdan kaldırmak istiyorum.
3. Yani konunun ilk sorusunda Açılır Kutu vasıtasıyla yapmak istediğimi commandbuton ile yapmak istiyorum.
 
A

anaksimandros

Katılım
2 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
30-10-2020
flood yaptım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst