Excel VBA (Macro) Courses - Data entry to cells with UserForm - Sample Program -1
HTML-код
- Опубликовано: 28 авг 2024
- In this video I continue to Excel VBA (Macro) courses.
Data logging into cells with UserForm - Sample Program -1
In this video I made a detailed and understandable study about the UserForm.
You can find in the course.
- Making a program from start to finish
- Excel VBA window to recognize and write code
- Create a UserForm
- Data input to Excel cells with UserForm
- Automatic entry of Excel unique ID (Sequence No)
- Excel VBA UserForm Detailed information about the TextBox
- Excel VBA UserForm Detailed information about labels
- Information about Excel VBA variables and datagrams
- Find VR with Excel VBA UserForm
- Excel VBA UserForm with SiL Macros
- Excel VBA Change User Macro with UserForm
- Excel VBA with UserForm Print Macros
I cut the video into 2 so it's not too long. You can watch our other video from the link below.
/ pruqgwxwz3m
I wish you a pleasant ride.
If you like to subscribe to our channel and like our video, don't forget to press the button like ...
Playlists in the Channel
Excel Courses - • Excel Dersleri - Eğiti...
Programmable Actions on the Computer - • Bilgisayar'da Programs...
Excel Courses Questionnaire - • Excel Dersleri VBA ile...
Site Install and Unlock From scratch - • Sıfırdan Wordpress Sit...
Excel Macro Tutorials - • Excel VBA Makro Eğitim...
Wordpress - • Wordpress Sitesi Hakkında
WHM Panel - • WHM Panel Ayarları
CPanel - • Cpanele Giriş
Computers - • Bilgisayar Toplama ve ...
MS Word Courses
dilaverajder.com/
10 numara anlatım.
Tabiki konuya hakim olmayanlara karışık gelmesi gayet normal.
Pes etmeden takip ederseniz istediğiniz seviyeye geleceğinizden eminim.
Herşeyin başlangıcı bu video oldu. Sonra başka videolardan ilerledim. Sonra forumlardan üstüne koya koya gittim. Şu anda hukuk büromu kendi yazdığım excelde tek elden yürütüyorum. Muhasebe,raporlama,son günler, tümü tek bir ekranda. Şimdi arabulucu oldum ve şu an arabuluculuk için bir excel hazırlıyorum. Bir kaç hususu unutmuşum beceremedim. Yine döndüm bu videoya. Çok çok çok teşekkür ediyorum.
Çok güzel anlatmışsınız excel ile böyle şeyler yapılabildiğini yeni öğrendim ve araştırırken böyle güzel bir video bulmak çok işime yaradı.
Teşekkür ederim. Kanalımı takip ederseniz Excel'de yapılabilecek daha çok fazla şey olduğunu göreceksiniz.
Allah senden razı olsun usta takıldığım noktayı senin videoda buldum saygılar
COK GÜZEL COK İYİ FAKAT KONUYU DİNLERKEN COOK SIKILDIM DAHA AKICI VE DAHA SERİ ŞEKİLDE ANLATIM DAHA. İYİ OLABİLİRDİİ
Hocam teşekkür ederim. Sayenizde çok güzel bir personel takip programına sahip oldum. Programı da öğretileriniz ışığı altında öğrendiklerimle geliştirdim. Varolun.
Merhaba Hocam, hiç bilgisi olmayan biri için çok güzel ve anlaşılabilir bir çalışma olmuş. Başka daha gelişmiş projeleri örneklerle yaparsak hiç bilmeyenlere harika bir kaynak. teşekkür ederim.
Güzel yorumunuz için teşekkür ederim. Vakit bulur bulmaz farklı projeler ile eğitim videoları çekmeye devam edeceğim.
Harika bir anlatım ama reklamlar şu güzel videonun içine etmiş afedersiniz. Tam dalıyorum derse; reklam. Normalde hoca öğrencisinin dikkatini derse çeker, bizim hoca dikkat dağıtmak için basmış reklamı. Azalt hocam lütfen, valla baydı.
Arkadaşlar sizleri anlıyorum ama lütfen sizde beni anlayın. Ben burada sizlerden bir ücret talep etmeden gerçekten büyük bir zaman ve emek harcayarak, üstelik piyasada binlerce lira verseniz bile kolay kolay bulamayacağınız şekilde tam bir eğitim seti hazırlamaya çalışıyorum.
Bunun karşılığında da sadece reklam ücreti alıyorum. Ayrıca bu reklam ücretlerinden de zorunlu olarak kesilen vergiler ve kurulan şahıs şirketi masraflarından dolayı emin olun hiçbir şey kazanamıyorum. Dolayısıyla hoş görmenizi rica ediyorum.
Bir de bu arada bilgi olarak ücretli youtube üyeliği alırsanız reklamsız izleyebilirsiniz.
Harika, sizden daha farklı alanlarda da çalışmalar bekliyoruz.
Teşekkür ederim. Yakın zamanda tekrar video çekimlerine başlayacağım.
Çok teşekkür ederim harika bir anlatım
Çok iyi bir anlatım. Emeğinize sağlık.
merhaba
çok güzel anlatım
Yorumunuz için teşekkür ederim. Umarım fayda sağlayabilmişimdir.
@degrado senin sayende çok geliştirmeler yaptım. Eline sağlık.
Çok teşekkür ederim. Faydalı olabildiğime sevindim. Yakında sıfırdan ileri seviyeye kadar VBA dersleri yayınlayacağım. Onlardan da faydalanacağınızı ümit ediyorum.
Hocam emeğiniz için çok teşekkürler. Detaylı ve son derece anlaşılabilir bir çalışma olmuş.
Teşekkür ederim. Umarım işinize yaramıştır.
Degarado hocam son derece faydalı oldu, serinin geri kalanını beklemedeyiz.
Degarado hocam sizden rica etsem videoları 1080p çözünürlüğüde kayıt apar mısınız?
Elimden geldiği kadar kaliteli çekmeye çalışıyorum. Ancak maalesef bulunduğum yerde Upload hızım çok ama gerçekten çok düşük. O yüzden son videolarımı HD 720P çözünürlüğünde yüklemeye başladım. Sadece bu video bile 6-7 saatte ancak yüklendi. Ama 720P'nin de yeterli netliği verdiğine inanıyorum.
Degarado hocam bende alt yapı ttnet, çevremde farklı bir internet alt yapısıda yok, bende download upload hız konularda ve internetin dalgalı olması sebebiyle çok sıkıntı yaşıyordum. sadece fatura ödediğim şirketi değiştirerek muazzam bir fark oluştu, aynı ttnetin alt yapısı olmasına rağmen düşünün. geçtiğim şirket millenicom. mutlaka tavsiye ederim. öncesi download hızım 3mb ti, şimdi 30 civarı. upload hızımda 0.6 dan 3mb çıktı. ve şimdi hiçbir dalgalanmada yaşamıyorum. dengeli ve stabil
Çok faydali bilgiler. Teşekkürler.
hocam merhabalar;
sayenizde öğrenmiş oluyoruz.öğretmiş olduğunuz bilgilerle sütun sayıları için çok uğraştınız.
onun yerine Worksheets("ANASAYFA").Cells(sonsatır, 1) = sonsatır - 1 yazmamız olayı çözecektir
İstenilen bir şeyi yapmak başka bir şey öğretmek bambaşka bir şey. İnanın en kolay şekilde anlatmak için videoları çekerken o kadar çok zorlanıyorum ki. Acaba böylemi anlatsam şöyle mi anlatsam daha anlaşılır olur diye. Neyse dediğiniz gibi sadece bir iki yöntem değil onlarca farklı yöntemle istenilene ulaşmak mümkündür. İlginize teşekkür ederim.
Hocam ansızın hiçbir şekilde önceden hazırlık yapmadan yapmanız çok mükemmel teşekkürler herşey için 👍👍👍
Hocam anlatımınız örnekleriniz süper elinize sağlık.
Güzel yorumunuz için ben teşekkür ederim. Daha farklı VBA örnekleri de yakın zamanda gelecektir. takip etmenizi isterim.
Aslında kayıt basarilidir uyarisi verseydi mükemmel olurdu.
Teşekkürler çok yararlı oldu .
Ben teşekkür ederim. Faydalı olabilmek çok güzel bir duygu
ellerinize sağlık çok faydalı oldu
Faydalı olabildiğime sevindim. Yakın zamanda VBA ile ilgili yeni videolarda çekmeyi planlıyorum. Umarım onlardan da faydalanabilirsiniz.
çok teşekkürler baya işimize yarayacak
Anlattıklarımın birilerinin işine yaraması beni sevindiriyor. Yorumunuz için teşekkürler.
Muazzam. Elinize sağlık
Teşekkür ederim Rıdvan bey.
Hocam tesekkurler, dediginiz gibi tane tane anlatmissiniz
Ben teşekkür ederim. Umarım faydalı olmuştur.
hocam eline sağlık çok süper bir video.
Rica ederim. Faydalanmış olmanız mutlu etti.
Hocam Elinize Emeğinize sağlık Çok teşekkürler
Yorumumuz için ben teşekkür ederim.
kolay gelsin
Teşekkürler size de kolay gelsin.
elinize emeğinize sağlık hocam
usta anlatım çok iyi de niye intron kaçak film sitesi gibi
Güzel anlatımızdan dolayı teşekkür ederim . Vermiş olduğunuz örnekte 3 kriter var ( isim, soy isim ve yaş) Burada daha fazla kriter olması durumunda boş değer girilmesini engellediğiniz if and komut satırını nasıl düzenleyebiliriz. ( kayıt kısmında 3 kriter için boş girilme engeli var.
Hocam Allah razi olsun sizden insaAllah, ama ben su videonun devamini bulamadim. Yardimci olursaniz sevinirim. Tesekkurler.
Aslında videonun açıklama kısmına 2. Videonun linkini atmıştım ama sanırım gözünüzden kaçmış. Aşağıdaki linkten takip edebilirsiniz.
ruclips.net/video/pRuqGwxWZ3M/видео.html
sağolun hocam çok faydalı olmuş
Sizler sağolun. Yakında tekrar videolara başlayacağım.
Teşekkür ederim
Anlatımınız ve uygulamanız mükemmel anlaşılır bir uslûp. Tarihi otomatik atama yapabilir miyiz? Çok Teşekkür ederim.
Teşekkürler. Oto tarih için Date()
Emeğinize ve anlatımınıza hayran kaldım. Sanki maceralı bir serüven gibi umarım yayınlarınız devam eder. Hocam bende makro işlemler yapıyorum. Ama bir yerde takılıp kalıyorum. mesela örnek vermek gerekirse bu yapmış olduğunuz makro eğitiminde ID kısmını saat olarak nasıl yazdırabilirim sizde numerik olarak yapılıyor. ayrıca yapmış olduğunuz makro formu bozmadan başka bir Excel dosyasına her gün tarih değiştiği için hep başka bir Excel dosyasına atmasını istiyorum. mesela saat gece 1 den saat başı gece 24 e kadar veri girilip kaydedilecek 1 no'lu Excel dosyasına bu verileri her saat başı yapılan kaydı işleyecek ertesi gün aynı form üzerinden yine farklı veriler girilecek saat 1 den gece 24 e kadar ve bu sefer 2 no'lu Excel dosyasına veriyi kaydedecek yani tarih örnek olursa 01.01.2021 saat 01: 00 -02:00 v.s 24:00 a kadar bu veriyi 01.01.2021 tarihli 1 nolu excel dosyasına işleyecek ertesi gün yani 02.01.2021 tarihli 01:00 da saat başı girilen veriyi 02.01.2021 tarihli 2 nolu excel dosyasına işleyecek takıldığım nokta bu örnek bir şablon oluşturdum size nasıl ulaşabilirim .
güzel bir çalışma tş ler
Ben teşekkür ederim. İkinci bölümü de en kısa zamanda yayınlamaya çalışacağım.
Hocam merhaba
Sizi yakından takip ediyorum. Ancak sizden bir istirhamda bulunmak isterim, müsadenizle. Malum youtube de birçok takvim uygulaması var. Ancak user form şeklinde ve bizim sistemimize uygun yok denecek kadar az. Olan da anlaşılır değil. Bizim sistemimize uygun ve tüm excel dosyalarında kullanılabilecek başlangıç günü pazartesi olan bir userform takvim uygulaması yaparsanız seçili hücreye takvimden gün seçerek tarih belirleme şeklinde bir uygulama yaparsanız çok sevinirim. Saygılar.
Adamsin
Hocam çok teşekkürler müthiş güzel bir anlatım. Modül açıp kod yazmak ike tek tek objectlere tıklayıp açılan pencereye kod yazmak arasındaki fark nedir? sadece çift tıklayarak açtığımız objectlere kod yazdsak olur mu? sizin videoda kaydet butonuyla yaptığınız gibi. Cevaplarsanız sevinirin. Teşekkürler
Hocam teşekkürler bilgiler için, çok yararlandık.
İlgilenirseniz, bir sorum var.
Diyelim ki bu kayıt formunu Zimmet vermek için oluşturuyoruz. Zimmetli malzeme aynı anda bir kişiye bir tane değil de birden fazla verilmek istenilsin. Bunları ayrı Comboboxlar vasıtasıyla giriş yapmak istediğimizi düşünürsek o halde kaydet içine ne gibi kodlar daha yazmalıyız; ki tek seferde birden fazla zimmetli malzeme girişi yaptığımızda ana sayfadaki yerine id-nosunu değiştirmeden ve her malzemeyi de alt alta satıra yazsın.
Meramımı anlatabildim mi bilmiyorum, teşekkürler :)
Sanırım anladım ama bunu maalesef bir yorumda anlatmam çok ama çok zor. Elimdeki konuları bitirince fırsat bulabilirsem bu konu ile ilgili bir video çekebilirim.
@@Degarado Emeğiniz için teşekkür ederim hocam.
Hocam merhaba. Öncelikle paylaştığınız eğitim videosundan çok faydalandığımı belirtmek isterim. Emeğinize sağlık. Hocam bul komutunda Aynı isimden farklı satırlarda birden fazla olursa aynı ada sahip diğer bilgilere sırasıyla nasıl ulaşabilirim.
Söyle ki;
Ben yalnızca ID ile arama yerine tüm hücrelerde arama formülü yaptım.
Formül:
( Aranan = InputBox("Aramak istediğiniz içeriği giriniz", "Arama Yap", "") Range("A:A").Find(Aranan).Select ) yerine
( Aranan = InputBox("Aramak istediğiniz içeriği giriniz", "Arama Yap", "") Range("A:H").Find(Aranan) seklinde değiştirdim.
Aradığım ismi girince tüm bilgileri getiriyor. Ancak aynı isimden birden fazla olursa o isme ait ilk kayıt bilgilerini getiriyor. Amacım aynı isim içeren diğer kayıtlara da bul seçeneği ile ulaşmak. Bunu nasıl yapabilirim. Teşekkürler.
Hocam çok teşekkür derim. Sayenizde userform da baya yol kat ettim.Tabiki arkadaşların yanında.label'lere excel hücresindeki bilgiyi nasıl getirebilirim.
Bünyamin bey,
Sorunuzdan Label üzerindeki yazıyı hücreden almak istediğinizi anlıyorum.
Bunun için bir Butonun Click yordamına veya UserFormun Active procudurune kodlarınızı yazabilirsiniz.
Örneğin Label1 içine A1 hücresindeki verileri yazdırmak için aşağıdaki gibi yazmanız yeterlidir.
Private Sub UserForm_Activate()
Label1.Caption = Cells(1, 1).Value
End Sub
Hocam öncelikle herşey için teşekkürler, ben id sıralamasını =sonratır-1 yaptım. Böyle de olabilir değil mi
Bende o şekilde yaptım
Ben de
Excel açıldığında güvenlik uyarısı içeriği etkinleştirme komutla nasıl yaparız
Merhabalar, Ayni verinin girilmesini engellemek icin ne yapabiliriz? Birde userform yazilan verinin excel sheete kayit olurken büyük harf ile kayit olmasini nasıl sağlarız? Yardımcı olabilirseniz cok sevirim. Videonuz cok yararli, cok yardimci oldu elinize sağlık.
Hocam kusura bakmayın ama örneğin 01 adlı excelde 01.01.2021 A1 sütunu saat başı girilen veri 01:00 den 24:00 a kadar A38 e kadar ve veri kaydı A38 de işlem bitiyor. Anlatmak istediğim konu ise yeni bir makrolu excel açarak aynı işlemi 02 adlı excel e de aynı işlemimi yapmalıyım. yoksa sizin o değerli anlatımlarınız ile yapmış olduğum makro ile yapabilirmiyim ?
Hangisi sizin için kolay olacaksa onu kullanabilirsiniz. Mantıken şöyle bir şey yapabilirsiniz. Bir adet ana excel dosyası açıp kodları sürekli bu excel dosyasında kullanıp bu excel dosyasında yazacağınız kodlar sayesinde her 24 saat lik veri girişi için yeni bir excel dosyası oluştur ve kaydet demeniz daha kolay olur.
Teşekkür ederim sevgili hocam. Dediğinizi düşünmem lazım
Merhaba checkbox olarak yapmıştım fakat bul kısmında işaretli olarak çıkmıyor örnek videonuz varmıdır.?
merhaba vıdeonuz cok faydalı , faydalandım ekstra bırkac alan daha eklemeye calıstım ve komutlar bozuldu. acaba bunun duzenlı halının dosyasını alabılırmıyım sızlerden
hocam hücreleri temizleyip hücreler boş haldeyken kaydete tekrar basınca ıd numaralarını kaydediyor. bunu nasıl çözebiliriz
güzel anlatım teşekkürler ancak devamını göremedim
Merhaba, ID leri son satır + 1 olarak tanımladık, Sil butonu ile ID silindiğinde Kaydet butonu silinen ID ye nasıl kayıt yapar?
Sevgili Hocam yaptığınız işlemin aynısını fakat 38 adet textbox 5 adet combox ve userform ise 4 adet frame ise 4 adet olarak yaptım bunları kapalı bir excel dosyasına kaydettim . çalışır vaziyette sorunum ise örnek verecek olursam bu yapmış olduğum 01 adlı excel e makro üzerinden günlük her saat başı 24 saatlik veri kaydı yapıyorum. Fakat bu kayıt alt alta gidiyor ben istiyorum ki bu veri kaydı 02 adlı excel dosyasına 24 saat dolduğunda yeni veri kaydı yapması istiyorum. bunun için hangi veriyi girmeliyim.
Merhabalar emeğinize sağlık. Userforma giriş yaparken diyelim ben o girdiğim veriyi tek tuşla userformda bir tane daha textbox acip oraya istedigim numarayi yazip mesela "4". Girdigim verileri 4 satıra birden yazmak istiyorum. Bunu nasıl yapabilirim yardımcı olur musunuz?
Hocam merhaba, videonuz çok güzel olmuş ellerinize sağlık. Bir sorum var size oluşturduğumuz userforma fotoğraf yükleyip daha sonra onu listemizde de aynen görüncek şekilde bir form yapabiliyormuyuz excelde?Teşekkür ederim
sayin hocam ben id hücresini kilitlememe ragmen ,userform da texbox 1,2,3 yazdigim zaman hücreler bosbirakilamaz diye uyari tekrar cikiyor.yani kisaca id yi doldurmami istiyor.sorun ne olabilir.
merhabalar. öncelikle bu güzel anlatıcı videolar için teşekkür ederim. ben vba da bir kayıt programı yaptım . yalnız bu programda 3 kritere göre benzersiz kayıt oluşturmam gerekiyor. bu konuda yardımcı olabilirseniz çok sevinirim...
23:11'de .value yazıp bitirdikten sonra enter a basınca şu hatayı veriyor :
Compile Error:
Expected: end of statement
Çözümü nedir hocam ?
şu yapılan işlemi dosya olarak ekleseniz daha etkili olurdu
hocam, elimde yolluk bildirimine yönelik bir çalışma var. benim hesaplama sayfasındaki hücre içeriğinde formül olan alanlardaki bilgileri aktarmak istiyorum. makroyu kaydetmeden önce hücre içeriğini temizle dediğimiz de formül de siliniyor. bu sefer tekrar o alanlara formül girdiğimiz de yeni yapılan kayıtlar listede hatalı oluyor.
siz bu örnekte direk veri girerek liste kaydı oluşturuyorsunuz. benim programımda ise sayfada farklı hücreler içerisindeki formül bulunan (ad-soyad-tc , taşıt ücreti- yevmiye ücreti, toplam tutarları gibi) kısımları önce yan yana bir satırda eşitledikten sonra bu satırdan kayıt yaptırarak diğer sayfaya listelemek istedim.
1. sorum farklı hücrelerden veri alarak bu bilgileri yanyana sıralayacak kayıt makrosunu nasıl oluşturabilirz.
2. sorum ise içerisinde formül bulunan hücrelerdeki verileri alarak kaydettirebiliriz. yardımcı olabilirmisiniz .
Merhaba hocam.
Kaydet butonuna bastıktan sonra önceki kaydın formdan silinmesi gerekmez mi?
hocam bir yerede hatami yaptim bulamadim,user form uzerinden yeni veri girince hep bir onceki verinin ustune yaziyor
Merhaba,
Günlerdir arıyorum bir çözüm bulamadım. Excel de bir sayfa oluşturup A sütununda ülke adı B sütununda o ülkeye ait bir şehir C sütununda Nüfus sayısı ve yanında başka sütunlar, ayrıca aynı çalışma kitabında her bir ülke için bir sayfa mevcut olsun. Ben A sütununa ülke adı yazdığımda o satırdaki bütün bilgilerin sadece o ülke adındaki sayfaya otomatik eklenmesini istiyorum. Bunu nasıl yapabilirim.
Teşekkürler.
hocam, veri girildikten sonra otomatik olarak yeni veri için textbox/label nasıl temizlenir?
Hocam benim bi sıkıntım var lisans süresi biten çalışma kitabını kendini silsin istiyorum nasıl yapabilirim. Yardımınız için şimdiden teşekkürler
merhaba hocam ıd kısmını görebilmek için ne yapmamız kazım
Hocam merhaba daha önceden yazılmış user form kodunu nasıl göreceğiz
Alt+F11 tuş kombinasyonuna girdiğiniz de şifre istemiyorsa açılan pencerede formların ve sayfaların üzerine tıklattıkça kodları da görebilirsiniz.
Merhaba,
Bir süredir excel i öğrenmeye çalışıyorum. İşim gereği (kamu) denetlediğimiz 700 işletme var. Bu işletmelerin yönetmeliklerin aradığı şartlara uygunluğunu denetliyorum. İşletmelerin notlarını basit bir excel tablosunda tutuyorum. İşimizi kolaylaştırmakla birlikte beklentilerime tam olarak yanıt vermiyor. Yapmak istediğim tablo: İşletmelerin isim,adreslerini girdikten sonra uygunlukta aradığımız 5-6 şartı içeren checkboxlar. Bu checkboxlara tıklandığında, eksiği yoktur checkboxına tıklanan işletme yeşil listeye, eksiği vardır checkboxına tıklanan işletme eksiklik sebebiye birlikte mavi listeye ,ceza kesilecekler kırmızı listeye, mühürlenecekler siyah listeye gidecek. Ayrı listelerde bir işletme aynı anda görünmeyecek. Eksiklerini tamamlayan işletme yine checkboxlara tıklanarak yeşil listeye gönderilebilecek. Yani listeler arası gezinme mümkün olacak. Beklentim kısaca bu.
Bu tablo excelde yapılabilir mi , yapılırsa da nereden nasıl başlamalıyım ? Bir yol haritası çizmenizi rica ediyorum. Saygılarımla.
Merhabalar,
Kanalımdaki oynatma listelerinden Excel Dersleri VBA İle Anket Formu Oluşturma videolarını izlerseniz CheckBox lar ile ilgili yeterli bilgileri edineceğinize inanıyorum.
ruclips.net/p/PLsV3h47sy4HC5biErdtvxgQgrzFcMQXjJ
@@Degarado bir sablon hazirladim. Bir goz atarsaniz formullerle alakali ogretici bir video da cekebilirsiniz diye dusundum. Benim de cok isime yarar
@@magicdento1990 Kanalımdaki hakkında kısmında olan mail adresine şablonunuzu gönderirseniz değerlendirmeye alacağıma emin olabilirsiniz
Sayın hocam, çok kıymetli videolarınızı izleyerek kendi çapımda bir şeyler yapmaya çalışıyorum ve mutlu oluyorum. Allah u Teala sizden razı olsun. İnsanlık adına böyle paylaşımlarda bulunmanızdan dolayı size çok teşekkür ediyorum. Karşılaştığım bir problemim var, müsaadenizle onu arz etmek istiyorum. Texbox a yazdığım tarih formatı gönderdiğim Excel hücresinde aynen yazılıyor. Ancak en solda aranacak kısımdaki tarihle örtüşmüyor . Excel hücresine gönderdiğim yerde ya ay kısmına sıfır koyunca düzeliyor, yada sıfırı silince. İkisini aynı ayara getiremedim. Bu uyuşmazlığı exceldeki bi ayarla mı çözeceğim, yoksa Texboxın içinde yapılacak bi ayarla mı çözeceğim. Yardımlarınızdan dolayı şimdiden teşekkür ederim. Kolay gelsin...
Çok güzel yorumunuz için ben teşekkür ederim. Sanırım VBA da tarih ile ilgili ayrıca bir anlatım yapmamışım. Hemen notlarımın arasında alıyorum. Ancak sorunuza kısaca her ikisinde de ayar yapmalısınız diye cevap vermek istiyorum. Zaten az çok olaya vakıf olduysanız ruclips.net/video/4oGLGkErERM/видео.html bu linkteki videomu da izlerseniz çözüme ulaşabilirsiniz.
@@Degarado Hocam,excel üzerinde kısa tarih seçiyorum. Texbox üzerinde bişe yapamıyorum, texboxa, kayıt yapılan excel hücresine uygun şekilde kısa tarih formatında tarih yazıyorum. Yine olmuyor. Excel üzerinde tarih yazılı hücrreye içine girip çıkınca düzeliyor. Birde başka bir hatayla karşılaştım. İki macro kayıtlı belge bilgisayarda bulunduğu sürece mutlaka birisi bozuluyor. Ben nerde hata yaptım. Mesela yaptığım programdan kopya oluşturdum ve adını değiştirdim. İlk yaptığımı vba da kilitleme yapmamıştım. İkinci yaptığımı vba da kilitlemiştim. İkinci yaptığımın userformu üzerindekilerle birlikte ne var ne yok hepsi gitmiş. Yok olmuş ve ilk yaptığım formun userform kayıt sayfasını getiriyor. Bu şekilde niçin karıştı.Bundan önce de userform kayboldu diye tekrar userform ve bütonları yerleştirmiştim. Bu ikinci kayboluş oldu. Kilitlediğim için mi yoksa başka bir sebebi mi var; Yardımcı olursanız çok sevinirim.
Tarih için aşağıya basit bir örnek kod koyuyorum. İncelemenizi rica ederim.
UserForm üzerinde bir TextBox ve iki CommandButton olduğunu varsayın. CommandButtonların birinin adı Excelden_Al diğeri ise Excele_Gonder isimli.
Private Sub Excelden_Al_Click()
TextBox1.Value = Range("A1").Value
TextBox1.Value = Format(TextBox1, "dd.mm.yyyy")
End Sub
Private Sub Excele_Gonder_Click()
TextBox1.Value = Format(TextBox1, "dd.mm.yyyy")
Range("A1").Value = TextBox1.Value
End Sub
Diğer sorununuz ise çok ilginç. Normal şartlar altında böyle bir şey söz konusu değildir. Kodlarınızı da incelemek lazım ama ilk akla gelen Excel dosyanızı Makro içerebilen bir dosya olarak kaydetmeyi atlamış olabilirsiniz. Dosyanızın uzantısını kontrol edin. Makro olarak kaydedilen dosyanın uzantısı .xlsm olması gerekir.
selamlar Makroyu uyguladım fakat değiştir yaptığımda som Textbox'un içeriğini siliyor tekrar yazmam gerekiyor ben nerede hata yaptım acaba bana yardıncı olur musunuz ? lütfen
Değiştir butonunun eventinde işlemlerinizden önce bir boşaltma komutu girmiş olmalısınız. Sakin kafayla tekrar kontrol ettiğinizde çözebileceğinize eminim.
Hocam çok teşekkür ederim. Güzel bir çalışma olmuş. Bir sorum var. Satırlar belli bir düzende birleştirilmiş ise o hücrelere veri yazmamız mümkünmü? Tşk. ederim.
Elbette mümkün, Ancak düzen nasıl bir şekilde ise sizde ona göre bir veri girişi yapmalısınız. Örneğin; A1 Hücresi ile B1 Hücresi birleşmişse ve siz buraya veri girmek istiyorsanız Range("A1:B1").Value = "Veri Girişi" şeklinde kodlarınızı girebilirsiniz.
@@Degarado Tşk. ederim. Ancak A1 ve B1 değilde 1. satır, 2. satır şeklinde birleşik. Bende SonSatir = WorksheetFunction.CountA(Worksheets("Genel Tablo").Range("A:A")) + 24 şeklinde girdim. Ancak 1 yerine 24 yazmama rağmen karşılığında girilen verileri göremiyorum. Her defasında 24 satır artsın şeklinde olmasını sağlayamadım. a3,a25,a47 şeklinde devam ediyor.
Fatih bey;CountA Dolu olan satır sayısını verir. Bunlardan kaç adetini birleştirdiğinize bakmaz. Sizin formülünüzde SonSatır'a kaç adet dolu hücre olduğuna dair sayıyı verecektir. Sizde bir başka değişkene bunu 24' ile çarptırarak istediğiniz hücreye erişebilirsiniz. Yada A1'den A24'e kadar birleştirdiğinizi düşünürsek ve bu şekilde devam ediyorsa sıradaki birleştirilmiş boş hücrelere veri girmek için aşağıdaki gibi yazabilirsiniz.
SonSatir = WorksheetFunction.CountA(Worksheets("Genel Tablo").Range("A:A")) * 24
Range(Cells(SonSatir + 1, 1), Cells(SonSatir, 1)).Value = "Veri Girişi"
@@Degarado tsk. Ederim. Yarin ilk isim deneyecegim.
Sayfanızdaki iletişim kısmından yapmaya çalıştığım excel çalışmamın bir örneğini gönderdim. Yapamadığım bazı şeyler oldu. Kontrol ederseniz sevinirim. Tşk. ederim.
Hocam ellerne salik.
Excel VbA da takvim ve listview sorunu nasil hall edebilirim . Vba araclarna baska arac ekleye bilmiyorum yardimci ola bilirmisiniz . Excel surumu m 2013 professional plus 32 bit
UserForm değil de sayfaya 1 den ana sayfaya aktarmayı da gösterir misiniz
Hocam merhaba bir konu hakkında görüşünüzü almam gerekiyor dönüş yapma imkanınız var mı acaba
Hocam Merhaba, VBA da Veri Doğrulama nasıl yapılabilir? Örneğin Bir ilin seçtiğim zaman, İlçeri aşağıya otomatik gelsin. Bununla iligli bir video yapabilir misiniz?
Şu an için pek video çekmeye fırsatım olmuyor ama en kısa sürede çekmeye çalışırım.
Hocam bir istekte bulunacaktım müsadenizle. Bu hazırladığım exele kullanıcı adı ve şifre ile giriş yapmak istiyorum. Bunu nasıl yapabileceğimizi anlatan bir videonuz varsa linkini paylaşabilirmisiniz yoksa bununla ilgili de bir video çekermisiniz.
Hocam merhaba,
Bul komutu 0 (sıfır) yazınca 10'u buluyor, silinen bir kayıttan sonra da yanlış buluyor (örneğin 6 nolu kaydı sildim, 6'yı Bul dediğimde 16'yı buluyor)... Kontrol eder misiniz lütfen?
Saygılar...
Hocam Selamlar. Güzel anlatımınız için bilginize emeğinize sağlık. Benzer bir userform uygulaması oluşturdum ancak en son girdiğim veri listenin altına değil de örneğin ilk veri A2 hücresinden başlamışsa yeni veri A2 hücresine yazılsın A2den başlayarak mevcut veriler her eklemede birer satır aşağıya kayarak devam etsin, yani son girilen veri en üst hücrede gözüksün istiyorum. Biraz araştırma yaptım ancak bu şekilde yapılmış bir uygulama ile karşılaşmadım. Konu hakkında bir fikriniz var mıdır acaba hocam. Şimdiden teşekkürler.
Merhabalar 2 satıra yeni bir satır ekleyerek diğerlerini diğerlerinin aşağıya kayması için
Sub SatirEkle()
Rows(2).Insert Shift:=xlDown
End Sub
@@Degarado hocam bahsettiğiniz kod ile başaramadım yapmayı. Commandbutton içerisinde bu kod çalışmıyordu. Bende önce makro kaydettim ve commandbutton click içine application.run "makro adı" ile çözdüm konuyu. Kod ile olmadı yani:/
Merhaba, öncelikle anlatımınız için teşekkür ederim.
Bir sorum var, biraz uğraştım ama çözüm bulamadım.
Hazırladığım tabloda verilerimi kaydediyorum. Lakin kaydet dediğim zaman B2 hücresi ve C2 hücresine yazdığım değerleri birbirinden çıkartıp D2 hücresine yazdırmak istiyorum.
Yardımcı olursanız sevinirim :)
Merhaba;Aslında sorunuz çok basit bir işlev gerektiriyor. Ancak bunu hazırladığınız formu ve tabloyu görmeden cevap vermem çok zor. Yinede basit mantığını söyleyeyim.Range("d2").Value = Range("b2").Value - Range("c2").Value
@@Degarado Merhaba tekrardan. Sizin hazırladığınız kısımları örnek olarak kullanıyorum. Aşağıda eklediğim gibi. Verdiğiniz kodları hangi kısımda ne şekilde kullanmam gerekiyor. Biraz daha açmak gerekirse;
İlk hücreye otomatik sayı atama kısmını hallettim. 3. satıra kilometre yazacağım(21+211,50), 4.satıra da aynı şekilde kilometre yazacağım (21+212,65). Formda bu kısımları doldurup kaydet dediğim zaman, bu iki kilometreyi birbirinden çıkarıp bir sonraki hücreye ilerleme değerini yazacak.
Dim sonsatır As Variant
Private Sub CommandButton1_Click()
sonsatır = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A:A")) + 1
If sonsatır = 2 Then
Worksheets("Sayfa1").Cells(sonsatır, 1) = 1
Worksheets("Sayfa1").Cells(sonsatır, 3) = TextBox3.Value
Worksheets("Sayfa1").Cells(sonsatır, 4) = TextBox4.Value
Worksheets("Sayfa1").Cells(sonsatır, 8) = TextBox5.Value
Else
Worksheets("Sayfa1").Cells(sonsatır, 1) = Worksheets("Sayfa1").Cells(sonsatır - 1, 1) + 1
Worksheets("Sayfa1").Cells(sonsatır, 3) = TextBox3.Value
Worksheets("Sayfa1").Cells(sonsatır, 4) = TextBox4.Value
Worksheets("Sayfa1").Cells(sonsatır, 8) = TextBox5.Value
End If
End Sub
Merhaba; User form oluşturdum yalnız yaş kısmına harf girildiğinde hata versin sadece sayı kabul etsin istiyorum.
Nasıl yapılıyor yardımcı olur musunuz
Çok değerli hocam geçen vermiş olduğunuz cevabı düşünüp çok araştırma yaptım. Fakat bu yeni bir excel dosyası olarak kaydetsin ile ilgili bir örnek buldum. Ama yapmış olduğum userform da uygulamayı yapamadım hata verip durdu. Şimdi yapmaya çalıştığım özellik şöyle bir örnek ve youtube de bu konu ile ilgili bir örnek yapabilirseniz çok memnun olurum. Bu videonuzdaki örnek üzerinden yapabilirseniz sevinirim. Çünkü nerede hata yaptığımı bulamıyorum. Çok inceliyorum bu yüzden de sıkıntı yaşıyorum. (eğer userform da ki bir kayıt işlemi 24 saatlik zaman zarfında excel dosyasında sayfa 1 in a1 sütunu a38 de bitiyorsa diğer gün ikinci excel dosyasının sayfa1 deki a1 sütunundan başlasın) olması lazım kafam çok karıştı vermiş olduğunuz eğitimi 10 kere 20 kere izliyorum yeniden userform hazırlayıp duruyorum. kafam çok yoruldu teşekkür ederim hocam
Hocam selamlar,
Ben textboxa 10 satırdan oluşan bir metin yapıştırıp , bu metinin 1. Satırından rezervasyon kodu ( 9. Ve 16. Karakterler arası); 2. Satırından uçuş rotası ( 1 den 60. Karaktere kadar) ; 3. Satırından ücreti ( 1 den 15. karaktere kadar) alıp bunları multipage’in diğer sayfasındaki textboxlara aktarmak istiyorum. Bunu nasıl yapabilirim
İsa bey,
Bunun için right,left,substitute komutlarını kullanarak istediğinizi gerçekleştirebilirsiniz.
Öncelikle emeğinize sağlık. Elimde okul isimlerinin olduğu bir liste var. Bu listeyi txtbox'a bağlayıp, Textboxa veri girerken, örneğin "ANK" yazdığımda ANKARA ile başlayan okul isimlerini listeletmek ve içinden bir okulu seçerek veri girişi yapmak istiyorum. Bunu nasıl yapabilirim?
hocam anlatımınız için teşekkürler size bir şey danışmak istiyorum verilen bir listenin elemanlarını buttona bastıgımda farklı bir sütünda kendi içerisinde eşleştirmek istiyorum bunun kodunu nasıl yazabilirim
Eşleştirmeden kastınız tam olarak nedir anlayamadım ama bu gibi işlemler için ancak çalışmanız incelenip çalışmanıza uygun kodlar yazılması gerekir. Aksi takdirde hazır verebileceğim veya bulacağınız kodlar ihtiyacınıza tam uygun olmayacaktır.
kaydettiğimiz verileri listbox ile userformda görüntülemek istiyorum. lütfen yardım.
excel de ayı değiştirdiğimde o aya ait günler alt alta sıralı olarak istediğim sütuna otomatik nasıl gelir hafta sonları siyah satırlı olacak yardımınız için şimdiden teşekkürler.....
Merhaba, ders icin tesekkurler.
Sorunum, mesela Excel'in "Textbox9"daki rakami (0 ve 1) degerini sayi olarak gormesini istiyorum. Oysa Excel onu "Genel"(metin) seklinde algiliyor. Bu sorunu nasil cozebilirim. Uzun suredir ugrastigim icin Meseleyi tam izah edebildim mi bilemiyorum.
hocam userform'un boyutunu tam olarak nasıl ayarlayabiliriz. Bir süre sonra sayfa küçülüp modüllerde küçülüyor. Bir türlü sabit tutamıyorum yardımcı olursanız çok sevinirim.
selamaleyküm hocam. Ben bir çalışma kitabından userform ile başka bir çalışma kitabına veri aktarıyorum. sorunum.veriyi aktardığım kitapta da userform var buda açılıyor. kapatmayıncada veriyi aktarmıyor. bunu nsaıl kapatırım aynı kod içinde. unload me işe yaramadı. bunu yazınca kendi userformum kapanıyor. sağıolun
S.a hocam tabloyu oluşturuyorum textbox1 e kod yazarken hata verıyor komutu girmiyor
Hocam Peki Örneğin Aynı Tc Kimlik Numarası ile Personel Kaydı Yapıyoruz Dİyelim Aynı Kişinin Birden Fazla Kayıt Edilmesini Engellemek Yani Mükerrer Kaydı engellemek İçin Ne yapacağız.
Takip etmeye devam edin.
id kısmında if else ye girmeden =1 yerine =sonsatır -1 yazmamıızın bir sakıncası var mı?
Sayın Hocam 928 tane beraber çalıştığım personelimiz var isim ve telefon numarasını karşılaştırırken varsa eski numarasını, yeni numarasını excelde (a) hücresinde ismi (b) hücresinde eski numarasını (c) hücresindede yeni numarasını yani hepsini nasıl görebilirim. Kişinin ismini yazdığımda hem yeni hemde varsa eski numarası gelsin, teşekkür ederim.
hocam buton ile çalıştırdım worksheet için invalid hatası veriyor.
Hocam kullanıcı adıyla giriş yaptığımız bir yerden Excele veri aktarma yolu var mı
selam hocam ellerne salık çok güzel ders olmuş mükkemel
hocam bir problemnen üzleşmişm blmiyorum ne edim bir yardımçı olurmusuz vba hazırlamış bir programım var evmde olan bilgisayarda hazıladım istyorum o programı işimde olan bilgisayara köçürdüm bilmiyorum nasıl edim ne edyim bana deyerdiz bir yardımçı olardız önceden teşekkür ederim
Hocam Merhabalar,
Excel'de üstte ki satırın değerine otomatik olarak +1 sayı ekleme formülü yapmak istiyorum ancak alt satırlardan bir satırı kopyalayıp yukarılarda bir yere eklediğim zaman formülün bozulmaması lazım. Destek olabilecek biri olursa çok memnun olurum, şimdiden teşekkür ederim.
Hocam çok teşekkürler emeğinize sağlık. Benim 2 sorum olacaktı.1. Kaydettiğim bilgileri eğer daha önce varsa kaydetmesini istemiyorum. bana bu kaydın olduğunu belirtsin ve işlemi iptal etsin. 2. Bul komutunda da listedeki ilk içeriği buluyor sonrasındakiler de arama yapmıyor. bunu nasıl sağlayabilirim? Şimdiden Teşekkür ederim.
Merhabalar,2. Videomda bu sorularınızın açıklaması mevcut.
ruclips.net/video/pRuqGwxWZ3M/видео.html
sayın hocam sayenizde bir kaç sey nacizane bizde öğreniyoruz şöyle bir sorum olacak iki tarih arasındaki verileri alma yapabilirmiyiz vba ile bununla ilgili bir örnek hazırlamanız mümkün mü şimdiden teşekkürler
En kısa sürede isteğinize uygun bir video çekeceğime emin olabilirsiniz.
Degarado Teşekkürler hocam merak ile bekliyorum sayenizde yaptığım çalışmanın önemli bir basamağı sizinlede paylaşmak istiyorum bittiğinde öğrettiğiniz bilgilerle neler yaptığımı Kolay gelsin hocam
Sub satırac()
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
son satır olayını çalıştıramadım üstat kopyasını yollasam kontrol etme şansın varmı??
Merhabalar öncelikle bazı rahatsızlıklar nedeni ile sorularınıza geç vermek zorunda kaldım. Şu an için kontrol etmek için de yeterince vaktim yok. Ama siz dosyanızı yollarsanız müsait bir zamanda yardımcı olmaya çalışırım.
Public Sub CommandButton2_Click()
On Error GoTo bitir
Aranan = InputBox("Öğrenci TC Numarasını Giriniz", "Arama Yap")
Worksheets("Veri 1").Range("D:D").Find(Aranan).Select
Sil_Satır = ActiveCell.Row
TextBox1.Value = Worksheets("Veri 1").Cells(Sil_Satır, 2)
TextBox2.Value = Worksheets("Veri 1").Cells(Sil_Satır, 3)
TextBox3.Value = Worksheets("Veri 1").Cells(Sil_Satır, 4)
TextBox4.Value = Worksheets("Veri 1").Cells(Sil_Satır, 5)
TextBox5.Value = Worksheets("Veri 1").Cells(Sil_Satır, 6)
TextBox6.Value = Worksheets("Veri 1").Cells(Sil_Satır, 7)
TextBox7.Value = Worksheets("Veri 1").Cells(Sil_Satır, 8)
TextBox8.Value = Worksheets("Veri 1").Cells(Sil_Satır, 9)
ComboBox1.Value = Worksheets("Veri 1").Cells(Sil_Satır, 10)
TextBox10.Value = Worksheets("Veri 1").Cells(Sil_Satır, 11)
TextBox11.Value = Worksheets("Veri 1").Cells(Sil_Satır, 12)
TextBox12.Value = Worksheets("Veri 1").Cells(Sil_Satır, 13)
ComboBox2.Value = Worksheets("Veri 1").Cells(Sil_Satır, 14)
TextBox16.Value = Worksheets("Veri 1").Cells(Sil_Satır, 15)
TextBox17.Value = Worksheets("Veri 1").Cells(Sil_Satır, 16)
TextBox18.Value = Worksheets("Veri 1").Cells(Sil_Satır, 17)
TextBox19.Value = Worksheets("Veri 1").Cells(Sil_Satır, 18)
ComboBox5.Value = Worksheets("Veri 1").Cells(Sil_Satır, 19)
ComboBox3.Value = Worksheets("Veri 1").Cells(Sil_Satır, 20)
ComboBox4.Value = Worksheets("Veri 1").Cells(Sil_Satır, 21)
TextBox23.Value = Worksheets("Veri 1").Cells(Sil_Satır, 22)
TextBox24.Value = Worksheets("Veri 1").Cells(Sil_Satır, 23)
TextBox25.Value = Worksheets("Veri 1").Cells(Sil_Satır, 24)
Exit Sub
bitir: MsgBox "Aranan Değer Bulunamadı."
End Sub
bul komutunu bu şekilde yaptım yine olmadı.
ne yapabilirim.