Excel VBA UserForm ile Kayıt Bul Sil Değiştir Ve Yazdır 3.DERS (İleri Excel 42.Ders)

[@ferdierboy2152]

Ömer hocam ufkumu açtınız sizin sayenizde amatörde olsak kendi işimizle alakalı envanter formumu yaptım. Teşekkür ederim. Bana bir harf öğreten varolsun.

[@eschool1398]

Teşekkür ederim Ne mutlu bana çok sevindim iyi çalışmalar dilerim kolay gelsin

[@erimsavas9034]

Neredeyse bütün videoları izleyip, çok şey öğrendim. Videoların kısa ve hiç uzatmadan, net bir şekilde anlatılması çok iyi oluyor. Videoların devamı gelsin. 👍🏻👌🏻

[@eschool1398]

Çok teşekkür ederim inşallah bu ara tatilde devamı gelecek güzel uygulamalar yapcaz... Cevrenize kanalı iletirseniz cok sevinirim teşekkürler

[@berkecetin9425]

@@eschool1398 👍 👍👍👍

[@zeynepgocebe4894]

Tek kelime ile muazzamdı. Ağzınıza sağlık hocam. Gerçekten bu seri çok yararlı oldu benim için. Çok açıklayıcı anlatmışsınız. Özellikle son 3 video ile bana çok şey kattınız. Her şey için teşekkür ederim, başarılarınızın devamını dilerim

[@haknakgn3668]

Hocam elinize sağlık. Tüm videoları baştan sonuna kadar izledim. Gerçekten çok güzel şeyler öğrendim sayenizde. Emeğinize sağlık.

[@eschool1398]

Çok teşekkür ederim.

[@farukeminoglu4374]

Emeğine sağlık gerçekten çok açıklayıcı çok akıcı bir şekilde anlatmışsın.

[@burakozgen6196]

Ömer Bey elinize sağlık, çok güzel bir eğitim olmuş. Teşekkürler.

[@huseyindag2811]

Hocam çok güzel bir seriydi emeğinize sağlık. Nacizane fonksiyon ve sınıflarla karmaşıklık ve kod tekrarı azaltılabilir. Tabi herkes anlamayabilir bu yüzden sade ve kısa videolarla daha izlenebilir olmuş.

[@satmehmetates227]

Hoca'm teşekkür ederim. Ağzınıza elinize zihninize sağlık. Gerçekten çok güzel bir anlatımınız var.

[@TheRizademir]

Ömer bey çok şey öğrendik Allah sizden razı olsun inşallah

[@eschool1398]

Amin hepimizden inşallah çok teşekkürler ederim ne mutlu bana, çevrenize kanalı iletir ve abone olmalarını rica ederseniz kanala ve bana büyük iyilik yapmış olursunuz sağolun

[@hulk8889]

Elinize sağlık, çok yararlı oldu bu bilgiler.

[@talipguden8370]

Emeğiniz için teşekkürler.

[@NIHATESEN-yj8id]

hocam kolay gelsin rahatsiz ettim daha evvel 40 ve 41 videolarda çok fayda gördüm ayrıca teşekkür ederim Excel VBA UserForm ile Kayıt Bul Sil Değiştir Ve Yazdır 3.DERS (İleri Excel 42.Ders) desrteki video tam olarak net alarak gözükmediği icin formulleri iyi secemiyoruz bu konuda yardımcı olursanız seviniriz

[@en-soy]

Emeğinize ve bilginize sağlık, harika bir anlatım, 👍🏻 sizinle nasıl iletişime geçebilirim?

[@emregedik541]

Elinize Sağlık Çok yararlı oldu çok teşekkürler

[@eschool1398]

ben teşekkür ederim ne mutlu bana

[@gelgel1900]

@@eschool1398 Bu tarz tabloları nasıl, nerede yaparız, hangi programla? Hazır benzeri şablonları nereden buluruz?

[@a.ogundursun881]

Elinize sağlık 🙏

[@isakcelebi1647]

Eline sağlık kardeşim

[@ismailbektas5773]

Hocam merhaba. UserForm anlatımınız sayesinde işlevleri daha iyi anlamaya basladım. Sizden rica etsem, "Bul" işlevinin birden çok kritere göre arayıp getirmesini anlatabilirmisiniz ? Misal ID+İsim+Soy İsim uyuyor ise göster gibi... Teşekkürler

[@eschool1398]

Excel VBA Kod Ile Filtreleme - Çoklu Arama bu videoyu izleyiniz

[@ismailbektas5773]

@@eschool1398 Hocam link için çok teşekkür ediyorum, ilgiyle izledim ancak bunu Userform VBA ile nasıl yapabiliriz bu konuda bir ders yaparsanız çok seviniriz. Emeğinize, elinize saglık ve teşekkürler

[@laptopcu7846]

Merhaba emeğinize sağlık arama işlemini ListBox ta yaptıramıyormuyuz da exelde ara yapılıyor ListBox ta zaten kayıtlar var birde bu şekilde yapsanız

[@sefanimg]

ders içn teşekkürler yalnız bir sorum olucak yazdır butonuna bastıktan sonra nereye kayıt yapacağını sormuyor direk yazdırmaya geçiyor.

[@nurettindogan_]

Selamın Aleyküm öncelikle anlatımınız o kadar anlaşılır ve net ki inanın sayenizde çok şey öğrendim. Bir konuda yardim istiyorum sizden. Ara bul komutunda sadece a:a sütununda arama yaptırdıkya yani id ile bunu ayrıca hem b sütunu, isim c sütunu, tc yazarak nasıl arama yapabilirz.

[@nurettindogan_]

Yardımcı olursanız şimdiden çok teşekkür ederim

[@onurguler3221]

Hocam selam , öncelikle teşekkürler sizinle makro ile tanıştım ve çok işime yaradı . Sorum şu yardımcı olursanız çok sevinirim . Silme tuşunda herşey aktif ledim fakat , 1 silmede hatayı veriyor ancak sil tuşuna tekrar bastığımda aktif olmayan içeriği boş sutunlarıda sondan başlayarak her bastığımızda siliyor , diğer bir konu ; silme işlemini satırı silerek yapıyor , içeriği temizle komutu var mıdır . Yani sayfada oluşturduğumuz tabloyu tek tek sondan başlayarak siliyor . bu konuda yardımcı olabilirmisiniz . Sadece içeriği silmek için

[@QwRMkL]

Video kalitesi düşük 720p yok yazdıklarınız okunmuyor.🙁

[@canordu3930]

Hocam öncelikle emeğinize sağlık çok başarılı bir çalışma olmuş, devamının gelmesini ümit ederim. bir proje yaptım ancak aramayı başka bir yolla yaptırıyorum. kayıtlarda bazen istediğim numarayı değil benzer bir kayıdı getiriyor. bunu nasıl çözebilirim

[@eschool1398]

Hücre veri tipleri ile alakalı olabilir

[@emrahsezer41]

Bulma işlemi ile ilgili bir sorum olacak. 19,40 ıncı saniyede Range(a:a) yaptınız . Aramayı başka sayfada yapmasını istersek Örneğin sayfa3.range(a:a) şeklinde mi yapmalıyız

[@islamocal4948]

Worksheets("sayfa3").range(A:A)

[@gokhanozen5869]

Hocam merhaba bu işlemi Anasayfada değilde başka bir sayfada aramak istersek ne yapacağız? Yani ilgili sayfamı nerede belirtmem gerekiyor acaba? Yardımcı olursanız sevinirim.

[@uzay-yolculari]

Hocam kolay gelsin ellerinize sağlık ilk önce ben yazdırma ile ilgili bir sıkıntı yaşıyorum sectiğim değerlerin düz veri tabanı olarak değilde form on yüzü gibi yazdırmak istiyorum fakat bulamadım bir turlu mesela bu yaptıgınız formda cv formu gibi düşünelim gerekli yerlere bilgiler gelecek ve cıktıyı oyle alıcam bunu nasıl yapmam lazım

[@dilsahdilsah2721]

Hocam videonun devamı gelecek mi?

[@emrahsezer41]

Silme işleminde tüm satırı değil de sadece tablodaki satırı silse daha güzel olur, benzer bir tabloda satır sonunda işlemlerim var ve satır silinince formül de gidiyor, onu nasıl yapabiliriz

[@mahmutsahin5569]

