EXCEL VBA : Excel'de Diğer Dosyadan Veri Alma: VBA Kodlarıyla Akıllı Veri Yönetimi

[@duruduru7698]

Elinize sağlık tam aradığım dosya

[@gokerbg]

Merhaba, bu kadar emek harcıyorsunuz, özellikle diğer Excel kanallarından da oldukça farklı olduğunuzu söylemek isterim ve bunun için teşekkür ederim. Ancak 33 yıllık akademisyen olarak size tavsiyem İngilizcenizi geliştirmenizdir. Hem İngilizce içeren bir iş yapıyorsunuz hem de birçok kelimeyi yanlış söylüyorsunuz. Dersleriniz çok güzel ancak bu sebepten ötürü dinlemek eziyet oluyor. Başarılar dilerim.

[@HalilÜcel]

Merhabalar, yorumunuz ve haklı eleştiriniz için çok çok teşekkür ederim. Benimde özellikle üzerine durduğum şey, bu yine düzelmiş hali :) ... geliştirmeye emek harcıyorum.

[@orhandursun2262]

elinize sağlık hocamm

[@HalilÜcel]

Merhaba Orhan bey, Yorumunuz için teşekkür ederim.

[@orhandursun2262]

hocam sizin emeğinize sağlık asıl@@HalilÜcel

[@orhandursun2262]

ben size bir soru sormak istiyorum ! hocam ben sizin bu yönteminiz ile bir doya içerisindeki verileri değiştirmek istiyorum aslında aynı markaya ait olan ürünleri güncellemk isitiyorum örneğin =simens olan 20 kalem ürünü silecek ve daha az veya fazla olan simens marka ürünü ekleyecek mümkünmü bu ? @@HalilÜcel

[@HalilÜcel]

@@orhandursun2262 Orhan bey, tabiki mümkün, hatta isterseniz tüm verileri baştan sonra düzenletiriz. Gerekli kısıtlara uymayanları uydururuz. Fakat bu tarz özel istekler için ek ücret talep ediyorum. Sizin için uygun ise devamındaki düşüncelerinizi [e-mail] adresine yazabilirsiniz

[@orhandursun2262]

hocam ben bir uygulama yaptım bana lazım olan sadece dış tablodan alığı ürünü ana toblodan silip yerine aynısını yapıştırmak @@HalilÜcel

[@muratatly6317]

hocam merhabalar. Çalışmanızda 5 ana başlıklı olan verileri getiriyor peki ben 5 den dazla mesela 10 ana başlıklı verileri getirmek istiyorum onun için ne yapmalıyım

[@m_kaplan48]

hocam emeğinize sağlık . ben .txt dosyası için bu işlemi yapmak istiyorum

[@HalilÜcel]

Merhabalar, Teşekkür ederim. Eğer VBA bilginiz var ise bunu yapabilirsiniz. Excel içerisinde .txt veri alma sistemi mevcut

[@m_kaplan48]

@@HalilÜcel videoda anlattıklarını .txt için uygulamaya çalışıyorum bakalım başaracağım inşallah . yapacağım şey çok basit aslında txt dosyasındaki veriyi çalışma sayfasının a1'inden itibaren yapıştıracağım.

[@HalilÜcel]

@@m_kaplan48 Evet, doğru düşündünüz. Eğer fikir bulamaz iseniz makro kaydet yardımı ile işlemi veri al bölümünden manuel yapıp. Makronun kayıt ettiğini kullanabilir siniz

[@kasimaslan9253]

halil bey sizinle nasıl iletişim kurabilirim. Anlamadım nereye yazılacağını ?...

[@HalilÜcel]

Kasım bey, kanalın açıklamasında bulunan mail veya telefon ile ulaşabilirsiniz. Özel isteklerde ücret alıyorum bilginiz olsun.

[@kasimaslan9253]

Merhaba Halil Bey ; Yapmış olduğunuz kodlama (data) bulunan bütün sheetleri kapsıyor. Data da Sadece belirteceğimiz 1 sheet deki verileri nasıl getirebiliriz. Ben = ile yapıyorum dosya çok ağırlaşıyor. Yardımcı olursanız sevinirim.

[@HalilÜcel]

@@kasimaslan9253Merhabalar Kasım bey, döngü içerisine worksheets.name ='Sheet Name' yazıp. Hemen altına exit sub yada exit for demeniz yeterli olacaktır

[@yusufincemizrak730]

Selamlar Halil Bey,sorum olacaktı;VBA kod yazdım fakat excelde boş olan hücreyi de modüle çektiği için çektiğim mailde satır boşluğu oluşuyor,vba modülün içine "eğer hücre boş ise alma dolu ise al şeklinde bir formül yazabilirmiyim? teşekkürker.

[@HalilÜcel]

Merhabalar, Kodunuzun tam olarak ne işlem yaptığını görmeden kodu söylemesi zor. Fakat Standart Kullanım olarak şu kodu önerebilirim. if ThisWorkBook.Sheets("SayfaAdı").cells(satır,sütun) = "" then '' Boş Olduğu için işlem yapılmayan alan else '' İlgili modül kodunuz. end if

[@yusufincemizrak730]

@@HalilÜcel With OutMail .To = Range("T3").Value .Subject = Range("U3").Value .Body = "MVT" & vbNewLine & Range("V3") & vbNewLine & Range("d3") & Range("e3") & "/" & Range("f3") & " " & "EA" & Range("W3") & vbNewLine & Range("o3") & vbNewLine & Range("P1") & Range("p3") .Display ' .Send burdaki 03 hücresi boş olduğunda bu hücreyi dahil etmesin.

[@yusufincemizrak730]

@@HalilÜcel yeni yeni vba ile uğraşmaya başladım ,bu modüldeki koda dahil edemedim yazdıklarınızı.

[@HalilÜcel]

@@yusufincemizrak730 Burada With OutMail öncesinde .To , .Subject .Body değerlerini oluşturmanız daha sağlıklı olacaktır. Örnekğin '' Değer Oluşturması Dim sendTo, subject, body as String '' With OutMail öncesinde yapılacaklar sendTo = Range("T3").value subject = Range("U3").value body = "MVT" & vbNewLine & Range("V3") & vbNewLine & Range("d3") & Range("e3") & "/" & Range("f3") & " " & "EA" & Range("W3") & vbNewLine '' Range Boş Değil ise if Range("O3").value "" then body = body + Range("O3").value & vbNewLine & Range("P1") & Range("p3") else body = body + Range("P1") & Range("p3") end if '' Sonrasında With OutMail With OutMail .To = sendTo .Subject = subject .Body = body .Display .Send end with

[@yusufincemizrak730]

Halil Bey,denedim ama hala boş hücreyi de alıyor,kesin bir hata yapıyorum ,sizin ekleme için zamanınız varmı?çok büyük bir iyilik yapmış olursunuz inanın.