• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userform Hazır Kodları Bilmiyorum

D

dortmevsim

Katılım
25 Haziran 2006
Mesajlar
36
Excel Vers. ve Dili
Ofis 2010 ve 2016
Selam arkadaşlar işyerinde dosya takibi için ekteki userformu hazırladım yalnız kodlarını yapamadım yardım edebilir misiniz.
Excelde yeni kayıt aç dediğimizde yeni açılan userformda opsiyon butonunda neresi işaretlenirse o sayfaya kayıt edilecek.
Güncelleme butonunda ise kayıt edilen verileri userform1 üzerinde yaptığımız değişiklikler kayıt edilecek.
Arşive gönder butonuna tıkladığımızda seçili olan kişi arşiv sayfasına gönderilecek
Kayıt sil butonuna tıkladığımızda userformda "seçili kişiyi silmek istediğinizden emin misiniz" şeklinde sorarak onaylamamız halinde silecek.
 

Ekli dosyalar

Son düzenleme:
Dosyanızı ayrıca www.dosya.tc adresine yükleyip üst linki buradan paylaşabilir misiniz ?
 
Eksikler olabilir. İnceleyiniz.
 

Ekli dosyalar

Son düzenleme:
Elinize sağlık sayın vardar07
Kayıt sil, arşive gönder ve güncelle butonlarına tıkladığımızda hepsini görüntüleye geçiyor
güncelle butonuna tıkladığımızda açıklama, sonuçlanma nedeni ve sonuçlanma tarihini ilgili yere kaydetmesi lazım
güncelle denildiğinde kişi seçilmemiş ise makro hata veriyor
kayıt sil dediğimizde aynı sayfada kalıp listbox u yenilemesi lazım

Makrodan fazla anlamadığımdan nasıl olacağını anlatamadım buna rağmen çok iyi olmuş.
 
Son düzenleme:
Merhaba
PLİNT elinize sağlık tam istediğim gibi olmuş yalnız "hepsini görüntüle" de listboxta isme tıkladığımda listeden seçim yapınız" geliyor diğerleri gibi gelebilirmi ayrıca kayıt sil dediğimizde yanlış silinmeye karşı onay kutusu açılırsa iyi olur ayrıca tüm listelerdeki sıralama alfabetik yapılabilirmi.
Gerçekten mükemmel olmuş elinize sağlık.
 
Son düzenleme:
Merhaba
Aşağıdaki dosyayı deneyin.
"Listbox1" de sıralama istediğiniz için, yukarıdaki dosyaya göre sayfa satırları ile listedeki satırlarda uyumsuzluk oldu bu durumu gidermek için kullanılan "TC No" lar asıl dosyanızdaki sayfalarda da eksik olmamalıdır.
http://s9.dosya.tc/server2/1tqlkr/Kayit.zip.html
 
#5 Nolu mesajdaki dosya güncellenmiştir. İnceleyiniz.
 
Merhaba
PLİNT ve vardat07 ellerinize sağlık Allah razı olsun yaptığınız excelleri iş yerinde dosya takibi için kullanacağım işime çok yarayacak .
Tekrar teşekkür eder hayırlı günler dilerim.
 
Rica ederim. İşinizi gördüyse ne mutlu.
 
Arkadaşlar textbox gün.ay.yıl yerine ay.gün.yıl geliyor bu durumu düzeltebiliriz 05.04.2017 yerine 04.05.2017 oluyor excelde doğru görünüyor.
 
Merhaba
"Userform" kod sayfasında bulunan kodu değiştirip deneyiniz
Kod: 
[SIZE="2"]Private Sub ListBox1_Click()
bul
If s1 Is Nothing Or c = 0 Then Exit Sub
s = Array("1", "6", "8", "18", "30", "31", "32")
For a = 0 To UBound(s)
Controls("TextBox" & s(a)) = s1.Cells(c, a + 1)
If IsDate(s1.Cells(c, a + 1)) = True Then Controls("TextBox" & s(a)) = Format(s1.Cells(c, a + 1), "dd.mm.yyyy")
Next
s1.Activate
End Sub [/SIZE]
 
LİSTBOX olmadan KAYDET GÜNCELLE SİL BULAMADIM ?

Merhabalar umarım çok zor değildir.

Listbox olmadan Kaydet Güncelle Sil dosyasına rastlayamadım.
Forumda var mıdır ?
Genelde bütün çalışmalarda Listbox var.

Halbuki örnek bir personel kaydedeceğim.
Personeli sayfa1 e kaydedeceğim diyelim
Kimlik numarası girerken
Cımobobax a eğer kayıt varsa Kaydet butonu pasif hale gelecek

Yoksa Kaydet butonu açık ve kayıt yapabileceğiz

Ama mallesef bu tür bir kod bulamıyoruz
genelde hep listboxdan seç sonra güncelle var halbuki

listbox olmadan da biz bu işlemi yapabilir miyiz bu yönde
bir örnek dosya çalışma ekleseniz sanırım tüm
üyeler bu çalışmadan yararlanacaktır.

Yardımlarınızı bekliyoruz.


vardar07' Alıntı:
Eksikler olabilir. İnceleyiniz.
Genişletmek için tıkla ...
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst