Exell sayfalarından lınk ıle çıktı alma

[SADULLAHCALI]

Merhaba
Ekte yaptıgım dosya tarzında bir çizelgem var.Bu çizelgede sıra numaralarından 1 e basınca sayfa 1 çıktısını almak ,2 ye basınca sayfa 2 den çıktı almak ... istiyorum. Bu işlem sayfa 100 e kadar olacak. Açıklamayı exell dosyaya da ekledım.Yardımlarınızı bekliyorum.Teşekkürler

 

[Mehmet Şahin]

"Ana Sayfa" adlı sayfanızın kod bölümüne aşağıdaki kodları kopyalayıp deneyin.
İyi çalışmalar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a2:a102")) Is Nothing Then Exit Sub
If SayfaVarMi("GUN " & Target.Value) = True Then
Dim s1 As Worksheet
Set s1 = Sheets("GUN " & Target.Value)
Application.ScreenUpdating = False
s1.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
Set s1 = Nothing
End If
End Sub
Function SayfaVarMi(SayfaAdi As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sat As Long, i As Integer
sat = Sheets("ANA SAYFA ").Cells(Rows.Count, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
If Intersect(Target, Range("A2:A" & sat)) Is Nothing Then Exit Sub
For i = 1 To Worksheets.Count
    If "GUN " & Target.Value = Worksheets(i).Name Then
        Sheets("GUN " & Target.Value).PrintOut copies:=1
        Cancel = True
        Exit Sub
    End If
Next i
MsgBox "GUN " & Target.Value & " sayfası bulunamadı!" & vbLf & _
"Yazdırma yapılamadı!", vbCritical, "U Y A R I"
Cancel = True

End Sub

 

[SADULLAHCALI]

Merhaba
ilginizden dolayı çok teşekkürler ancak her iki kodu da denedim.Ekte görülen sorunla karşılaşıyorum. hatam nedir acaba.sizin gönderdiğiniz kodları başka bir excell dosyaya taşıyacağım. o excell de ANA SAYFA yazan sayfaya sağ klikle girip kod görüntüle seçeneginden karşıma gelen yere gönderdiklerinizi yapıştırdım ama sonuç ekteki gibi

 

[Orion1]

Merhaba
ilginizden dolayı çok teşekkürler ancak her iki kodu da denedim.Ekte görülen sorunla karşılaşıyorum. hatam nedir acaba.sizin gönderdiğiniz kodları başka bir excell dosyaya taşıyacağım. o excell de ANA SAYFA yazan sayfaya sağ klikle girip kod görüntüle seçeneginden karşıma gelen yere gönderdiklerinizi yapıştırdım ama sonuç ekteki gibi

"ANA SAYFA " adlı sayfa adında sonda bir boşluk var.
oluşturacağınız sayfadada sonunda bir boşluk olmalı.
Zira eklediğiniz dosyada ANA SAYFA adlı dosyanın sonundada bir boşluk vardı.

 

[SADULLAHCALI]

"ANA SAYFA " adlı sayfa adında sonda bir boşluk var.
oluşturacağınız sayfadada sonunda bir boşluk olmalı.
Zira eklediğiniz dosyada ANA SAYFA adlı dosyanın sonundada bir boşluk vardı.

test amaçlı sayfada denedim ve oldu bu sefer .yarın iş yerinde de olursa harika olacak.şimdiden çok teşekkürler