Yeni bir Excel Sayfasının Sayfa yapısını kod ile oluşturma

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Sistemden aldığım bir Excel dosyasını kendime göre sayfa yapısını ayarlamak istiyorum. Bunun hızlı olması için bir koda ihtiyacım var.
Örneğin; Sayfa Yatay, 1, 2, 3, 5, 10 ve 71 . satırları aynı anda silme, A sütununu silme, Küçültme Oranı %60, 8. Satırdan sonra satır yüksekliği 25, Yazı tipi times New Roman, Puntosu 12, Hizalamada Yatay Orta, C Sütunu Yatayda Orta olacak şekilde bir kod yazabilir misiniz.? Teşekkür ederim.

 

[bordo6181]

Yatayda seçenekler çok fazla değilse kod ile uğraşmadan



Sağ Tık Hücreleri Biçimlendir kısmı ile tüm satırı yapabilirsiniz.

 

[Hacı Bayram ÖZKAN]

Abim sadece bu değil bir değer değişmesi gerekiyor.

 

[Seyit Tiken]

Bir kısmını yaptık, diğer kısmını makro kaydet ile yapmaya çalışınız.

Sub syapı()
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveWindow.Zoom = 60
Rows("1:3") = ""
Rows("5") = ""
Rows("10") = ""
Rows("71") = ""
End Sub

 

[Hacı Bayram ÖZKAN]

Teşekkür ederim SEYİT bey bu durumda sadece Yatay yaptı diğerlerini silmedi neden?

 

[Seyit Tiken]

Kodları biraz kısaltım, kod ilgili satırların içini boşaltıyor, yapamazsanız örnek dosya ekleyiniz.

Sub syapı()
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveWindow.Zoom = 60
[A1:A3,A5,A10,A71].EntireRow.Delete
End Sub

 

[hmtstc]

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("1:1,2:2,3:3,5:5,10:10,71:71").Select
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.Zoom = 60
    Rows("9:9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.RowHeight = 25
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("C:C").Select
    With Selection
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın Seyit Bey; sizin kodda sadece hücrenin içeriğini siliyor, oysa ben satırı tamamen silmesini istemiştim, abim sayın hmtstc kodları çalıştırdı, ancak sadece sayfa yapısındaki Büyültme Küçültmede %60'ı yapmadı. Ayrıca dosya da ekte abim bunun amacı sistemden alınan bu dosya A4 kağıdına çok güzel oturmuyor, ben bunu böyle yapınca kitap gibi oturuyor, o yüzden istedim, belki çok önemli değil ama işte güzel dursun diye teşekkür ederim.

 

[Hacı Bayram ÖZKAN]

Olması gereken dosyalarım

 

[Seyit Tiken]

Kodu revize ettim, satırı komple siliyor, çift tıklama,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
[A1:A3,A5,A10,A71].EntireRow.Delete
End Sub

...