Emeğinize sağlık, teşekkür ederim. Office 2021 kullanıyorum, Arama kutucuğunun içeriğini temizlediğimde tüm verileri geri getirmiyordu, kod içerisinde Worksheets("Sheet1").ShowAllData komutunu içeren satırın düzgün çalışmadığını Debug ile gördüm, bunun önüne eski kodu silip, ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=1 kodunu yazarak geçtim. Artık arama kutusunun içeriği temizlenince tüm datalarım görünür oluyor. Belki aynı sorunu yaşayan olabilir düşüncesiyle paylaşmak istedim. İyi çalışmalar dilerim.
Çok faydalı bir VBA örneği, teşekkür ederiz👏 Özellikle Worksheet Change event procedure oldukça faydalı. Ben bu tarz uygulamayı, Power Query list özelliğinden faydalanarak yapıyorum. 👍
ÜSTADIM ÖNCE SELAM OLSUN.ÇOK FAYDALI BİR BİLGİ EMEĞİNİZE SAĞLIK.BEN BİR EXEL ÇALIŞMA SAYFASINDA DENEDİM AMA OLMADI ÇAHİLLİĞİME VERİN.BU DENEMEMDE BANA NASIL YARDIMCI OLUABİLİRSİNİZ.NERDE HATA YAPTIM ACABA.
Merhabalar 👋🙂 Est. videodaki kodlar bazı versiyonlarda çalışmıyor. Yorumları okumanızı tavsiye ederim. sizinle aynı sorunu yaşayan kişiler olablir 😊 Olmazsa bize mail atabilirsiniz. 📧Mail Adresimiz: excelapp19@gmail.com
Merhaba anlatım için teşekkür ederim. Geçen ay videonuzla bu çalışmayı yaptım ve doğru uzantıda kaydettim. Ancak şimdi açtığımda kod yerinde duruyor ama çalışmıyor. Neyi yanlış yapmış olabilirim?
range sınıfının Autofilter yönetimi başarısız yazıyor nasıl düzelteceğim arama = Worksheets("HAM").Range("c2").Value ActiveSheet.Range("b4:k10000").AutoFilter Field:=1, Criteria1:=arama
Merhabalar 👋🙂 Çok Teşekkür ederiz geri bildirimleriniz için😊 Bunun için kodları güncellemeniz gerekir. Aynı kodları 1 ve 2. sütunlarda arama yapacak şekilde ayarlayailiriniz.
hocam dakika 6.20'de field:=1 yazdınız çünkü 1. sütundakileri aratmak istiyordunuz fakat ben H5'den başlayan satırdakileri aratmak istiyorum. Altını çizerek söylüyorum satırdakileri aratmak istiyorum. Bunu nasıl yapabilirim?
Gerçekten çok faydalı bir öğretim çok teşekkür ederim. Fakat dememe rağmen şunu bir türlü yapamadım. Toplamda 3 sayfam var ve 4. ssayfada bir arama butonu oluşturup tüm filtreleme işlemi burada gerçekleşsin istiyorum. Yani 4. sayfada diğer 3 sayfanın tamamını filtrelesin. bunu nasıl yapabliiriz ?
Merhabalar 👋🙂 Çok teşekkürler güzel yorumlarınız için🙂✨ bunun için kodların başına sayfa isimlerini getirmelisiniz. Belki de diğer saayfalar için bu kodu kopyalayıp, Tek bir Sub prosdürü içinde diğerlerini call edebilirsiniz (Çağırabilirsiniz)
Merhaba hocam öncelikle elinize emeğinize sağlık 😊 benim aklıma takılan tek şey, bu arama özelliğini filitreli tablolarda değilde normal tablolarda yapsak ta çalışır mı? Şimdiden teşekkürler hocam 😊
Merhabalar 👋😊 Çok teşekkür ederiz 🙏🙏 hangi sütunlarda arama yapılmak isteniyorsa, o sütunlar için for döngüsü tekrarlanmalı veya bu sütunlar, for döngüsüne dahil edilmelidir 🙂
Merhabalar 🙂👋 Yorumunuz için teşekkür ederiz. Özel programlar tasarlamaktayız. Bunun için aşağıdaki linkten bir talep oluşturabilirsiniz 🙂 www.excel751.com/%C3%BCr%C3%BCn-hizmetler/proje
Merhaba kısa ve etkili paylaşımlarınıza teşekkür ederim..lakin dediklerinizi harfiyen uyguladım ama nerede yanlış yapmış olabilirim.. Hiç bir uyarı almıyorum.entere bastıgımda kod çalışmıyor.
Merhabalar 🙂👋 Veri kümenizin konumunun bizimki ile aynı olduğundan emin olunuz. Bu önemli bir nokta. Veya kodunuzdaki hücre konumlarının (adreslerinin) veri kümeniz ile aynı olduğundan emin olmalısınız. 🙂 Hata almamanızın sebebi en başa On Error Resume Next yazmamız. İsterseniz bu kodu silip kodu tekrar çalıştırarakta nerede hata aldığınızı görebilirsiniz. 🙂👍
Hocam güzel bir uygulama. Office 2016 da xlsm olarak kaydettim sorunsuz bir şekilde çalışıyor fakat başka bir bilgisayar da açtığımda "excel bu çalışma bazı kısımları onarılmış veya atılmış olabilir" hatası veriyor dosya açılıyor ama arama işlevi çalışmıyor
Merhabalar, hocam çok güzel bir anlatım olmuş teşekkür ederim, ama bende şöyle bir sıkıntı var , ben arama da filtre yapınca bana sadece aradığım kelimeyi(kaç satırsa artık)gösteriyor ama tablo 300 satırlı ve bana aradığımı üste çıkarmıyor bana tabloyu boş gösteriyor ve aradığım kelime 155 inci satırda ise sadece orası dolu oluyor. Nerde hatam var acaba? Yani arama yaptığımda bana aradığım kelimeyi en üste çıkarsın istiyorum
Merhabalar 👋🙂 Vİdeoyu detaylıca izleyerek kodlamalarda ve bahsettiğimiz detaylarda eksik kaldığınız bir nokta olup olmadığını kontrol etmenizi tavsiye ederiz. 👍
merhaba hocam aynısını yaptım ancak alınan hata aşağıda gösterdiğim gibidir 2010 version kullanmaktayım run- time 438 object doesn't support this property or method
Merhabalar 👋🙂 docs.microsoft.com/tr-tr/office/vba/word/concepts/miscellaneous/object-doesn-t-support-this-property-or-method Bu linkten hatayla ilgili daha detaylı bilgiye ulaşabilirisniz 🙂
Merhaba, "Private Sub Worksheet_Change(ByVal Target As Range)" için "Sub or Function not defined" hatası alıyorum, bunu için ne yapmam lazım ? (tool > references > Solver kutucuğunu işaretledim ama sorun hala devam ediyor.)
Excel çalışma sayfası ismi Main Tablo Başlığı B4 ye başlıyor H4 ye bitiyor Arama hücresi C2 de Alt + F11 ile VBA kod penceresini açtım Bu çalışma kitabı agacının altında bulunan Sayfa1(Main) e çift tıklayarak kod sayfası açtım. Worksheet objesini ve change prosedürü nü etkinleştirin, en alttaki kod bloğunu sildim, üstte ki worksheet_Change kod bloğu kaldı. Kod bloğu aşağıda yazdığım şekilde. Private Şub Worksheet_Change(ByVal Target As Range) arama = Worksheet("Main").Range("C2").Value If arama = "" Then ActiveSheet.ShowAllData Else ActiveSheet.Range("B4:H10000").AutoFilter Field:=1, Criteria1:="*" & arama & "*" End If End Sub Bu aşamaya kadar birebir sizin le beraber denedim olmadı. Sonra Macro içerebilen Excel xlsm olarak kaydettim, yine olmadı. Neden çalışmıyor anlamadım. Range sınıfının AutoFilter yöntemi başarısız mesajı alıyorum.
Merhabalar 👋🙂 Sorunuz için teşekkür ederiz. Private Şub yerine "Sub" olmalıydı. Bundan kaynaklı olabilir. Eğer bununla da ilgili değilse, internet üzerindeki forumlardan sorunu araştırmanızı tavsiye ederiz 😊
Ayni islemleri yaptim arama kismina yaziyorum bisey bulmuyor. Kodlama bolumunden 2. Satirdaki kodlar kirmizi oluyor neden olmadi anlamadim. Benim tablo farkli ama sizin B4 ile H10000 yaptiginizi ben kendi tabloma gore yaptim ondan olabilir mi? Hata kodu Compile error: Expected list separator or )
Merhabalar 🙂👋 Compile Error türü birçok sebepten oluşabilmektedir. Micrososft'un sitesinden ve bloglardan araştırmanızı önerebiliriz. Onun dışında tüm kodları tekrar kontol etmeniz gerekebilir.
Merhaba, emeğinize sağlık hocam çalışmayı biraz değiştirerek arama1 ve arama2 şeklinde if kullanarak 2 aramalı yaptım. Arama1 dolu ise ara bos ise arama2 yi ara şeklinde fakat bu şekilde yapmadan arama1 kullanarak sütun 1 de bulamazsan 2 de ara şeklinde yapabileceğimiz bir yöntem var mi acaba ? Birde sayıları algılamıyor zorunlu olarak bir karakter koymamiz gerekiyor. Direk 123456 gibi yazılı bir hücreyi nasıl buldurabiliriz?
Merhabalar 👋🙂 Arama1-2 konusunda for döngüsü kullanabilirsiniz. Bir sütunda yoksa diğerinde aratabilirsiniz bu şekilde. Sayı aramalarında problem olmaması gerekir ama problem yaşıyorsanız değişkenlere atanan tipleri değiştirmek gerekebilir.🙂
Hocam excel tablosundan bir hücreye isim yazdığım yan hücreye yazdığım kişinin statü durumu otomatik olarak yazmak için nasıl bir veri yazmalıyım 60 kişilik kadroda 4 farklı statü yazmam gerekiyor
hocam arama kutusuna rakamı yazıyorum filtre çalışıyor ancak bir veri getirmiyor arama kutusundan rakamı silince tüm verilerim geliyor aynen yaptığınız gibi yapıyorum durum böyle şuan
@@excel751 Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next arama = Worksheets("ESKİ SİTEDEN MALİYET GÜNCELLE").Range("C2").Value If arama = "" Then ActiveSheet.ShowAllData Else ActiveSheet.Range("B4:AK5900").AutoFilter Field:=1, Criteria1:="*" & arama & "*" End If End Sub burada hatalı olan ne acaba girdiğim veriyi silince eski haline dönüyor ancak veri girişinde filtrelediği verileri gizliyor göstermiyor
Merhaba, çok faydalı bi çalışma teşekkürler. peki main sayfası değil de 4-5 çalışma sayfasında böyle bi arama yapılabilir mi? mesela kitap 1 den kitap 6 ya 6 çalışma kitabı olsa 7. bi kitap oluşturup orada arama kutucuğu açsak ve oraya aranacak kelimeyi yazınca tüm kitaplardan verileri tarayıp getirse?
Merhabalar 👋🙂 Yapılabilir ama bütün dosyalar aynı klasörde olmalı ve kodunuz bütün dosyaların bütün sayfalarını taramalı. Excel için biraz yorucu bir görev olsa da yapmak mümkündür. 🙂
Hocam merhaba. Adım adım anlattıklarınızı uygulamama rağmen arama yaptıktan sonra "delete" tuşuna bastığımda filtreleme kapanmıyor. Bir de tablonun ilk satırına denk gelen sayı dışındaki aramalarda filtreleme yapıyor fakat hücreler boş geliyor. yardımcı olmanız mümkün mü?
Emeğinize sağlık hocam dosyayı indirme linki hata veriyor hali ile örnek dosyayı indiremiyorum allaha emanet ol iyi akşamlar sayfa bulunamadı hatası veriyor
Merhabalaar Ahmet Bey, Teşekkür ederim geri bildirimleriniz için, kusura bakmayın, linkte bir hata olmuş haklısınız. tekrardan topluluk sekmememizden kontrol edebilirsiniz. Düzeltme sağladık. 🙂🙂
Merhaba Hocam, SQL den çekilen tabloda bu işlemi yapıyrm ancak tablonun satır sonunu belirtirken fazladan boş satırı yazınca çalışmıyor, tablo mevcutta P3325 de bitiyor ancak SQL den sürekli veri geldiği için bunu P5000 yazınca kabul etmiyor mesela.
hocam selam ben sorunu çözdüm ancak şöyle birşey lazım bana ben bu arama kutusuna B den AK ye kadar olan tüm listeyi filtreletmek istiyorum bunu nasıl yaparız yani Field=1, değil de Field,1,2,3,4,5,6,7,8 böyle tüm stunları aramalı ve sonucu filtrelemeli
@@excel751 peki hocam onu yapamadım da şöyle bişey lazım bana a1 hücresine kg yazacağım b1 hücresine a1 e tanımlayacağım kg ın adetinin yazmasını istiyorum örneğin a1 100kg b1 1 adet yani ben 100 kg mı a1 e yapıştırınca b1 de 1 adet yazması gerekiyor bunu nasıl yapabiliriz
hocam kodu çalıştırmayı beceremedim. 12 saatir ugrasıyorum. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next arama = Worksheets("İcra").Range("E1").Value If arama = "" Then ActiveSheet.ShowAllData Else ActiveSheet.Range("B3:O1000000").AutoFilter Field:=1, Criteria1:="*" & arama & "*" End If End Sub
Hocam merhabalar , elimde iki adet tablo var isimler kanun numaraları ücretleri fazla mesai ücretleri vs. Yani kısacası ücret bordrosu var iki ayrı bordroyu karşılaştırıp bir tabloda olupta diğerinde olmayan farklı isimleri bulup çıkarmak istiyorum bununla alakalı bir videonuz varmidir
Merhabalar 🙂👋 Aşağıdaki videodan genel olarak nasıl bir karşılaştırma yapabileceğinizi bulabilirsiniz. 🙂👇 ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-FTVUAO7WNVM.html
Merhaba, sizin yazdığınız kodu birebir yazdım kod çalışmıyor, Run time error 1004: Range sınıfının AutoFilter yöntemi başarısız mesajı alıyorum. Problem nedir acaba.
Merhabalar 🙂👋 Kodları bizim yazdığımız gibi yazdığınızdan emin olduktan sonra tekrar deneyebilir misiniz ? 🙂 Eğer hâlâ sorun yaşarsanız, kodlamanızı yeni bir yorumda iletebilirsiniz 🙂
Excel çalışma sayfası ismi Main Tablo Başlığı B4 ye başlıyor H4 ye bitiyor Arama hücresi C2 de Alt + F11 ile VBA kod penceresini açtım Bu çalışma kitabı agacının altında bulunan Sayfa1(Main) e çift tıklayarak kod sayfası açtım. Worksheet objesini ve change prosedürü nü etkinleştirin, en alttaki kod bloğunu sildim, üstte ki worksheet_Change kod bloğu kaldı. Kod bloğu aşağıda yazdığım şekilde. Private Şub Worksheet_Change(ByVal Target As Range) arama = Worksheet("Main").Range("C2").Value If arama = "" Then ActiveSheet.ShowAllData Else ActiveSheet.Range("B4:H10000").AutoFilter Field:=1, Criteria1:="*" & arama & "*" End If End Sub Bu aşamaya kadar birebir sizin le beraber denedim olmadı. Sonra Macro içerebilen Excel xlsm olarak kaydettim, yine olmadı. Neden çalışmıyor anlamadım. Range sınıfının AutoFilter yöntemi başarısız mesajı alıyorum.
Merhabalar 👋 Çok yapıcı bir eleştiriydi 😁👍 Daha önce farketmemişim. Bundan sonra dikkat edelim mutlaka 🙂 Ama alışkanlıklar zor düzeltiliyor biliyorsunuz. Mutlaka dikkat etmeye çalışacağım🙂 Çok teşekkürler.
hocam kanalınızı yeni keşvettim katıldı kanalınıza hocam mail adresi vermeniz mümkünmü oradan bir resin göndereyim hatayı birtülü bulamadım yardımcı olursanız çok sevinirim bu program çoook işime yarayacakeğer sorun çözülürse
@@excel751 eğer o sayfada sadece o tablo olacaksa sonsatır ve sonsütunlarını bularakta dinamik bir yapı oluşturabilir. Benim merak ettiğim şu oraya yazarken benzerleri liste şeklinde gelecek şekilde tasarlayabilir miyiz? Herhangi bir tuşa basmadan. Mesela verilerimizde 13579, 3579,2468 olsun. ben arama tuşuna 3 yazdığımda 13579 ve 3579 açılır liste olarak görünebilir mi? Herhangi bir tuşa basmadan
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next arama = Worksheets("veri").Range("C3").Value If arama = "" Then ActiveSheet.ShowAllData Else ActiveSheet.Range("A11:AJ19").AutoFilter Field:=1, Criteria1:="*" & arama & "*" End If End Sub kod birebir aynı olmasına rağmen çalıştıramdım Error resume u silince RUn-time error '1004': Range sınıfının AutoFilter Yöntemi başarısız hatası almaktayım
Merhaba, topluluk kısmında paylaşımı göremedim. Oradaki arama örneği buradakinden farklı. Kodu yazdım ve yorumlardaki değişiklikleri de dikkate aldım ancak son durumda arama yaptığımda, aradığım veri tabloda olmasına rağmen tablodaki bütün veriler gizleniyor. Arama yaptırdığım sütunda yalnızca sayılar mevcut. Yanına harf eklediğimde bu sefer kod çalışıyor ve ilgili satırı getiriyor ancak yalnızca sayı aratamıyorum. Bunun için ekstra bir kod mu eklemem gerekli? Office 2016 kullanıyorum. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next arama = Worksheets("Sayfa1").Range("C2").Value If arama = "" Then ActiveSheet.ListObjects("Tablo2").Range.AutoFilter Field:=1 Else ActiveSheet.Range("Tablo2").AutoFilter Field:=1, Criteria1:="*" & arama & "*" "Tablo2 ibaresini B4:E13 olarak da değiştirdim ancak sonuç yine aynı. End If End Sub
Merhabalar 👋🙂 2013'te bazı özellikle sınırlıdır. Bu yüzden kaynaklanıyor olabilir. Bu gibi versiyon bağımlı özelliklerde tek çözüm üst versiyonlara geçiştir 😊
EMEĞİNİZ İÇİN TEŞEKKÜR EDERİM. BU VBA YA EK OLARAK B3 HÜCRESİNDE HERHANGİ BİR DEĞİŞİKLİK YAPILINCA A3 HÜCRESİNE OTOMATİK TARİH EKLEMESİNİ DE EKLEYEBİLİR MİYİZ YARDIMCI OLABİLİR MİSİNİZ=? YANİ HERHANGİ BİR HÜCREDE BUGUN DEĞİŞİKLİK YAPTIM BUGUNUN TARİHİ, YARIN DEĞİŞİKLİK YAPTIM YARININ HÜCRE DEĞİŞİKLİĞİ YAPTIĞIM ZAMAN TARİH ATMASINI İSTİYORUM. BU VBA EKLEME YAPILABİLİR Mİ?
hocam selam kolay gelsin kod çalıştırdım fakat 1 den fazla sütunda arama yapmak istiyorum fakat kod düzgün çalışmadı.Arama yapmak istediğimde doğru kelimeleri filtrelememe rağmen sütun boş çıkıyor yazıyı silip enter yaptığımda sütunlar dolu şekilde geri geliyor .ActiveSheet.Range("B5:G54").AutoFilter Field:=4, Criteria1:="*" & arama & "*" kodunda çalışıyor fakat böyle yazdığımda çalışmıyor ActiveSheet.Range("B4:G2000").AutoFilter Field:=Array(1, 2, 3, 4, 5, 6, 7), Criteria1:="*" & Arama & "*" kodunu ekledim başarılı olamadım konu ile ilgili bir tavsiyeniz var mı ?
For i = 2 To 7 ' C, E, F, and G sütunlarının numaraları ActiveSheet.Range("B4:G2000").AutoFilter Field:=i, Criteria1:="*" & Arama & "*" Next i koduda başarılı olmadı
Hocam emeğinize sağlık Benim yaptığım tablo çalışmadı arama kutusuna bişey yazıp enter e bastığımda hiç birşey göstermiyor. office 2016 kullanıyorum videoyu 8-10 kez izleidm her adımı tek tek yeniden yaptım ama olmuyor malesef nerede hata olabilir fikriniz varmı :).
Hocam Kolay gelsin güzel bilgi için öncelikle teşekkür ederim ama range sınıfının "AutoFilter " hatası alıyorum bu satırda sorun alıyorum yardımcı olur musunuz ActiveSheet.Range("A4:S1000").AutoFilter Field:=2, Criteria1:="*" & ara & "*"
evet tekrar kontrol ettim, tablonun son satır sayısını yazınca çalışıyor, ben SQL den veri çektiğim tabloda bu işlemi yapıyrm sürekli yeni satırlar ekleniyor fazladan satır sayısı yazınca çalışmıyor.