Seçtiğim sayfayı pdf çevirme

[iucfatih]

Private Sub CommandButton3_Click()
For x = 1 To Sheets.Count
yol = ThisWorkbook.Path & "\" & Sheets(x).Name
On Error GoTo hata:
Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol
hata:
Next
MsgBox "İşlem tamamlandı."
End Sub


şöyle bir kod buldum, güzelce kayıt yapıyor ama her seferinde aynı isimde kayıt yapıyor. kayıt ismini Tarih + E:10 hücresi olarak ayarlayabilirmisiniz?
birde kayıt yerini C:>Kullanıcılar>fatih>masaüstü>arşiv olarak ayarlayabilirmisiniz?
Birdee sayfa2 deki A1:J44 hücre aralığını pdf çevirsin istiyorum sadece.

 

[Ömer BARAN]

Merhaba.

İlgili satırı aşağıdaki gibi değiştirerek deneyiniz.

yol = ThisWorkbook.Path & "\" & Format(Date, "dd_mm_yyyy") & "_" & Sheets(x).[E10]

 

[iucfatih]

Merhaba.

İlgili satırı aşağıdaki gibi değiştirerek deneyiniz.

Teşekkür ederim hocam, Tarih olarak kayıt yaptı
fakat ikinci bir kayıt daha yapmak istediğimde aynı şeyin üstüne yazıyor onuda değiştirmem gerekiyor
ve sadece ilgili satırları kaydetmesini nasıl sağlayabilirim?