...yol3 = "D:\Personel\hcr\trh\"
If Dir(yol2, vbDirectory) = "" Then
If Dir("C:\Personel\", vbDirectory) = "" Then MkDir "C:\Personel\"
If Dir("C:\Personel\hcr\", vbDirectory) = "" Then MkDir "C:\Personel\hcr\"
If Dir("C:\Personel\hcr\trh\", vbDirectory) = "" Then MkDir...
korhan bey şu hatayı almaya başladım oysaki kodda hiç değişiklik yapmadım bazen çalışıyor bazen hata veriyor hata veren uyarıya end diyip tekrar çalıştırdımmı hata verdiği yeri oluşturuyor ilerledikçe tekrar hata veriyor end deyip tekrar çalıştırarak hepsini oluşturuyor
Korhan bey ekteki...
...için aşağıdaki kodu kullanabilirsiniz.
Sub klasör()
Application.ScreenUpdating = False
If Dir("C:\İşletme Proğramı\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\"
If Dir("C:\İşletme Proğramı\Faaliyet raporu\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\Faaliyet raporu\"...
...memnun olurum
Sub klasör()
Dim yol As String
yol = "C:\İşletme Proğramı\"
Application.ScreenUpdating = False
If Dir(yol, vbDirectory) = "" Then MkDir yol
End Sub
ben
yol = "C:\İşletme Proğramı\Faaliyet raporu"
şeklinde oluşturmasını istiyorum.
bu yolu kodun içine yazdığımda hata veriyor
,sizden ricam dosya ismini kayıt ettirirken sheets(1) range("f2") hücresinde girili olan tarihi ay yıl olarak alacak ve & faaliyet raporu olarak kaydedecek
şekilde düzenleyebilirmisiniz ayrıca eklemek veya düzeltmek istediğiniz biyer varsa memnun olurum teşekkür ederim.
...h As Byte, t As Byte
Application.ScreenUpdating = False
Yol = "C:\İşletme Proğramı\"
If Dir(Yol, vbDirectory) = "" Then MkDir Yol
ThisWorkbook.Unprotect "123"
For h = 34 To 51
Sheets(h).Visible = True
Sheets(h).Unprotect "2227"
Next h
ReDim dizi(17)...
...Klasor = Environ("UserProfile") & Ayrac & "desktop" & Ayrac & Range("B5")
If Dir(Klasor, vbDirectory) <> "" Then
MsgBox "Klasör mevcut !", vbExclamation
Else
MkDir (Klasor)
MsgBox "Klasör oluşturulmuştur.", vbInformation
End If
End Sub
...Dim resim As String
Dim urlalt As String
sIMGDIR = "c:\folder\" & "resim"
If Dir(sIMGDIR, vbDirectory) = "" Then MkDir sIMGDIR
With ActiveSheet '<-set this worksheet reference properly!
urlalt =...
...= ThisWorkbook.Path & "\Mutabakatlar\"
kaydet1 = ThisWorkbook.Path & "\Mutabakatlar\saticilar_pdf\"
If Len(Dir(kaydet2, vbDirectory)) = 0 Then MkDir kaydet2
If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1
Set msword = CreateObject("word.application")
msword.Visible = True
For i =...
Çalışıyor çok teşekkür ederim yanlız ben söylemeyi unuttum kopyalarken sayfanın içinde nesnelerde var sayfanın şifresini kaldırıp onlarıda silmesi için ne yapabilirim
Sheets(Sayaç).Unprotect "2227"
ActiveSheet.Shapes.Range(Array( _
"Dikdörtgen: Üst Köşelerinden Biri Yuvarlatılmış, Biri...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.