DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
aslında bu veriler excelde yazdırılacak sayfa adları sayfa adlarını alarak print yazdırmak istiyorum.Bu veriler nereye aktarılacak hedef olarak?
https://www.hizliresim.com/2d3f1yvÇıktı alınacak sayfa adları değişken mi? Tam işlem nedir yapcağınız.
Sub SayfaCiktisiAl()
Dim ws As Worksheet
Dim printRange As Range
Dim cell As Range
For Each cell In Range("AD5:AG10")
If cell.Value <> "" Then
Set ws = Worksheets(cell.Value)
Set printRange = ActiveSheet.UsedRange
ws.PrintOut From:=1, To:=1, Copies:=1, Preview:=True
End If
Next cell
End Sub
Eline sağlık harika oldu. Notları tek tuşla çıktı alabileceğim artık çok tşk ederim.Deneyiniz.
Kod:Sub SayfaCiktisiAl() Dim ws As Worksheet Dim printRange As Range Dim cell As Range For Each cell In Range("AD5:AG10") If cell.Value <> "" Then Set ws = Worksheets(cell.Value) Set printRange = ActiveSheet.UsedRange ws.PrintOut From:=1, To:=1, Copies:=1, Preview:=True End If Next cell End Sub