yeni sayfa

[sedat2161]

arkadaşlar ekli puantajımda mavi butona tıkladığımda puantajı hem yazdırıyorum hemde yeni sayfa adında eklemeye çalışıyorum. Bir kısmı oldu. yalnız tam istediğim gibi değil. Benim isteğim butonlar yeni sayfaya eklenmesin yani a4:az78 yeni sayfaya eklensin iyi çalışmalar.

 

[askm]

Sub YuvarlatılmışDikdörtgen_Tıklat()
Sheets("Sayfa1").Columns(46).Hidden = True
Sheets("Sayfa1").Columns(47).Hidden = True
Sheets("Sayfa1").PageSetup.PrintArea = "$A$1:$AZ$78"
Sheets("Sayfa1").PrintOut Copies:=1
Sheets("Sayfa1").Columns(46).Hidden = False
Sheets("Sayfa1").Columns(47).Hidden = False
Dim NewName As String
    Sheets.Add Before:=Sheets(1) 'ganz links anordnen
    'ActiveSheet.Copy Before:=ActiveSheet 'links neben Original anordnen
NewName = InputBox("sayfa adınız yaz")
On Error Resume Next
ActiveSheet.Name = NewName
Sheets("Sayfa1").Range("a4:az78").Copy Sheets(NewName).Range("a4")
End Sub

 

[sedat2161]

sayfa düzeni aynı şekilde gelmedi. satır yükseklikleri ve aralıklar çok farklı oldu.

 

[sedat2161]

Hayırlı Sabahlar sorunum çözülmedi yardım edersiniz çok sevinirim

 

[askm]

Hayırlı sabahlar.

Sub YuvarlatılmışDikdörtgen_Tıklat()
Sheets("Sayfa1").Columns(46).Hidden = True
Sheets("Sayfa1").Columns(47).Hidden = True
Sheets("Sayfa1").PageSetup.PrintArea = "$A$1:$AZ$78"
Sheets("Sayfa1").PrintOut Copies:=1
Sheets("Sayfa1").Columns(46).Hidden = False
Sheets("Sayfa1").Columns(47).Hidden = False
Dim NewName As String
    Sheets.Add Before:=Sheets(1) 'ganz links anordnen
    'ActiveSheet.Copy Before:=ActiveSheet 'links neben Original anordnen
NewName = InputBox("sayfa adınız yaz")
On Error Resume Next
ActiveSheet.Name = NewName
Sheets("Sayfa1").Range("a4:az78").Copy Sheets(NewName).Range("a4")
Sheets("Sayfa1").Range("a4:az78").Copy
Sheets(NewName).Range("a4:az78").PasteSpecial Paste:=xlPasteFormats
Sheets(NewName).Range("a4:az78").PasteSpecial Paste:=xlPasteColumnWidths

End Sub

 

[sedat2161]

sayın askm ilginiz için teşekkür ederim. Sayfa yapısı yatay ve sayfa düzeni 50 olarak aktarılsa sorun çözüleceğe benziyor teşekkür ederim. Birde yeni sayfa sayfa 1 !in soluna aktarılıyor sağın aktarılsa çok iyi olur.

 

[askm]

Sub YuvarlatılmışDikdörtgen_Tıklat()
Application.ScreenUpdating = False

Sheets("Sayfa1").Columns(46).Hidden = True
Sheets("Sayfa1").Columns(47).Hidden = True
Sheets("Sayfa1").PageSetup.PrintArea = "$A$1:$AZ$78"
'Sheets("Sayfa1").PrintOut Copies:=1
Sheets("Sayfa1").Columns(46).Hidden = False
Sheets("Sayfa1").Columns(47).Hidden = False
Dim NewName As String
    'Sheets.Add Before:=Sheets(1) 'ganz links anordnen
    'ActiveSheet.Copy Before:=ActiveSheet 'links neben Original anordnen
   ActiveSheet.Copy After:=ActiveSheet 'links neben Original anordnen
NewName = InputBox("sayfa adınız yaz")
On Error Resume Next
ActiveSheet.Name = NewName

    ActiveSheet.Shapes.Range(Array("1 Yuvarlatılmış Dikdörtgen")).Delete
    ActiveSheet.Shapes.Range(Array("Button 1")).Delete
Application.ScreenUpdating = True
End Sub

 

[sedat2161]

sayın askm süper oldu ama bu sefer yazdırılmıyor.

 

[askm]

'Sheets("Sayfa1").PrintOut Copies:=1
başındaki tek tırnağı kaldırın. Her seferinde çıktı almasın diye iptal etmiştim.

 

[sedat2161]

sayın askm çok teşekkür ediyorum süpersiniz. her sayfada 25 kişi olacak şekilde nasıl ayarlama yapabirim

 

[askm]

Nasıl 25 kişi.

 

[sedat2161]

toplam 69 kişi var her sayfa çıktısında 25 kişi yazılsın

 

[sedat2161]

sayın askm dosyanın son halini gönderiyorum. Yeni sayfaya aktardığımda sonda kırmızı işaretli ay-az satırı yeni sayfaya aktarılmasın sadece a4:az79 bilgileri gelsin. ayrıca çıktı aldığımda her sayfa da 25 kişi yazılsın. rahatsız ediyorum kusura bakmayın

 

[askm]

E sayfa ekleme yerine baştan bunu sorsaydınız ona göre kod yazabilirdik.

 

[sedat2161]

kusura bakmayın acemiliğime verin

 

[dagcıkaptan]

Sayın Sedat2161 puantaj dosyanızı bir dosya yükleme sitesi aracılığı ile paylaşma şansınız varmı ?

 

[askm]

O zaman sayfayı 4-5 kere çoğaltmak yerine bir tane şablon sayfa yapıp, bu sayfaya verileri kopyalayabilirsiniz.

 

[sedat2161]

Sayın aksm sondaki ay.az satırı yeni sayfaya aktarılmasın. 25 kişilik liste o kadar önemli değil. Puantajı düzenledikce yeni gereksinler ortaya çıkıyor. İlginiz için teşekkür ederim.