Sorgu için arama sonuçları: MkDir

  1. Korhan Ayhan

    kapalı excel dosyalarından resimleri çıkartmak

    ...File_Path = ThisWorkbook.Path & "\" If Dir(File_Path & "Extract File\", vbDirectory) = "" Then MkDir File_Path & "Extract File\" Else If FSO.GetFolder(File_Path & "Extract File\").Files.Count > 0 Then Kill File_Path & "Extract File\*.*" End If...
  2. Korhan Ayhan

    İki Koşullu Veri Aktarma

    ..."dd_mm_yyyy") & "\" Rem Klasörün varlığını kontrol ediyoruz. Yoksa oluştur diyoruz. If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder Rem Aşı isimlerini benzersiz şekilde liteleyen sorgumuzu oluşturuyoruz. My_Query = "Select Distinct [Açıklama] From [" &...
  3. Korhan Ayhan

    İki Koşullu Veri Aktarma

    ..."dd_mm_yyyy") & "\" Rem Klasörün varlığını kontrol ediyoruz. Yoksa oluştur diyoruz. If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder Rem Aşı isimlerini benzersiz şekilde liteleyen sorgumuzu oluşturuyoruz. My_Query = "Select Distinct [Açıklama] From [" &...
  4. Korhan Ayhan

    İki Koşullu Veri Aktarma

    ..."dd_mm_yyyy") & "\" Rem Klasörün varlığını kontrol ediyoruz. Yoksa oluştur diyoruz. If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder Rem Aşı isimlerini benzersiz şekilde liteleyen sorgumuzu oluşturuyoruz. My_Query = "Select Distinct [Açıklama] From [" &...
  5. M

    İki Koşullu Veri Aktarma

    Korhan Bey Merhaba, Bir konu hakkında bilgi almak istiyorum. . Hastanede kullandığımız bilgisayarda titus classification "veri sınıflandırma yazılımı yüklü" kodu çalıştırdığımda yeni bir kitap açılıyor. " Hastane içi" seçip Ok. basmam gerekiyor. Bunu 4 kez yaptığında bu sefer kod hata veriyor...
  6. Korhan Ayhan

    İki Koşullu Veri Aktarma

    ..."dd_mm_yyyy") & "\" Rem Klasörün varlığını kontrol ediyoruz. Yoksa oluştur diyoruz. If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder Rem Aşı isimlerini benzersiz şekilde liteleyen sorgumuzu oluşturuyoruz. My_Query = "Select Distinct [Açıklama] From [" &...
  7. M

    İki Koşullu Veri Aktarma

    Korhan Bey Mümkünse ve vaktiniz var ise, Yazmış olduğunuz kodu açıklamayabilir misiniz. Hangi kod ne işlevi yapıyor. Hastane de bu ve bu konuya benzer işlevler yapıyoruz. Öğrenmek hemde gerekli güncellemeleri yapabilmek açısından öğretici olacaktır. Teşekkürler.
  8. A

    PDF dosyaları farklı kaydet

    çok teşekkürler sonradan aklıma geldi. dikkat edeceğim. teşekkkürler tekrar....
  9. Korhan Ayhan

    İki Koşullu Veri Aktarma

    ...File_Folder = Environ("UserProfile") & "\Desktop\Aşılar " & Format(Date, "dd_mm_yyyy") & "\" If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder My_Query = "Select Distinct [Açıklama] From [" & S2.Name & "$] Where Not IsNull([Açıklama])" Set My_Recordset =...
  10. Korhan Ayhan

    PDF dosyaları farklı kaydet

    ...= Environ("UserProfile") & "\Desktop\Yeni Klasör " & Format(Date, "dd_mm_yyyy") & "\" If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder File_Path = Environ("UserProfile") & "\Desktop\" PDF_File = Dir(File_Path & "Ha00x.pdf") If PDF_File <> "" Then...
  11. M

    VBA Kod yardımı

    Emeğinize sağlık, teşekkür ederim.
  12. M

    VBA Kod yardımı

    Emeğinize sağlık, teşekkür ederim.
  13. N

    VBA Kod yardımı

    Merhaba, Yol = "C:\YEDEKLER" satırını aşağıdaki gibi değiştirin Yol = "C:\YEDEKLER1\" & Date MkDir Yol
  14. M

    VBA Kod yardımı

    ...& Replace(Now, ":", "_") & "-" & ThisWorkbook.Name FSO.CopyFile ThisWorkbook.FullName, Dosya_Adi End If Set Klasor = Nothing Set FSO = Nothing End Sub Public Sub YedekKlasoruOlustur() On Error GoTo Son MkDir ("C:\YEDEKLER\" & Format(Date, "dd.mm.yyyy")) Son: End Sub
  15. Korhan Ayhan

    excell 100 erli bölme

    ...X As Long Klasor = Environ("UserProfile") & "\Desktop\" & Format(Date, "dd_mm_yyyy") If Dir(Klasor, vbDirectory) = "" Then MkDir Klasor Satir_Sayisi = InputBox("Verileri kaç satırlık dosyalara ayırmak istiyorsunuz?", "Veri Satır Sayısı", 100) If...
  16. O

    Excelde Dışarı aktarma makrosu ya da kodu

    Hocam resimdeki gibi bir hata veriyor. Dosyayı da ekliyorum aşağıya örnek.xlsm - 42 KB
  17. T

    outlook ile gelen kutusunda tasnif ettiğim klasörlerin birinden ekleri almak istiyorum

    ...y = y + 1 stdir = Environ("USERPROFILE") & "\" & "Desktop" & "\" & "Attachments Folder" If Dir(stdir, vbDirectory) = vbNullString Then MkDir (stdir) End If For Each item In olFolder.Items If TypeOf item Is Outlook.MailItem Then Dim oMail As Outlook.MailItem: Set oMail = item...
  18. Korhan Ayhan

    Excelde Dışarı aktarma makrosu ya da kodu

    ...Klasor = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\Sipariş Formları\" If Dir(Klasor, vbDirectory) = "" Then MkDir Klasor For X = 2 To Son If S1.Cells(X, 1) <> "" Then S2.Range("A11") = S1.Cells(X, 1)...
  19. O

    Excelde Dışarı aktarma makrosu ya da kodu

    ...kez çalıştırdığımda kodun bu kısmı hata veriyor ve hatayı gidermek için bi önceki oluşturduğu Siparis Listesi klsörünü silmem gerekiyor Then MkDir Klasor bunun yerine benim yazdığım koddaki gibi her seferinde klasör sorması için ilgili kodu nereye yazmam gerekir ? Dim klasor As String...
  20. O

    Excelde Dışarı aktarma makrosu ya da kodu

    burada sistemin dışarı çıktı alırken yazdırılabilir alanı referans alıyor değil mi ? yani biçimimi ona göre ayarlamalıyım ?
Üst