ayni anda hem klasörü hemde aktif calisma sayfasini kaydetme

[addigital]

Degerli arkadaslar bir konuda yardiminiza ihtiyacim var.

butona tikladigimda makro koduyla olusturulan klasörün icine aktif sheeti kaydettirmek istiyorum. ancak bir türlü yolunu bulamadim. kod blogum :

Dim startPath As String
Dim myName1 As String
startPath = "c:\..."
myName1 = ActiveSheet.Range("C6").Text

Dim folderPathWithName As String
folderPathWithName = startPath & Application.PathSeparator & myName1 & " "

If Dir(folderPathWithName, vbDirectory) = vbNullString Then
MkDir folderPathWithName
Else
MsgBox "Folder already exists"
Exit Sub
End If
Aktivesheet.SaveAs

MkDir ile olusturulan klasörün icine ayni anda aktif calisma sayfasini nasil kaydettirebilirim?

tesekküler

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod satırları aktif sayfayı kopyalar ve dosya olarak istediğiniz klasöre XLSX uzantılı kayıt eder. Sonrasında dosyayı kapatır.

    ActiveSheet.Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs folderPathWithName & ".xlsx"
    ActiveWorkbook.Close
    Application.DisplayAlerts = True

 

[addigital]

cevabiniz icin cok tesekkür ederim.
evet kopyalama islemini yapti ancak benim makroyla actigim klasör icine degil "startPath" degiskeninde belirttigim dosya icine yapti.

bilmiyoirum bu var mi ama benim istedigim "myName1" de ismini verdigim klasörün icine kaydetmesi

 

[Korhan Ayhan]

"myName1" tanımlamasını ben dosya adı olarak yorumlamıştım.. İlgili satırı aşağıdaki gibi değiştiriniz.

folderPathWithName = startPath & Application.PathSeparator & myName1 & Application.PathSeparator

Sonrasında önerdiğim kod içindeki aşağıdaki satırı revize ederek deneyiniz.

ActiveWorkbook.SaveAs folderPathWithName & "Deneme.xlsx"

Not : Ben dosya adını "Deneme" olarak tanımladım. Siz dilediğinizi yazarsınız..

 

[addigital]

Korhan Hocam evet tam istedigim gibi oldu.

peki son olarak "deneme.xlsx' in ismini klasör ismiyle ayni olmasini istersem bunun kod satiri nedir son olarak

 

[addigital]

Korhan Hocam üstteki mesaji dikkate almayin

ActiveWorkbook.SaveAs folderPathWithName & ActiveSheet.Range("C6").Text kod satiriyla hallettim.

cok cok tesekkür ederim