SAYFAYI KAYDETME

[polis-53]

Merhaba arkadaşlar aşağıdaki kodla excel sayfasını kaydediyorum excel çalışma kitabında birden çok sayfa var bunların hepsini formullerle birlikte kaydediyor benim istediğim çalışma kıtabının sadece sayfa1 i ve değerleri ile yazdırma alanını kaydetsin istiyorum.


Sub Polis()
Dim yol As String
yol = CreateObject("wscript.shell").SpecialFolders(10) & "\PUANTÖR\"
DOSYA = Sheets("Sayfa1").Range("F1").Value
If Dir(yol & DOSYA & ".xls") <> "" Then
MsgBox DOSYA & ".XLS" & vbLf & "zaten var!" & vbLf & "İşlem iptal oldu!" & vbLf & _
"POLİS irfan.akgun@caykur.gov.tr"
Exit Sub
End If
ActiveWorkbook.SaveAs Filename:=yol & DOSYA & ".xls"
MsgBox Sheets("Sayfa1").Range("F1").Value & vbLf & "kaydedildi." & vbLf & "POLİS irfan.akgun@caykur.gov.tr"
End Sub

 

[turist]

Aşağıdaki gibi deneyin.

Sub Polis()
Dim yol As String
yol = CreateObject("wscript.shell").SpecialFolders(10) & "\PUANTÖR\"
DOSYA = Sheets("Sayfa1").Range("F1").Value
If Dir(yol & DOSYA & ".xls") <> "" Then
MsgBox DOSYA & ".XLS" & vbLf & "zaten var!" & vbLf & "İşlem iptal oldu!" & vbLf & _
"POLİS irfan.akgun@caykur.gov.tr"
Exit Sub
End If
Sheets("Sayfa1").Copy
    With Sheets("Sayfa1").UsedRange
         .Copy
         .PasteSpecial xlValues
         .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False
   ActiveWorkbook.SaveAs yol & DOSYA & ".xls"
MsgBox Sheets("Sayfa1").Range("F1").Value & vbLf & "kaydedildi." & vbLf & "POLİS irfan.akgun@caykur.gov.tr"
End Sub

 

[polis-53]

Aşağıdaki gibi deneyin.

Sub Polis()
Dim yol As String
yol = CreateObject("wscript.shell").SpecialFolders(10) & "\PUANTÖR\"
DOSYA = Sheets("Sayfa1").Range("F1").Value
If Dir(yol & DOSYA & ".xls") <> "" Then
MsgBox DOSYA & ".XLS" & vbLf & "zaten var!" & vbLf & "İşlem iptal oldu!" & vbLf & _
"POLİS irfan.akgun@caykur.gov.tr"
Exit Sub
End If
Sheets("Sayfa1").Copy
    With Sheets("Sayfa1").UsedRange
         .Copy
         .PasteSpecial xlValues
         .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs DOSYA & ".xls"
MsgBox Sheets("Sayfa1").Range("F1").Value & vbLf & "kaydedildi." & vbLf & "POLİS irfan.akgun@caykur.gov.tr"
End Sub

sayın
turist
Benim gönderdiğim kod kayıt yapıyor hiç bir sorun yok sadece çalışma sayfasını kaydetsin diğer sayfaları değil bu kodu denedim sayfa1 diye bir kayıt oluşturuyor Puantör Klasörünun içine kaydetmiyor. direk puantör klasörunun içine kaydetsin istiyorum.

 

[turist]

Sayın @polis-53
# 2 Numaralı mesajda kod düzeltilmiştir.
Lütfen değişikliği dikkate alarak yeniden deneyiniz.
Not: Kodunuzdaki tanımlamaya göre Sayfa1'in F1 hücresinde yazan ne ise dosyayı o isimle kaydeder.
F1 hücresi boşsa kod hata verecektir.

 

[polis-53]

Sayın @polis-53
# 2 Numaralı mesajda kod düzeltilmiştir.
Lütfen değişikliği dikkate alarak yeniden deneyiniz.
Not: Kodunuzdaki tanımlamaya göre Sayfa1'in F1 hücresinde yazan ne ise dosyayı o isimle kaydeder.
F1 hücresi boşsa kod hata verecektir.

Teşekkür ederim kaydediyor kaydettiğim sayfanın sadece yazdırma alanını kaydettirebilirmiyiz.

 

[turist]

Bu alan Örnek: A7:H35, B5:K30 vb. gibi sabit bir alan mı, yoksa değişiyor mu?

 

[polis-53]

Bu alan Örnek: A7:H35, B5:K30 vb. gibi sabit bir alan mı, yoksa değişiyor mu?

Sabit bir alan

 

[turist]

Aşağıdaki şekilde deneyin.

Sub Polis()
Dim yol As String
yol = CreateObject("wscript.shell").SpecialFolders(10) & "\PUANTÖR\"
DOSYA = Sheets("Sayfa1").Range("F1").Value
If Dir(yol & DOSYA & ".xls") <> "" Then
MsgBox DOSYA & ".XLS" & vbLf & "zaten var!" & vbLf & "İşlem iptal oldu!" & vbLf & _
"POLİS irfan.akgun@caykur.gov.tr"
Exit Sub
End If
Sheets("Sayfa1").Copy
    With Sheets("Sayfa1").Range("Print_Area")
         .Copy
         .PasteSpecial xlValues
         .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False
   ActiveWorkbook.SaveAs yol & DOSYA & ".xls"
MsgBox Sheets("Sayfa1").Range("F1").Value & vbLf & "kaydedildi." & vbLf & "POLİS irfan.akgun@caykur.gov.tr"
End Sub

 

[polis-53]

Aşağıdaki şekilde deneyin.

Sub Polis()
Dim yol As String
yol = CreateObject("wscript.shell").SpecialFolders(10) & "\PUANTÖR\"
DOSYA = Sheets("Sayfa1").Range("F1").Value
If Dir(yol & DOSYA & ".xls") <> "" Then
MsgBox DOSYA & ".XLS" & vbLf & "zaten var!" & vbLf & "İşlem iptal oldu!" & vbLf & _
"POLİS irfan.akgun@caykur.gov.tr"
Exit Sub
End If
Sheets("Sayfa1").Copy
    With Sheets("Sayfa1").Range("Print_Area")
         .Copy
         .PasteSpecial xlValues
         .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False
   ActiveWorkbook.SaveAs yol & DOSYA & ".xls"
MsgBox Sheets("Sayfa1").Range("F1").Value & vbLf & "kaydedildi." & vbLf & "POLİS irfan.akgun@caykur.gov.tr"
End Sub

teşekkur ederim sağolun