Sorgu için arama sonuçları: mkdir

forumu çok fazla kullanmadığımdan gözden kaçmış güncelledim excel 2016 kullanıyorum teşekkürler

Üstat ne yapmak istediğinizi işin açıkçası tam anlamadım, yan yana olmayla bir ilgisi olmaz. SA.Range("A2:A82,C2:E7").Select daha açıklayıcı yazarsanız yardımcı olmak isteriz.

MkDir satırından sonra On Error GoTo 0 komutu ile hata moduna dönülüyor. (On Error Resume Next iptal ediliyor diyelim.) aynı isimde bir klasör varsa kodun durmaması için önlem. muhtemelen alt alta veya yan yana olmayan alanların seçimi ile ilgili. export öncesi boş bir sayfada birleştirip...

...If Range("E2") = 11 Then yol = "C:\Users\" & Environ$("UserName") & "\Desktop\HUB\" klasor = yol & Cells(1, 2).Value On Error Resume Next MkDir klasor On Error GoTo 0 us = "Tamer" yol2 = "C:\Users\" & us & "\Desktop\HUB\pdf" SA.Select SA.Range("A2:A82,C2:E7").Select...

Kod ierindeki aşağıdaki satırı kontrol eder misiniz yol2 = "C:\Users\" & Environ$("UserName") & "\Desktop\iepkonya1\klasor"

...Range("NW87") = 3 Then yol = "C:\Users\" & Environ$("UserName") & "\Desktop\iepkonya1\" klasor = yol & Cells(4, 2).Value On Error Resume Next MkDir klasor On Error GoTo 0 yol2 = "C:\Users\" & Environ$("UserName") & "\Desktop\iepkonya1\klasor" isim = SA.Range("A1979").Value & "-" &...

...Set Dizi = VBA.CreateObject("Scripting.Dictionary") Yol = K1.Path & "\Dosyalar\" If Dir(Yol, vbDirectory) = "" Then MkDir Yol Else If VBA.CreateObject("Scripting.FileSystemObject").Getfolder(Yol).Files.Count > 0 Then Kill Yol & "*.*" End If...

...Dosya_Adi 'End If Set Klasor = Nothing Set FSO = Nothing End Sub Public Sub YedekKlasoruOlustur() On Error GoTo Son MkDir ("\\192.168.1.242\ortak\Üretim\Üretim Takip\Vardiya Yedek\" & Format(Date, "dd.mm.yyyy") & " - " & "Üretim Raporu") Son: End Sub Yol =...

...FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If MkDir FolderName For Each xWs In xWb.Worksheets On Error GoTo NErro If xWs.Visible = xlSheetVisible Then xWs.Select xWs.Copy xFile =...

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