Excel VBA klasör oluşturup oluşturulan klasöre dosya kaydet

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel VBA klasör oluşturup oluşturulan klasöre dosya kaydet

İleti#1)  furcash » 14 Oca 2020 14:10

Merhaba kod satırım aşağıdadır. Bu Kod ile hazırladığım sayfayı hücrelerdeki veriler ile yol tanımı olan klasöre kayıt edebiliyorum.

Sub saveasdosya()
Dim dosyam As String
With Sheets("İCMAL SAYFASI")
dosyam = "C:\Users\muhasebe3\Desktop\İCMAL ÇIKTILARI\2020\MONTAJ İCMALLERİ\" & .Range("U2").Value & " - " & .Range("U3").Value & " - " & .Range("U4").Value & " - " & .Range("U5").Value & " - " & .Range("U6").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=dosyam
End With
MsgBox "Farklı kayıt işlemi bitmiştir", vbInformation, "Farklı Kaydet"
dosyam = vbNullString
End Sub

Ve aşağıda ki kodlar ile aynı hücre verilerim ile klasör oluşturabiliyorum
Sub klasorol()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "C:\Users\muhasebe3\Desktop\İCMAL ÇIKTILARI\2020\MONTAJ İCMALLERİ\" & Range("U2").Value & " - " & Range("U3").Value & " - " & Range("U4").Value & " - " & Range("U5").Value & " - " & Range("U6").Value
End Sub

Yardımınızı istediğim konu; İlk kod bloğunda kayıt edilen dosyanın ikinci kod blogunda ki klasöre kayıt edilmesi. Nasıl yapabilirim. Yani kodlar birleşecek, önce ikinci kod blogu devreye girecek klasörü oluşturacak, sonra birinci kod buluğu oluşan klasöre dosyayı kayıt edecek.
Kullanıcı avatarı
furcash
 
Kayıt: 27 Tem 2018 08:42
Meslek: Muhasebe
Yaş: 27
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KONYA

Cevap: Excel VBA klasör oluşturup oluşturulan klasöre dosya

İleti#2)  OmerFaruk72 » 14 Oca 2020 15:31

Kod: Tümünü seç
Sub YeniDosyaKaydet()
    With Sheets("İCMAL SAYFASI")
        dosya = .Range("U2").Value & " - " & .Range("U3").Value & " - " & .Range("U4").Value & " - " & .Range("U5").Value & " - " & .Range("U6").Value
    End With
    yol = "C:\Users\muhasebe3\Desktop\İCMAL ÇIKTILARI\2020\MONTAJ İCMALLERİ\"
    Set YeniKlasor = CreateObject("Scripting.FileSystemObject")
    YeniKlasor.CreateFolder yol & dosya
    Application.DisplayAlerts = False: Application.ScreenUpdating = False
    ActiveWorkbook.SaveAs Filename:=yol & dosya & "\" & dosya & ".xlsx", FileFormat:=51
    MsgBox "Farklı kayıt işlemi bitmiştir", vbInformation, "Farklı Kaydet"
    dosyam = vbNullString
    Application.DisplayAlerts = True: Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
OmerFaruk72
Siteye Alışmış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 48
İleti: 253
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Excel VBA klasör oluşturup oluşturulan klasöre dosya

İleti#3)  furcash » 14 Oca 2020 15:41

Çok teşekkür ederim. çalıştı.
Kullanıcı avatarı
furcash
 
Kayıt: 27 Tem 2018 08:42
Meslek: Muhasebe
Yaş: 27
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KONYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe