Yeni Kayıt
Konudaki Resimler
< Bu ileti mobil sürüm kullanılarak atıldı > |
Hızlı 
Bildirim
Excell sütununda filtreyi otomatikleştirmek
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
Tam olarak nasıl giriş yaptığınızı anlamadım.
Ama sanırım. İlk satırdan aşağıya doğru sıra ile giriş yapmanızı engelleyen bir durum var ortada.
Eğer böyle bir durum varsa. En pratik ve hızlı çözüm CTRL + F ile ürünü aratıp bulup karşılığına fiyat girmeniz.
Ama aşağıdaki kod da istediğiniz gibi işinizi görür. Basit bir çözüm olduğu için biraz tuhaflıklara neden oluyor bu kod.
A sütünunda Ürün B Sütününda Fiyat olduğunu varsayarsak C sütünuna X yazıyoruz. X kodu bir çeşit kontrol.
Burda X yazarsa koşul gerçekleşiyor ve otomatik filtre devreye giriyor.
Eğer bu kontrolü koymasaydım. Sayfada yapılan her değişiklikte filtreleme çalışacaktı.
X i sildiğinizde makro devreye girmez diğer işlemlerinizi yapabilirsiniz.
Makro devredeyken yine de ufak tefek tuhaflıklar olabilir.
Onlar için de farklı kontroller yapmak gerekebilir. Ama dediğim gibi basitçe bir çözüm yaptım.
Aşağıdaki kodu VBA editörü açıp ilgili yere yapıştırmanız gerekiyor.
Deneme için yeni bir kitap oluşturun A1 hücresine Ürün, B1 hücresine Fiyat, C1 hücresine X yazın ve kaydedin.
VBA editör için CTRL + F11
Eğer aktif değilse View menüsünden project explorer açın
Sol tarafta açık olan kitapların isimleri görünür.
Oluşturduğunuz kitabı bulun, çift tıklayın.
Mikrosoft excel object diye bir klasör çıkacak. Eğer sayfa isimleri gizli ise;
çift tıklayıp sayfa isimlerini görünür hale getirin.
Sayfa1 e çift tıklayın ve sağ taraftaki alana kodu yapıştırın.
Excele dönüp B sütününa bir şeyler yazdığınızda o satırın gizlendiğini göreceksiniz.
Daha sonra aşağıdaki kodu kendi sayfanıza uygun hale getirip VBA editörü açıp ilgili yere kopyalayablirsiniz.
Kendi sayfanıza uygun hale getirebilmek için. X kodunu yazığınız hücre adresini düzeltmelisiniz.
Örneğin listenizde C sütunu dolu ve F1 hücresine yazdınız X'i
If Range("C1") = "X" Then ==> If Range("F1") = "X" Then olarak değiştirmelisiniz.
Ürün fiyatını yazdığınız sütün örneğin D sütünu ise Field:=2 ==> Field:=4 olacak,
Kolay gelsin umarım işinizi görür.
Ama dediğim gibi CTRL + F için zorlayıcı bir etken yoksa, CTRL+ F yi öneririm. Daha pratik olur sizin için.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C1") = "X" Then
Selection.AutoFilter Field:=2, Criteria1:="="
End If
End Sub
-
Uzun zamandır bu foruma girmediğim için cevabı göremedim kusura bakmayın ve detaylı açıklamanız için de çok teşekkürler. Excell dedim ama bana aslında daha çok tablette WPS office kullanırken lazım oluyordu, orada ve notebook'daki Windows Office de verdiğiniz formülü deneyeceğim, umarım istediğim sonucu alabilirim.
Tekrar teşekkür ediyorum.
< Bu ileti tablet sürüm kullanılarak atıldı >
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
