Çözüldü vba kod değişikliği

[k0081]

Merhaba arkadaşlar

aşağıdaki kod ile bir sayfayı yeni ay ve gün ismi olarak kopyalıyorum..

yapmak istediğim :

1- Yeni ay ismi inputboxa 08.11.23 şeklinde gelsin.
2- Yeni kopyalanacak sayfada B3:AS3 aralığında dolgu rengi gri olsun.
3- Yeni kopyalanacak sayfada ; Girisler sayfasında bulunan butonlar gelmesin..


yardımcı arkadaşa şimdiden teşekkürler.

Private Sub CommandButton6_Click()
Dim S1 As Worksheet, i As Integer
ynisim = Format(Date, "DD-MMMM-yyyy")
syfname = InputBox("Gün ay yılı Giriniz :", "Kopyala", ynisim)
If syfname = "" Then
MsgBox "İşlem iptal edildi.", , "Kopyala"
Exit Sub
End If
    Application.ScreenUpdating = False
    Application.EnableEvents = False
  
    ActiveSheet.Copy , Worksheets(Sheets.Count)
    Set S1 = ActiveSheet
  


    Dim Sayfa As Object, Kod As String
  
    For Each Sayfa In ThisWorkbook.Worksheets
        Select Case Sayfa.Name
            Case "BuÇalışmaKitabı", "ThisWorkbook", "GIRISLER", "SADELESTIR", "DNT2", "deskbackup"
            Case Else
                Kod = Sayfa.CodeName
                With ThisWorkbook.VBProject.VBComponents(Kod).CodeModule
                    .DeleteLines 1, .CountOfLines
                End With
        End Select
    Next
  
    S1.Range("A4").Select
    Sheets("GIRISLER (2)").Name = syfname
     'Sheets(Array("DONATI_METRAJI", "KD")).Select
    Sheets("GIRISLER").Activate
    Application.EnableEvents = True
    Application.ScreenUpdating = False
End Sub

 

[alicimri]

1. ynisim = Format(Date, "dd.mm.yy")
2. ve 3. Set S1 = ActiveSheet satırının altına

  With S1.Range("B3:AS3 ).Interior
        .Pattern = xlSolid
        .TintAndShade = -0.349986266670736
    End With
S1.Shapes.SelectAll
Selection.Delete

 

[k0081]

1. ynisim = Format(Date, "dd.mm.yy")
2. ve 3. Set S1 = ActiveSheet satırının altına

  With S1.Range("B3:AS3 ).Interior
        .Pattern = xlSolid
        .TintAndShade = -0.349986266670736
    End With
S1.Shapes.SelectAll
Selection.Delete

Tamamdır. Çok teşekkür ediyorum. Renk kısmını sanırım ayarlarım..

 

[k0081]

ayarladım. Teşekkürler.

 

[k0081]

* Ek olarak GIRISLER sayfasının sekme rengi kırmızı. kopyalanan sayfanın sekme rengi renksiz (default ) gelmesini nasıl sağlarız ?

 

[alicimri]

2# mesajların altına ekleyin

S1.Tab.Color = xlAutomatic

 

[k0081]

Teşekkürler.