Veri Doğrulamayla Otomatik Tamamlama

amsterdam

Kullanıcı
Katılım
3 Mar 2021
Mesajlar
146
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Sevgili forum üyeleri,
Veri doğrulamayla otomatik tamamlama seçeneği var mı? Ek olarak bir örnek ekliyorum. Ocak ayinda, geli &gider kisminda (D6: D65) açılır menüden bir şeyler yazmak istersem, çok fazla kaydırmam gerekiyor. Ve örneğin, g harfini girdiğimde, hepsi g harfiyle başlayan kelimeleri görmemi istiyorum.
Saygilarimla
 

Ekli dosyalar

Çözüm
Sayfayı korumaya alma kodunda yer alan aşağıdaki kırmızı satırı yeşil olanla değiştirin.

VBA:
İndirmek için giriş yapmanız gerekmektedir.
(2 satır)
Sayın @amsterdam .

Gördüğüm kadarıyla veri doğrulama listesinin kaynağı olan veriler LİSTE safasında ALFABETİK sıralı.
Veri doğrulama uygulanmış ilk hücre seçiliyken VERİ DOĞRULAMA menüsünü açıp;
-- AYARLAR kulakçığındaki liste kaynağının yerine aşağıdaki formülü uygulayın,
-- HATA UYARISI kulakçığındaki ONAY KUTUSUnu temizleyin ve işlemi onaylayın.
-- Bu hücreyi kopyalayıp, veri doğrulama uygulanacak tüm hücreleri seçin ve ÖZEL YAPIŞTIR >> DOĞRULAMAYI
şeklinde işlemi tamamlayın.

Artık, ilgili hücrelerde herhangi bir harf yazıp, hücrenin sağ köşesindeki açılır liste okuna tıkladığınızda,
açılan listede sadece yazdığınız harfle başlayan verileri göreceksiniz.

VBA:
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
 
selam omer bey,

Yalniz birsey farkettim. sayfayi koruyunca formul calismiyor. Sayfa korumasini kaldirinca calisiyor. Bende yanlislikla formulleri silmemek icin sayfayi korumak istiyorum.
 
Sayfa koruması uygulama ekranında, alttaki listeden "NESNE DÜZENLE" seçeneğini işaretleyerek koruma uygulayıp deneyin.

.
 
Ben saygalarin hepsini birden korumak icin ilk sayfada butona basiyorum. korumayi kaldirmak icinde diger butona.
Bu kod sayfalarin hepsini birden korumak icin:
'This code will protect all the sheets at one go
Sub ProtectAllSheets()
Dim ws As Worksheet
Dim password As String
password = "askin"
For Each ws In Worksheets
ws.Protect password:=password
Next ws
End Sub

Buda korumayi kaldirmak icin:
'This code will protect all the sheets at one go
Sub UnprotectAllSheets()
Dim ws As Worksheet
Dim password As String
password = "askin"
For Each ws In Worksheets
ws.Unprotect password:=password
Next ws


Nesne duzenleyi burayami yazmam gerekiyor?
End Sub
 
Sayfayı korumaya alma kodunda yer alan aşağıdaki kırmızı satırı yeşil olanla değiştirin.

VBA:
İndirmek için giriş yapmanız gerekmektedir.
(2 satır)
 
Çözüm
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt