Sorgu için arama sonuçları: MkDir

...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...

..."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 [" &...

..."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 [" &...

..."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 [" &...

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...

..."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 [" &...

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.

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

...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 =...

...= 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...

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

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

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

...& 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

...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...

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

...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...

...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)...

...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...

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 ?