• DİKKAT

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

Telefon Rehberi Mükerrer Kaydetmesin

ZuCChiNi

Altın Üye
Katılım
26 Haziran 2006
Mesajlar
267
Excel Vers. ve Dili
Excel 2016, TR, x32
Forumda paylaşılan bir dosyayı modifiye ederek kullanacağım bir hale getirmeye çalışıyorum. Ancak aşağıdaki problemleri çözemedim.

1- Kaydı seçip kaydet dediğimde aynı kaydı tekrar oluşturuyor. Mükerrer kayıt yapmasın.
2- Değiştir'e tıklandığında formdaki veriler silinmesin. (Ya da silindikten sonra aynı firma bilgileri yeniden yüklensin.)
3- SÜZ sekmesi verilerle doluyor. O zaman da dosyanın boyutu büyüyor. Başka bir yöntem var mı?

140hit4.jpg
 

Ekli dosyalar

  • Soru.rar
    Soru.rar
    102.2 KB · Görüntüleme: 21
Son düzenleme:
Güncellenmiş dosya.
 

Ekli dosyalar

Son düzenleme:
Teşekkür ederim @vardar07

Henüz kodları karşılaştıramadım. İlk fırsatta karşılaştıracağım.

Formu çalıştırdığımda 1004 hatası verdi. Kırmızı satır.

Private Sub TextBox1_Change()
If TextBox1 = "" Then
Selection.AutoFilter field:=2
Exit Sub: End If
Selection.AutoFilter field:=2, Criteria1:="*" & TextBox1 & "*"
End Sub
 
Benim size verdiğim formda öyle bir kod bloğu yok. Siz hiçbir ekleme yapmadan eklediğiniz var ise silip deneyiniz. Benim hazırladığım form UserFormAyarBanka , Sizin mevcut formunuz UserFormAyarBanka1
 
Teşekkür ederim. :redface:
 
Listbox Seçim Yapılabilmesi de eklendi.

Benim size verdiğim formda öyle bir kod bloğu yok. Siz hiçbir ekleme yapmadan eklediğiniz var ise silip deneyiniz. Benim hazırladığım form UserFormAyarBanka , Sizin mevcut formunuz UserFormAyarBanka1



User formu inceledğimde listbox Seçim Yapılabilmesi de eklesek daha mı güzel olur Listbox tan seçim yapabilmek için kodları ekledim.
çünkü seçim yapmadan değiştir denildiğinde boş hücreleri eskisinin yerine atıyor.
 

Ekli dosyalar

#2 nolu mesajdaki dosya güncellenmiştir.
 
Hepinize ayrı ayrı teşekkür ederim.

@NBATMAN Sorum bir projenin parçası maalesef.
@yenilik025 Söylediğinizi tam anlayamasam da kodları inceleyeceğim. :)
@vardar07 Bu daha iyi olmuş.

Tekrar teşekkür ederim.
 
Geri
Üst