Hocam arama butonuna kod yazdığımız yerde inputbox kullandınız ya. Ben açılır listeden gelmesini istiyorum. Nasıl yapabilirim. Yardımcı olur musunuz?

[@durmusulusoy2069]

hocam merhaba, emeğinize sağlık öncelikle, şöyle bir sıkıntım var işlemi yapıyorum ön izlemede makro çalışıyor ancak vba yı kapatınca işlemi yapamıyor, kayıt bulunamadı hatası alıyorum

[@DemirademDemir]

arama işleminde atıyorum aranacak değerler arasında (567) diye bir değer olduğunu varsayarsak. aranan kısmına 5 yazsam bile içinde 5 olduğu için yine bunu buluyor.

[@mbozdag1]

Hocam merhaba, destekleriniz için çok teşekkür ediyorum. Bulma butonu ile proğram geliştirici kod sayfasına girdiğimde sorunsuz çalışıyor, fakat başka bir excel sayfasında bir butona proğramı bağlayıp burda n çalıştırdığımda arama butonu çalışmıyor, direk aramanız bulunamadı deyip mesaj veriyor. sorunu araştırmama rağmen çözemedim, yardımcı olur musunuz. Teşekkürler.

[@emrahsezer41]

Bu yorumu yazalı 1 sene olmuş, dediğiniz sorunu ben şimdi yaşıyorum. Siz bulabildiniz mi cebivabını…

Tekrar selam. Anlatımını yaptığınız projede "Ana Sayfa" aktif ve veriler orada aranıyor. Benim veriler "Sepet" sayfasında. VBA kısmında makro çalıştırdığım zaman eğer bendeki sepet sayfası aktif değil ise; "ÜRÜN BULUNAMADI" hatası veriyor. Fakat "Sepet" sayfasını aktif eder ve VBA kısmında makroyu çalıştırırsam o zaman hiç sorunsuz çalışıyor. Bu hatayı nasıl düzeltebilirim? Sheets("SEPET").Range("A:A").Find(aranan).Select Sondaki "Select" Kısmını "Activate" olarak denedim fakat yine olmadı. Lütfen acil yardıma ihtiyacım var. Teşekkürler.

[@farukeminoglu4374]

ufak bir sorum olacak; öncelikle +29 tane ID kaydı olması, arama butonu kullanımında 2. ID yi aratmak istiyorum aratıp siliyorum. Daha son tekrardan 2. ID yi aratmak istediğimde bana 12, 20, 21, 22, 23 ... diye sıralı bir şekilde getiriyor. Sadece " 2 " olarak aratamıyorum. Bunun için düzeltme kodu paylaşmanız mümkün mü?

[@islamocal4948]

arama kısmına ıd sütunu değil benzersiz verinin olduğu bir sütun girerseniz örneğin Tc probleminiz düzelir. Ama kodlama yaparken hocanın A:A kısmını tc bilgilerininizin yer aldığı sütun ile değiştirmeniz gerekiyor

[@definetourskalkanairporttr5192]

Hocam selam, bu videoyu yüksek kalitede 1080p tekrar yüklemeniz gerekiyor çünkü 480p'de hiç bir şey okunmuyor

[@eschool1398]

Kendisi 480p oldu bende anlamadım

[@selamisayar3136]

Hocam ListBox ta ilk satırdan itibaren gözüküyor Kaydedilen son satır 15 kayıttan sonra gözükmüyor bence önemli olan kaydedilen son satırın gözükmesi onu nasıl formülle çözeriz

[@eschool1398]

hadi bunu şöyle düşünelim normal de Excel sayfasında son satıra nasıl gideriz bunu makrolarda anlattım ctrl+shift+ aşağı ok tuşu değil mi bu kombinasyonun makrosunu kaydedin ve kodlara bakıp yorumlayın sonrasında sütunları yazdırmak kolay olacak ayrıca vba kısmında ara kodunu da incelemenizi öneririm

[@serhatturkmen5327]

Ömer hocam. Kaydet dedikten sonra form sıfırlansa ( dalgınlığa gelip iki kere basarsa 2 aynı kayıt oluşmuş olacak)

[@islamocal4948]

koşullu biçimlendirme kullanabilirsiniz

[@yaman6762]

