UserForm Üzerinde Bulma Silme Değiştirme Kaydetme

UserForm Üzerinde Bulma Silme Değiştirme Kaydetme

  • Konuyu başlatan Konuyu başlatan mhezer
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
mhezer

mhezer

Kullanıcı
Katılım
17 Mar 2023
Mesajlar
232
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
İngilizce

Ekli dosyalar

Çözüm
@mhezer
sil ve bul 'u yapmamıştım
Buldoldur kodu yazıldı ancak eksik geri kalanı siz doldurun
"" ların yerine Sheet3.Cells(satir, 4) gibi yazın
Sub bulDoldur(satir As Variant)

Me.txtAdi = Sheet3.Cells(satir, 4)
Me.txtSoyadi = Sheet3.Cells(satir, 5)
Me.txtIletisim = ""
Me.txtAdress = ""
Me.cmdDistrict = ""
Me.txtKapiNo = ""
Me.txtDaireNo = ""
Me.txtPostaKodu = ""
Me.txtMuhtarlikAdi = ""
Me.cmdSandikAlani = ""
Me.txtSandikSeriNo = ""...
Tarihe göre sırala Oylamaya göre sırala
@mhezer
sil ve bul 'u yapmamıştım
Buldoldur kodu yazıldı ancak eksik geri kalanı siz doldurun
"" ların yerine Sheet3.Cells(satir, 4) gibi yazın
Sub bulDoldur(satir As Variant)

Me.txtAdi = Sheet3.Cells(satir, 4)
Me.txtSoyadi = Sheet3.Cells(satir, 5)
Me.txtIletisim = ""
Me.txtAdress = ""
Me.cmdDistrict = ""
Me.txtKapiNo = ""
Me.txtDaireNo = ""
Me.txtPostaKodu = ""
Me.txtMuhtarlikAdi = ""
Me.cmdSandikAlani = ""
Me.txtSandikSeriNo = ""
Me.txtSandikSiraNo = ""
Me.cmdGorevi = ""
Me.txtAciklama1 = ""
Me.txtAciklama2 = ""
Me.txtAciklama3 = ""
Me.txtEskiSandikNo = ""
Me.TextBox1 = ""
End Sub
Sil Update tamam
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Çözüm
Merhaba Değerli Hocalarım,
Problemimi çözümü konusunda destekleri sayesinde çalışmamın bu bölümünü tamamlamış bulunuyorum. Konu bu başlıkta tamamlanmıştır. @cesur hocama değerli katkılarından dolayı teşekkür ediyorum.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt