Это видео недоступно.
Сожалеем об этом.
Excel VBA Formları Üzerinde Hızlı Arama Nasıl Yapılır
HTML-код
- Опубликовано: 3 апр 2021
- Bu tür derslerin devamı içi Kanala Abone OL : bit.ly/2ZGHJhI
Excel VBA projelerinizde kullanabileceğiniz hızlı bir arama tekniğini sizlere anlatmaya çalıştım. Umarım faydalı olmuştur.
İzlediğiniz için teşekkür ederim.
www.bstkanali.com
-----------------ETİKETLER --------------------
#yapayzeka
#makineöğrenmesi
#dünyayıdeğiştirecekteknolojiler
#python #pythonprogramming #learnpython #creategui #gui #graphicuserinterface #pythontutorial #programming #createapp #createpythonapp #interface #designinterface
#python #pythonprogramming #learnpython #creategui #gui #graphicuserinterface #pythontutorial #programming #createapp #createpythonapp #interface #designinterface
#Excel #vba #program #Eğitim #programlama #bilişim #programing #enginiring #excel #vba
#Muhasebe #Programı #excel #macro #eğitimi #excel #macro #learn #üretim #Stoktakipprogrmı #RUclipsparakazanma #youtubekanalınasılaçılır #youtubevideoindirme #youtubekanalımkapatıldı
#youtubetürkiye #youtubemp3dönüştürücü #videodüzenleyici #abonekasma
#oyun #gaming #eğlence #challenge #komedi #şaka #şarkı #vlog #montaj #tepki #c#learning
#python #promotion #javalearning #excelvba #excellearn #javalearning #microsoftoffice
#game #facebook #instagram #tiktok
Videonun sonunda yapmak istediğinize dair nacizane ufak bir aciklama yaziyim (yorumlarda goremedim, belki merak eden olur)
SelStart muhtemelen SELECTION START demek, yani secime kacinci karakterden baslamamiz gerektigini yazcaz,
SelLength ise kac karakteri secilecegini belirtiyor.
SetFocus ile de imleci textBox içine aliyoruz...
O zaman sıra şöyle oluyor:
SetFocus
SelStart = 1
SelLength = 11
Bu arada güzel bilgilendirme için teşekkürler, agziniza saglik :)
Elinize dilinize bilginize sağlık hocam derslerin devamını bekliyoruz
Allah razı olsun hocam duacınız.
It was a great work, Thanks a lot.
Tsk ederim hocam emeğinize sağlık iyi yayınlar 👍
Teşekkür ederiz hocam yine güzel bir konu anlattınız. Derslerin devamını bekliyoruz
tesekür ederim hocam
Hocam çok güzel bir örnek vermişsiniz öncelikle çok teşekkür ederim. .Yazdığımız numara tabloda yoksa "Aranan kayıt bulunamadı "şeklinde bir uyarı verip sub dan çıkmasını nasıl yapabiliriz.
Merhaba arama sonrası bulunan hücreye gidip hücre rengini kırmızı yapıp sol tarafındaki hücreye + işareti koymasını nasıl yapabilirim. Birisi yardımcı olursa çok sevinirim aylardır araştırıyorum bir türlü çözemedim.
Hocam elinize sağlık
👏👏👏👏
Hocam merhabalar anlatışınız olsun örnekleriniz olsun gerçekten çok kaliteli sizden ufak bi ricam olacaktı örneklerin dosyasını atabilirmisiniz acaba? daha önce atmıştınız fakat gmail adresimin yazılı olduğu kağıdı kaybettim şu an gerçekten çok lazım örnekler
Kardeş eline emeğine sağlık.
Peki yazılan kayıt yok ise ne yapacak? Örneğin benim şu an çalıştığım dosyada, kayıt yaparken önce böyle bir numara var mı diye kontrol ediyor. Eğer benzer bir numara varsa kayda izin vermiyor, yoksa kayıt edebiliyor.
Bununla ilgili bir videon var mıydı? yoksa hazırlayabilir misin?
Başarılarının devamını dilerim.
HOCAM EXCEL MUHASEBE SERİSİNDEKİ ARAMA İŞLEMİ ÇOK YAVAŞ VE TAKILIYORDU UZUN LİSTELERDE ARAMA YAPARKEN AMA BU FARKLI BİR TEKNİKLE OLMUŞ EMEĞİNİZE SAĞLIK. AYNI ARAMA İŞLEMİNİN LISTBOX İÇERİSİNDE HIZLI BİR ŞEKİLDE YAPILABİLMESİ İLE ALAKALI DA KISA BİR VİDEO YAPABİLİR MİSİNİZ? MESELA İSME GÖRE ARAYACAZ AYNI İSİMDEN 4 TANE VAR DİYELİM HEPSİNİ HIZLI BİR ŞEKİLDE ARATMAK İÇİN NASIL YAPILIR?
Hocam çok güzel bir örnek vermişsiniz öncelikle çok teşekkür ederim. .Yazdığımız numara tabloda yoksa "Aranan kayıt bulunamadı "şeklinde bir uyarı verip sub dan çıkmasını nasıl yapabiliriz.
Şu konuda yardımınıza ihtiyacım var. çok rica ediyorum, yardım edin. teşekkürler.
💯💯💯💯💯💯
hocam bu ön muhasebe derslerinde yazdırmayı anlatmadan geçmişsiniz sanırım ders videosu gelirmi?
Hocam bu çalışmada arama yaptığımız Textbox a herhangi bin kontrol koymadığımız için Listede olmayan bir numara da girilebiliyor bu durumda aradığımız değer değil rastgele bir bir satırın verisini getiriyor.Yazdığımız numara tabloda yoksa "Aranan kayıt bulunamadı "şeklinde bir uyarı verip sub dan çıkması daha uygun olur sanırım bunu nasıl yaparız? Teşekkürler
Hocam merhaba bunun için ufak bir açıklama yapar mısınız?_
Hocam öncelikle elinize emeğinize sağlık çok işime yaradı teşekkür ederim. Ancak çalıştırdığımda farklı bir excel dosyasında ctrl+f ile arama yaptığımda varolan veriyi bulmuyor. Bunu nasıl düzeltebilirim?
Elinize sağlık 👋🏻 daha önceleri de buna benzer bir çalışmanız vardı.
Bu farklı bir teknikle arama yapmaktadır
@@BstYazilim Hocam maillerinize bakar mısınız size ulaşmam gerekiyor
gelen herhangi bir mail yok. bstkanali@gmail.com
@@BstYazilim hocam tekrardan yazıyorum bilgisayara geçip
@@BstYazilim Hocam tekrardan mail yolladım. Sizlerden haber bekliyorum
hocam merhaba, bu işlemde arama yaptıktan sonra gelen bilgilerin yanına güncelle butonu eklenebilir mi? güncelle tıklandığında veriyi aldığı hücredeki değer güncellenebilirmi ?
Hocam merhabalar
Sadece a hücresinde değilde bütün hücrelerde nasıl arama yaptırabiliriz.
Örnek id isim tc tarih gibi herhangi birini yazarak nasıl arama yaptırabiliriz.
Cevap verirseniz çok mutlu olurum teşekkür ederim
hocam bir kaç sayfa içinde arama yapmak için kodda hangi değişikliği yapmam gerek ?
Tc no yerine ürün isimlerini bulmasını istiyorum sadece birkaç harf ile
Xlwhole yerine ne yazmak gerekiyor
Hocam stok takip programına arama nasıl ekleyebilirim yardımcı olurmusun Teşekkürler
Hocam çok rica ediyorum yardım edin. Listede olmayan TC kimlik no su yazdigimda, kodlarda hata varmış gibi uyari veriyor. Debug tikliyorsun, bul butonunun içine yazdığımız kotlari açıyor. Onu nasıl yapalim ki, o hata degilde, msgbox açsın, aradığınız bilgi yok, yada başka birşey yazsın
Hocam selam, mükerrer kayıtları nasıl arama yaptıracağız? Farz edin 55555555555 Sabri ile birlikte farklı bir kayıt var ama aramada sadece Sabriyi bulacak ve diğerlerini getirmeyecek. Yani tekrar arama yaptırdığımızda bir sonraki mükerrer kayıtın bilgilerini de getirsin bunu nasıl sağlayacağız? Bilgilendirmenizi talep ederim. Ayrıca teşekkür ederim faydalı bir çalışma.
Hocam mail ile ulaşmaya çalıştım ama dönüş sağlamadınız nerden ulaşabilirim sizlere ?
Hocam sizden cevap bekliyorum mailde attım dönüş alamadım. Projeyi bitirdim lakin mükerrer kayıtları bulmuyor. Alt yorumda da belirtiğim üzere örneğin 123456789 urun ıd den farklı mağazalardan aynı ıd de ürün geliyor ve her bir ürüne farklı veriler giriliyor ben her bir mağazanın kodunu scanner ile okuttuğumda sırasıyla bulsun istiyorum ama bir tanesini buluyor diğerlerini bulmuyor. Acil dönüşlerinizi talep ederim :) Teşekkürler..
Mükerrer kayıt engelleme ile ilgili ders kanalda var. izleyebilirsiniz
@@BstYazilim Hocam tekrar merhaba, videolarınızın bir çoğunu izledim keza bahsettiğiniz videoyu da izledim. İlgili videoda mükerrer kayıtları engelleme eğitimi mevcut ben aksine bir datanın içinde arama yaptırıyorum bir nevi filtre yaptım userformda bu videonuzda bahsettiğiniz gibi; ruclips.net/video/-AbwkteKb4I/видео.html şöyle izah edeyim bir uygulama üzerinden rapor çekerek data oluşturuyorum bu datanın içinde aynı ürün ıd ile girilmiş farklı mağaza adı mağaza sevk disi hata detayları gibi bilgiler mevcut ben scanner ile okutma yaparak işlem yapacağım okuttuktan sonra veya manuel yazdıktan sonra her okutmamda olası mükerrer kayıtları görmek istiyorum. Destek verirseniz veya bir eğitim videosu çekerseniz inanın cok minnete geçecek ve çok sevineceğim. Dosyayı paylaşabilirim ihtiyaç olması durumunda.
Hocam lütfen yardım :)
Hocam kodları paylaşsanız bazen hata yapıp takılıyoruz
Hocam merhaba ben bu arama işini bir türlü başaramadım birçok dersten denedim kodlarım aynı nerede yanlış yapmış olabilirim
Private Sub CommandButton2_Click()
If Len(texbox6.Value) < 11 Then Exit Sub
Dim pr As Worksheet
Set pr = Sheets("Stock")
Dim x As Long
x = pr.Range("A100000").End(xlUp).Row
Dim aranan As String
Dim tablo As Range
Set tablo = pr.Range("A:F")
aranan = TextBox6.Text
TextBox1.Value = tablo.Find(aranan, , , xlWhole).Offset(, 1)
TextBox2.Value = tablo.Find(aranan, , , xlWhole).Offset(, 2)
TextBox3.Value = tablo.Find(aranan, , , xlWhole).Offset(, 4)
TextBox4.Value = tablo.Find(aranan, , , xlWhole).Offset(, 5)
TextBox5.Value = tablo.Find(aranan, , , xlWhole).Offset(, 6)
Set pr = Nothing
Set tablo = Nothing
texbox6.Value = ""
texbox6.SetFocus
End Sub
Sayfa ismini kontrol edin
textbox6 yerine texbox6 yazmışsınız yani x den sonraki (t) harfi eksik olmuş. muhtemelen ondan kaynaklıdır.
@@excel3657 iyi görmüşsünüz
@@BstYazilim hocamız bstkanalı sağolsun sevdirdi vba yı tşk ediyorum tekrar bütün bilgiler için
Hocam Selam, bir kaçtır yazıyorum kusura bakmayın. Bu videonuzdaki konuya istinaden alt yorumlarda da belirtiğim üzere ürün ıd aynı olan mükerrer kayıtları da bulmak istiyorum ama bir türlü yapamadım. Aşağıda sizin videonuzdan da destek alarak yazmış olduğum kodları yazıyorum;
Yazmış olduğum kodlara istinaden; "Range.FindNext" bu kodu nerde ve nasıl yazarsam mükerrer kayıtları bulmasını ve göstermesini sağlayabilirim. Lütfen yardımcı olabilir misiniz?
Private Sub CommandButton2_Click()
Application.Visible = True
Unload Me
End Sub
Private Sub TextBox1_Change()
If Len(TextBox1.Value) < 13 Then Exit Sub
Dim pr As Worksheet
Set pr = Sheets("Data")
Dim x As Long
x = pr.Range("A2:G1048576").End(xlUp).Row
Dim aranan As String
Dim tablo As Range
Set tablo = pr.Range("A:G")
aranan = TextBox1.Text
TextBox2.Value = tablo.Find(aranan, , , xlWhole).Offset(, 1)
TextBox3.Value = tablo.Find(aranan, , , xlWhole).Offset(, 2)
TextBox4.Value = tablo.Find(aranan, , , xlWhole).Offset(, 0)
TextBox5.Value = tablo.Find(aranan, , , xlWhole).Offset(, 3)
TextBox6.Value = tablo.Find(aranan, , , xlWhole).Offset(, 4)
TextBox7.Value = tablo.Find(aranan, , , xlWhole).Offset(, 5)
TextBox8.Value = tablo.Find(aranan, , , xlWhole).Offset(, 6)
Set pr = Nothing
Set tablo = Nothing
TextBox1.Value = ""
TextBox1.SetFocus
End Sub
Private Sub CommandButton1_Click()
Application.Visible = True
End Sub
burada ki kodlar ile sadece rakam olan bilgileri arıyor bana metin olanları aramak için lazım yani ben combobox a stok adı yazıcam belirlediğim textboxlara stok adının karşılığı gelicek
Private Sub CommandButton1_Click()
Dim pr As Worksheet
Set pr = Sheets("SARCOOL FİYAT LİSTESİ")
Dim x As Long
x = pr.Range("A100000").End(xlUp).Row
Dim aranan As String
Dim tablo As Range
Set tablo = pr.Range("A:BB")
aranan = ComboBox1.Text
TextBox2.Value = tablo.Find(aranan, , , xlWhole).Offset(, 34)
Set pr = Nothing
Set tablo = Nothing
ComboBox1.SelStart = 1
ComboBox1.SetFocus
End Sub
Aynen katılıyorum ayrıca arattığım kelime ad soyad veya tabloda ki başka birşey olabilir. Bu durumda arattığımız kelimeden önceki sütunda bulunan kelimede çıkmıyor