Sub KOD_PDF()
Application.ScreenUpdating = False
On Error Resume Next
Yol = Environ("USERPROFILE") & "\Desktop\ogrenci\"
For i = 1 To Sheets.Count
Sheets(2).Select
isim = [ı8]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
Application.ScreenUpdating = True
Next i
End Sub
Herkese merhaba. 2 sayfalık bir excel dosyam mevcut ve yukarıda paylaştığım kod aracılığıyla dosyamın 2.sayfasını pdf olarak kaydediyorum . Bu dosyanın birinci sayfasında bir liste ve pdf kaydetme butonu, 2. sayfasında ise pdf olarak kaydedilmesini istediğim tablom var. 1.sayfadaki listeden seçtiğim veriler aracılığıyla 2. sayfadaki tabloda veriler değişiyor. Burada bir sorun yok. PDF kaydetme makrosunda da sorun yok. Ancak sorun şu ki butona tıklayıp kodu çalıştırdığımda işlem tamamlandıktan sonra sayfa 2 ye atıyor excel beni. Her defasında tekrar 1. sayfaya geri dönmek zorunda kalıyorum. Oysa ben sadece butona basıp pdf kaydetme işlemini yaptıktan sonra yine aynı sayfada kalmak ve işlemlerime oradan devam etmek istiyorum. Bunun için yukarıdaki kodda nasıl bir düzenleme yapmam gerekiyor acaba ? Yardımlarınızı rica ediyorum. Şimdiden teşekkürler.
Application.ScreenUpdating = False
On Error Resume Next
Yol = Environ("USERPROFILE") & "\Desktop\ogrenci\"
For i = 1 To Sheets.Count
Sheets(2).Select
isim = [ı8]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
Application.ScreenUpdating = True
Next i
End Sub
Herkese merhaba. 2 sayfalık bir excel dosyam mevcut ve yukarıda paylaştığım kod aracılığıyla dosyamın 2.sayfasını pdf olarak kaydediyorum . Bu dosyanın birinci sayfasında bir liste ve pdf kaydetme butonu, 2. sayfasında ise pdf olarak kaydedilmesini istediğim tablom var. 1.sayfadaki listeden seçtiğim veriler aracılığıyla 2. sayfadaki tabloda veriler değişiyor. Burada bir sorun yok. PDF kaydetme makrosunda da sorun yok. Ancak sorun şu ki butona tıklayıp kodu çalıştırdığımda işlem tamamlandıktan sonra sayfa 2 ye atıyor excel beni. Her defasında tekrar 1. sayfaya geri dönmek zorunda kalıyorum. Oysa ben sadece butona basıp pdf kaydetme işlemini yaptıktan sonra yine aynı sayfada kalmak ve işlemlerime oradan devam etmek istiyorum. Bunun için yukarıdaki kodda nasıl bir düzenleme yapmam gerekiyor acaba ? Yardımlarınızı rica ediyorum. Şimdiden teşekkürler.