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?
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
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
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
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
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.
![#EXCEL - TEK DÜĞMEYLE EXCEL SAYFASINI PDF YAPMAK (VBA) - [EXCEL751]](http://i.ytimg.com/vi/lueZn2-K77s/mqdefault.jpg)
![#EXCEL - TEK DÜĞMEYLE EXCEL SAYFASINI PDF YAPMAK (VBA) - [EXCEL751]](/img/tr.png)
![Building Searchable Lists in Excel: Perform Data Validation Lookups - [Excel 751]](http://i.ytimg.com/vi/33H4n1w-eH8/mqdefault.jpg)
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.
Merhabalar 👋🙂
Paylaşım ve katkılarınız için çok teşekkür ederiz 😊🙏
VAROLASIN ÜSTAD
@@excel751 Rica ederim.
@@akkokmobilya Sizler de var olun.
Teşekkürler hocam, bende de aynı problem vardı senin anlattığın şekilde çözebildim.
Başından sonuna kadar adım adım yaptım. Ve Mükemmel sonuç. Teşekkürler
Rica ederiz,iyi çalışmalar 🙂
Her şeyi sadece 1 kez söyleyerek yapılmış akıcı ve harika bir anlatım. Emeğinize sağlık, teşekkürler.
Merhabalar 👋🙂
Çok teşekkürler güzel yorumunuz için 😊
Süper anlatım tebrikler. Devamını bekleriz.
Merhabalar 👋🙂
Teşekkür ederiz 😊
Kısaca
Bravooo ❤
Gerçekten
Çok muhteşem
Çok teşekkür ederiz 😊
Teşekkürler emeğinize sağlık
Rica ederiz,iyi çalışmalar 🙂
Teşekkür ederim indirdim sağolun allaha emanet olun
Sizlerde Ahmet Bey , iyi çalışmalar 😊🙏
Ç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. 👍
Merhabalar 🙂👋
Çok teşekkürler 🙏 PQ list özelliğini kullanmak çok akıllıca, tebrikler 😊🌟🌟
Kardeşim manyak birşey oldu çok çok çok çok çok çokçok çok çok teşekkür ederim.
Merhabalar 👋🙂
Rica ederiz 😊 İyi çalışmalar diliyoruz. Beğenmenize sevindik. 🙏
Harika basit ama muhtesem bir icerik ellerine saglik
Merhabalar 👋🙂
Değerli yorumlarınız çok teşekkürler 🙂🙏🙏
Ü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
Emeğinize sağlık. aramanın birden fazla sütundaki verilerde yapılmasını nasıl sağlarız.
Ara çubuğu birden fazla sutünda arama ve filtrelemeyi nasıl yapar
Hocam İyi günler bunu bütün sütunlar için ne yapmam lazım
Elinize sağlık
Merhabalar 👋🙂
Çok teşekkür ederiz ,güzel yorumlarınız için. ⭐⭐
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 🙂👋
On Error Resume Next Kodlarını da ekleyerek tekrar deneyebilir misiniz ? 🙂
ilk önce emeğinize sağlık
hem ilk sütün hemde 3. üncü sütündaki verilere göre nasıl arama yapabiliriz
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.
merhaba, filtreleyip değeri bulduktan sonra bakıldığını belli etmesi için otomatik silinsin istiyorum yardımcı olabilir misiniz?
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?
Emeğine saglik
Merhabalar , güzel yorumunuz için teşekkür ederiz.🙂🙏
teşekkürler
Rica ederiz,iyi çalışmalar 🙂
arama kelimesinin önüne koyduğum çift tırnak yıldız çift tırnak çalışmıyor neden yardımcı olur musunuz
Merhabalar 👋🙂 çalışmamasından kasıt nedir tam olarak?
Hocam bunu keşke başka sayfa da yapabilseydik
Merhabalar 👋🙂
Bunun için CTRL+F özelliğini kullanabilirsiniz.
Tablo1 yaptığımız zaman çalışmıyor. Tablo olduğu zaman B4:H10000 yerine ne yazmamız gerekiyor ?
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)
Merhabalar eğer Excel de hali hazırda bir worksheet change kodu yazılıysa ikincisini nasıl yaZabiliriz?
Merhabalar 👋🙂
Aynı kodun hemen altına yazbilirsiniz. Kodlar Sırayla çalışacaktır.
Hocam herşeyi harfiyle tabloma uyarladım çalışmadı kafayı yiyecem yardımcı olurmusun
Merhabalar 👋🙂
Filtreleme kodları dediğiniz gibi çok sorunlu olabiliyor, biraz araştırmanız gerekebilir. Versiyondan versiyona da değişebilmektedir.
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ürler güzel youmlarınız için🙂✨ Bu tablo aslında filtreli bir tablo değil. "Filtreli" den kastınız nedir 🙂
B5 B6 B7….. sutunlarınıda aramaya nasıl dahil edebiliriz?
Merhabalar, bunun için kodlarda değişiklik yapmak gerekir
Aynen hocam bunun için bir video yapsanız çok iyi olur, diğer alanlarda da arama yapılsa daha kolay olur :)
Abi öncelikle teşekkür ederim. Peki aynı zamanda bir çok hücre ile arama yaparsak nasıl kodlama yazmalıyız?
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 🙂
@@excel751 abi dikkatin için çok teşekkür ederim.
Abi ben vba kodu yazıyorum tablo olduğu için autofilter hatası veriyor. Nasıl düzelte bilirim?
hocam bir apartman yönetimi için tablo örneği yaparmısın
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 aramayı "a "ve "b" sütununda da yapması için for döngülü kodu ekleyebilir isiniz?
Merhabala İlyas Bey 👋🙂
Yorumlara bu kodun eklenmesi biraz zor olur 😊 Belki başka bir videoda bu konuyu işliyor oluruz 🙂
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 👋🙂
teşekkürler. Versiyon farklılıklarında hatalar olası olabiliyor. Kodları incelemek gerekebilir. Bazı versiyonlarda VBA kütüphaneleri eski kalabiliyor.
merhaba, emeğinize sağlık hocam, bir sorum olacak, 2 farklı kelime aratmak istiyorum bunu nasıl yapabilirim?
Merhabalar 👋
Bu programda onu yapamazsınız 🙂 bunu yapmak için 2 arama çubuğu ortaya koyarak kodlamaları biraz güncelleştirmek gerekir 🙂
@@excel751 hocam salam ikiden cox adami filtirleme nece etmek olar?
Telefonda kullanabilmemiz mümkün müdür? Telefonda vba çalıştırılamaz diye bir şey okudum.
Merhabalar,
Evet telefonda çalışmamaktadır.
Telefonda bunun gibi nasıl kolaylaştırma yapabiliriz acaba mesela stok takip ve fiyatları daha kolay bulmak gibi
Selam her hanginbir tabloda olan tum deyishiklikleri nasil gore bilirim?
Merhabalar 👋🙂
Yeni versiyonda değşikleri takip edebileceğiniz bir özellik bulunuyor. Burdan yapabilirsiniz 😊
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. 👍
sizi izleyerek yapıyorum fakat Criterial yazdıgımda derleme hatası çıkıyor Compile error:
!
Expected: end of statement
Criteria ifadesinden sonra L harfi değilde 1 olmalı.
Hocam, "veriiiler" değil de, "veriler" şeklinde daha kısa okusan keşke bu kelimeyi.
Merhabalar 👋🙂
ahaha, çok teşekkürler geri bildirim için. Üzerinde çalışıyoruz 😀
Merhaba bir sorum olacaktı alt alta iki textle filtreleme yaparsak mesela ilki izmir olsun ikincisi e cüzdan birleştimiş olur muyuz
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 🙂
Merhabalar bu özelliği USERFORM DA kullanmak istiyorum user formda bulunan listbox a nasıl tanımlama yapabilirim hocam
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.)
Merhabalar 👋🙂
Option Explicit özelliği açok olabilir. Bunu kapatarak tekrar deneyebilirsiniz 🙂👍
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 😊
@@excel751 size yazarken Şub diye yazmışım. Exceldeki kod sub şeklinde. Problemi çözemedim, neyse. İlginiz için teşekkürler
Aynı sorunu bende alıyorum çözüm buldunuz mu
@@harunbozgoz2263 hayır malesef bulamadım
Vba kodu çalışmıyor acaba excel 2010 ile alakalı olabilir mi?
Merhabalar 👋🙂
Sorunuz için teşekkürler. Versiyon ile ilgili bir problem olacağını düşünmüyoruz. Başka biryerde eksiklik olabilir 🙂
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 vba yeni başladım. Fakat bir türlü çalıştıramadım. Dosyaya ulaşmam mümkün mü?
Merhabalar 🖐️🙂
Kanalımızın topluluk sekmesinden indirebilirsiniz.
th-cam.com/users/Excel751community
Hocam aramayı sütunda değilde satırda yapamıyor muyuz ?
Merhabalar 👋🙂
Vba kodlarını değiştirerek yapabilriz
@@excel751 örnek yazma şansınız var mıdır? Ya da bununla ilgili içerik videonuz var mı onu izliyim? Araştırdım bulamadım
arama = Worksheets("LISTE").Range("A2").Value
ActiveSheet.Range("A6:G10000").AutoFilter Field:=1, Criteria1:="*" & arama & "*"
Yorumunuz içn teşekkür ederiz ✨
merhabalar katıl yaptım fakat ilgili şablonu nereden indireceğim
Merhabalar 👋🙂
Anasayfamızdan üyelik veya topluluk sek mesinden indirebilirsiniz 🙂👍 teşekkür ederiz
merhaba hocam, kanalınıza yeni katıl aboneliği yaptım. videodaki dosyanızı nereden indirebilirim. linki bulamadım. yardımcı olursanız sevinirim.
Merhabalar 🙂👋 desteğiniz için teşekkürler. Kanalımızın anasayfasının topluluk sekmesinden bütün dosyalara erişim sağlayabilirsiniz 😊💫
hocam merhaba bunu diğer sütunlara nasıl yapacağız yani diğer sütunlarda filtre istiyorum hem fatura hem isim gibi
Merhabalar 🙂👋
For döngüsü oluşturarak diğer sütunlarda da arama yapılmasını sağlayabilirsiniz
@@excel751 HOCAM BEN DAHA BU İŞLERDE YENİYİM NASIL YAPILACAĞINI BİLMİYORUM YARDIMCI OLURSANIZ SEVİNİRİM
@@excel751 VİDEOLARDA BAKARAK EXCEL OĞRENDİM
hocam ben çalıştıramadım yardımcı olabilir misiniz
Merhabalar 🙂👋
Sorun nedir kısaca iletebilir misiniz 🙂
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
Merhabalar 😊👋
Düşeyara formülü ile yapabilirsiniz 😊
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
Merhabalar 🙂👋
O sayıya ait bir veri olmayabilir belki 🙂 İlettiğiniz geri bildirime göre bir sorun gözükmüyor aslında 🙂
@@excel751 hocam 5975 farklı stok kodum var ilk 3 hanesine göre aratıyorum filtreliyor ama veri getirmiyor verileri gizliyor gibi oluyor
@@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
Merhabalar 👋🙂
Bunun için For veya Do while döngüleri kullanmak gerekir. 🙂
@@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
Merhabalar 👋🙂
Yorumlara sabitleğimiz yorumu dikkate alarak tekrar deneyebilir misiniz ? 😊
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. 🙂👇
th-cam.com/video/FTVUAO7WNVM/w-d-xo.html
Merhaba aynı işlemi yapıyorum ama range sınıfının autofilter yönetimi başarısız hatası alıyorum bu sorunu nasıl çözebilirim?
Merhabalar 👋🙂
kodlarınızda Hata olabilir, bizim yaptığımız şekilde yapmayı deneyebilri misiniz?
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.
Veriii kelimesinin telafuzu konusunda emin misiniz? Kulağımı çok rahatsız ediyor, sondaki iii o kadar uzun değil sanki 😂😂😂
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
Merhabalar 👋🙂
Teşekkürler. excelapp19@gmail.com adresinden ulaşabilirsiniz.
Hocam merhaba; range b4:h10000 kısmına tablo ismini yazsak daha dinamik bir yapı olurumu?
Merhabalar , evet olabilir fakat tabloya refere etmek için farklı kodlamalar kullanmanız gerekir.🙂👍
@@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
Çözebildiniz mi acaba ?
@@aydndemirci923 maalesef çözemedim
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
Merhaba ben excel 2013 kullanıyorum çoğu şeyi uygulayamiyorum. Örnek olarak ; f4 ile tekrar etmesi. Nasıl çözebilirim bu durumu
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 😊
Teşekkür ederim hocam
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İ?
Merhabalar 👋🙂
range("a3") = Date kodunu kullanarak bu işlemi yapablirsiniz.
Hocam kodu kopyalayabilir misiniz yoruma.
Merhabalar 🙂👋
Videoyu takip ederek aynı kodu sizde geliştirebilirsiniz 🙂
şunu nerden indire biliriz?
Merhabalar 👋🙂
KATIL abonemiz olarak indirebilirsiniz 🙂
Bu linkten inceleyebilirsiniz. th-cam.com/channels/ayktuDKiAnAKR0akdDCusg.htmljoin
@@excel751 abi abone oldum.Ama toplulukta yok.Bulamadim
@@anarabbasov7600 Bu linkten KATIL abonesi olmalısınız 🙂 videonun tamamını izlemenizi tavsiye ederiz.
th-cam.com/channels/ayktuDKiAnAKR0akdDCusg.htmljoin
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ı :).
Merhabalar 👋🙂
Yorumlarda en başa sabitlediğimiz yorumu dikkate alarak tekrar değerlendirebilir misiniz? 🙂
@@excel751 sabitli yorum nerede
Kodları yazsaydınız keşke birşey anlaşılmıyor.
Merhabalar 👋🙂
Tam olarak nereyi anlamakta sorun yaşıyorsunuz ? 🙂 Yardımcı olmak isteriz
@@excel751 videoda kodlar belli olmuyor bir kaç gündur uğraştım fakat yapamadım. Kodları açıklama bölümüne yazsaydınız. Video da belli olmuyorlar.
hocam ben sayfanıın korumasını açınca neden bu kod çalışmıyor.?
Merhabalar 🙂👋
NAsıl bir hata alıyorsunuz ?
@@excel751 hata almıyorum hücre çalışmıyor
YAPIYORUM AMA OLMUYOR
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 & "*"
merhaba, ben de bu satırda hata aldım, nasıl çözebilirz acaba
bitiş hücresini daha az verince oldu, yani sizin yazdığınız S1000 fazla abartılı olunca kabul etmiyor, onu kısaltın deneyin derim, bende oldu.TŞkler
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.
@@ondertombalak4237 teşekkür ederim oldu :)
Merhabalar kodu birebir yazdım ama bende çalıştıramadım.
Merhabalar 👋🙂
Tam olarak nasıl bir sorunla karşılaşıyorsuuuz ? yeni bir yorumda iletebilir misiniz?
çalışmıyor faydasız yanlışlarla dolu bir kod
Merhabalar 👋🙂
Nasıl bir hata almaktasınız? destek olmak isteriz. Kodun çalıştığını videoda göstermekteyiz 😊