Sadece 15-TL bedelle DEV Excel Arşivine sahip olmak için DEV Excel Arşivi linkine tıklamanız yeterli olacaktır.

Arama sonuçlarınız

  1. metehan8001

    Soru klasördeki son dosya ismini excele aktarma

    Benden de 2 tane alternatif olsun. 1.Alternatif sizin çalışmanızda ki dosya isimlerine göre kodlandı. 2.Alternatif klasöre en son kaydedilen dosya isimine göre kodlandı. Alternatif1: Sub XD_SonDosya() ' Son dosya adını verir www.exceldepo.com' Dim XD() As String Dim i As String...
  2. metehan8001

    Çözüldü Toplu Mail Göndermeyi kontrol etmek.

    Kodlarınızın arasındaki aşağıdaki paylaştığım kod bloğun da .Display 'göndermek için .Send ' kodunu With OutMail kodunun altına taşıyın ve birde bu şekilde deneyin. With OutMail .To = kim1 & kim2 'kime .CC = "" 'bilgi...
  3. metehan8001

    Çözüldü Toplu Mail Göndermeyi kontrol etmek.

    Benim yapabileceğim bir iş değil hocam bu, Destek Ekibi veya Üstatların anlayacağı birşey.
  4. metehan8001

    Çözüldü Toplu Mail Göndermeyi kontrol etmek.

    2016 Outlook yapısını Bilememem, şablon ile ilgili bir görüntü atar mısın hocam ?
  5. metehan8001

    Çözüldü Firmalara Özel Toplu (Listeli) Mail

    Allah razı olsun, iyi çalışmalar diliyorum.
  6. metehan8001

    Çözüldü Sutun başlığına göre diğer sayfaya verileri aktarmak

    Iyi çalışmalar diliyorum.
  7. metehan8001

    Çözüldü Toplu Mail Göndermeyi kontrol etmek.

    Esen kalın.
  8. metehan8001

    Çözüldü Firmalara Özel Toplu (Listeli) Mail

    Tamam kardeşim o da olur, önce aşağıda çalışma yapısını anlatım sana. Dosyayı (Toplu Mail_XD_Dosya_Olustur.xls ) 1.mesajıma ekledim. -- Filtrelenen firmayı boş bir sayfaya kaydediyor. -- Oluşturulan bu sayfayı ayrı bir dosya olarak ana dizine farklı kaydediyor. -- Oluşturulan dosya maile...
  9. metehan8001

    Çözüldü Firmalara Özel Toplu (Listeli) Mail

    Günaydın 🙋‍♂️ kardeşim. istediğin şekilde de 1.mesajıma ekledim dosyanı.
  10. metehan8001

    Cevaplandı Toplu Not Girişi ( Ya da satırı sütuna dönüştürerek aktarmak)

    Vay iyi ter dökmüşsün Emre Kardeşim, Eline sağlık. @Admin 'e söyleyelim de seni destek ekibine alsın. :)
  11. metehan8001

    Çözüldü Firmalara Özel Toplu (Listeli) Mail

    Ekli dosyayı test edin. Dosyanızda ki 1.satırı sildim filtrelemenin sağlıklı olması için ve ayrıca mailini dosya olarak mı, görüntü olarak mı veya tablo olarak gönderilmesini belirtmemişsiniz. Şube ve Firma için ayrı ayrı makro mevcut ayrıca sayfanın tablo olarak gönderilebilmesi için function...
  12. metehan8001

    Çözüldü Sutun başlığına göre diğer sayfaya verileri aktarmak

    İlk mesajınızdaki kodlarınızın içindeki Set dsu = dat.[6:6].Find(deg.Cells(1, Sut)) If Not dsu Is Nothing Then If deg.Cells(Sat, Sut) <> "" Then _ dat.Cells(dsa.Row, dsu.Column) = deg.Cells(Sat, Sut)...
  13. metehan8001

    Aynı hücre içerisindeki birden fazla değeri toplama

    Bu makroda benden alternatif olsun. KTF: =XDtop(A1) Function XDtop(hcr As Range, Optional krt = " kg,") XDdizi = Split(hcr, krt) For i = LBound(XDdizi) To UBound(XDdizi) XDtop = XDtop + CDbl(XDdizi(i)) Next End Function Sub exceldepo() XDdizi = Split(Range("A1").Value, " kg,") For i =...
  14. metehan8001

    Çözüldü Kapalı dosyadan dosya isimleriyle veri alma

    ADO makro kodunuz. Sub exceldepo() Range("A4:L" & Cells(Rows.Count, 2).End(xlUp).Row + 1).ClearContents yol = ThisWorkbook.Path & "\Siparişler\" dosya = Dir(yol) Set con = CreateObject("Adodb.Connection") Set rs = CreateObject("Adodb.Recordset")...
  15. metehan8001

    Cevaplandı Şartlara göre harekete geçme

    1.Alternatifde Kullanılan fonksiyonlar: EĞER, TOPLA.ÇARPIM 2.Alternatifde Kullanılan fonksiyonlar: EĞER, EĞERSAY, TOPLA 3.Alternatifde Kullanılan fonksiyonlar: EĞER, BAĞ_DEĞ_DOLU_SAY, TOPLA Alternatif1...
  16. metehan8001

    Çözüldü Excelvba Basılan Tuşu Yakalama

    Silme Tuşu için bastığınız tuşun kodunu öğrenmek için MsgBox Keycode Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 8 Then MsgBox "Sİlme Tuşuna basıldı" End Sub
  17. metehan8001

    Çözüldü Toplu Mail Göndermeyi kontrol etmek.

    Belirttiğiniz şekilde dosyanız revize edilmiştir. İlk mesajımda ki kodları ve dosyayı yeniledim.
  18. metehan8001

    Çözüldü Şarta Göre Veri Getir

    Herkes cevap vermiş madem, bende ADO ile çözüm sunayım. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Target.Row > 1 And Target.Value <> "" Then Set con = CreateObject("Adodb.Connection") Set rs = CreateObject("Adodb.Recordset")...
  19. metehan8001

    Soru syn sorunu

    Dosya linki hatalı dosyanızı zipleyip bu site üzerinden ekleyin.
  20. metehan8001

    Çözüldü LEFT JOIN hakkında

    rica ederim iyi çalışmalar.
Üst