Hocam videoların çözünürlüğü çok kötü yazılar okunmuyor.Biraz daha büyük puntolarla yazabilir misiniz..?

[@aykutyldz3822]

Hocam benim bir sorum olacaktı e posta adresiniz var mı oradan excel tasarımımı göndersem yardımcı olur musunuz

Merhabalar Hocam. Ben Güncelle ve Ara Butonlarında sorun yaşadım. Güncelle butonunda hatayı Range("B:B").Find(aranan).select olan yerde veriyor. ben a sütununda değil de B sütununda aratmak istiyorum ama hata veriyor. ara butonunda ki sorun ise şu. Arama yapacağı sayfa aktifse arama yapıyor başka sayfalara geçince arama yapmayıp hata veriyor ben hangi sayfada olursam olayım komutun çalışması için nasıl bir yol izlemeliyim. Worksheets("Üyeler").Range("B:B").find(arana).select bu şekilde de denedim ama olmadı. yardımcı olabilirsenşz çok sevinirim.

[@orduhanozgenc9396]

sorunu çözersen buraya yaz aynı sorunu bende cözemedim kolay gelsin

[@orduhanozgenc9396]

Sheets("DEPO").Select önce sayfayı aktif edersen sorun çözülüyor

@@orduhanozgenc9396 onu da denedim diye hatırlıyorum ama bir daha bakıcam. Çok teşekkür ederim. Bu şekilde çözüşürse yazarım buraya.

[@cemevrenos]

Aynı sorun bende de var, yorumların hepsine baktım, kesin bir çözüm vermemiş kimse, video sahibinden de geri bildirim yok. İkinci koddan sonra direk range ile başlayan komutu yazmaya başlamış, ancak aralığı hangi sayfada belirteceğiz o konuda bilgi yok ("A:A") demiş ama sayfa adını nasıl betimleyeceğiz bir bilgi yok maalesef. OK ve cancel butonlarının olduğu, yazarın da 2 deyip arattırdığı kısma kadar gelebildim ama istediğim değeri ara diyince hiç bir şey olmuyor.

[@emregedik541]

fonsiyonları öğrenebileceğimiz bir kaynak var mıdır ?

[@eschool1398]

direk bir kaynak öneremiyorum maalesef

[@berfinalev-o4e]

Elinize sağlık bu exceli atabilirmisiniz

[@eschool1398]

Teşekkür ederim

[@abs5198]

Hocam sizinle nasıl iletişime geçebiliriz ?

[@eschool1398]

mail atabilirsin

[@yusufcolak2323]

Farklı excel sayfasında hata veriyor hocam sıkıntı yazıdıgnz kod

[@channelcadfree]

Bu video 'da görüntü kalitesi birden 480p 'ye düşmüş...

[@eschool1398]

Ben herhangi bir oynama yapmadım

[@definetourskalkanairporttr5192]

@@eschool1398 Evet kalite 480p ve hiç bir şey okunmuyor.

Private Sub CommandButtonguncelle_Click() aranan = ComboBoxüyeadi.Value Range("B:B").Find(aranan).Select güncelle = ActiveCell.Row Worksheets("Üyeler").Cells(güncelle, 2) = ComboBoxüyeadi.Value Worksheets("Üyeler").Cells(güncelle, 3) = ComboBoxblokno.Value Worksheets("Üyeler").Cells(güncelle, 4) = ComboBoxkatno.Value Worksheets("Üyeler").Cells(güncelle, 5) = ComboBoxdaireno.Value Worksheets("Üyeler").Cells(güncelle, 6) = ComboBoxdurum.Value Worksheets("Üyeler").Cells(güncelle, 7) = TextBoxtelefonno.Value Worksheets("Üyeler").Cells(güncelle, 8) = TextBoxmail.Value End Sub burada ki hatayı bir türlü bulamadım. yarıdmcı olabilir misiniz.

[@orduhanozgenc9396]

ComboBoxüyeadi "Ü"den olabilirmi

@@orduhanozgenc9396 bilmem hiç dikkatimi çekmedi. Bakmam lazım. Teşekkür ederim

[@nayimacay5318]

hocam öncelikle elinize sağlık bir sorunum olacaktı. Private Sub CommandButtonARA_Click() On error GoTo bitir aranan = InputBox("kayıtlı İSİM SOYİSİM giriniz..!", "Arama İşlemi") Range("B:B").Find(aranan).Select ===> hocam burdaki hata veriyor sorunu bulamadım ARA BUTONU TIKLARKEN ListBox daki listedeki olmayanı aradım ama bu şekilde hata verdi sil_satir = ActiveCell.Row şimdiden teşekkür ederim...

[@oyuncubiri503]

Yukarıda "On error GoTo bitir" kullanmışsınız türkçesi: (On Error)Eğer hata var ise (oluşursa) (GoTo) ozaman bu satıra git = bitir ama altta = bitir= satırı tanımlanmamış (yazılmamış) o da şöyle tanımlanır (yazılır) - bitir: Başarılar dilerim. Yukarıdakiler sizin paylaştığınız kodlara göre yazıldı.

[@oyuncubiri503]

Tabii ki bitir: End Sub tan önce yazılır

[@nayimacay5318]

hocam çözümü yaptım sorunu buldum teşekür ederim emeğinize sağlık

[@ahmetsuna3493]

@@nayimacay5318 merhaba, aynı hata ile karşılaştım rica etsem yardımcı olurmusun

[@nayimacay5318]

@@ahmetsuna3493 tabi sorunu yazıp gönderirseniz ona göre bakmam gerekir

[@yasamnet]

EXCELLDE YAZMAK VARKEN BUNA NE GEREK VAR ONU ANLIYAMADIM. BUL AR DEĞİŞTİR YA HEPSİ FİLİTRE KULANARAK DAHA HIZLI VE KOLAY OLUYOR.

[@eschool1398]

Bazı ardaşlarımıza gerekli teşekkür ederim 🖐️

[@yasamnet]

@@eschool1398 sgl hoca. Oncelikle iyi olmus anlatim hic kodlama bilmezken 3 satte ogrendim.aciklayici olmus annlatim youtube de en iyisi ama ne usime yarayacak. Anliyamadim. Birde su liste beyaz yerdeki yere link verebilirmiyis

[@mardahan555]

@@yasamnet sen 3 saatte yærramı öğrenirsin, bu işleri userform da yapmak marifet ister, excel sayfası bile açmadan sadece userform üzzerinde kullanıcıya data ekletmek sildirmek profosyonelliktir

Öncelikle teşekkürler. Private Sub btnBul_Click() 'On Error GoTo bitir aranan = InputBox("SİLİNECEK ÜRÜN BARKODUNU OKUTUNUZ", "ARAMA İŞLEMİ") Range("A:A").Find(aranan).Select sil = ActiveCell.Row txtBarkod.Value = Sheets("SEPET").Range("A" & x).Value.Cells(sil, 1) txtUrun.Value = Sheets("SEPET").Range("B" & x).Value.Cells(sil, 2) txtMiktar.Value = Sheets("SEPET").Range("C" & x).Value.Cells(sil, 3) txtBirim.Value = Sheets("SEPET").Range("D" & x).Value.Cells(sil, 4) txtFiyat.Value = Sheets("SEPET").Range("E" & x).Value.Cells(sil, 5) txtTutar.Value = Sheets("SEPET").Range("F" & x).Value.Cells(sil, 6) Exit Sub 'MsgBox "ARANAN ÜRÜN BULUNAMADI", , "HATA" 'bitir: End Sub Kodu çalıştırdığımda arama kutusu ekrana geliyor, aranan ürün barkodunu girip tamama tıkladığımda ise ; Range("A:A").Find(aranan).Select kısmında hata veriyor. Çalışma kitabının hangi sayfasında arama yapması gereken kodu yazamıyorum. Silmek istediğim veriler SEPET isimli çalışma sayfasında. Ve ürün satışında bunlar LstSepet isimli list box a kaydediliyor. işlem tamamlandığı zamanda ise list box temizleniyor. Ben ise satış esnasında tek bir ürünün iptalini sağlamya çalışıyorum. Yardımcı olabilirmisiniz?

Tekrar selamlar. Kanal aktif mi acaba? Olumsuz bile olsa bir dönüş yapsanız harika olurdu. Gerçekten yardıma ihtiyacım vardı.

[@islamocal4948]

arananın ne olduğunu tanıttınız mı @