Soru Yeni sayfa açtıktan sonra kodlar devreye girmesi

[Cengizhantr06]

Dim syfAdi As String

Dim syfTar  As Date

syfAdi = CDate(ActiveSheet.Name) + 1

If SayfaVar(syfAdi) = True Then

    MsgBox syfAdi & "Zaten Var ......", vbCritical

    Exit Sub

Else

    ActiveSheet.Copy Before:=Sheets(1)

    ActiveSheet.Name = syfAdi

    ActiveSheet.Range("B6").Value = ActiveSheet.Range("B6").Value + 1

   

End If

Range("Q14:Q22").Value = Range("T14:T22").Value 'DEVİR

Range("R14:R22").Value = "0" 'GİREN

Range("S14:S17").Value = "0" 'CIKAN

Range("S22").Value = "0" 'CIKAN SİGARA

Range("U14:U17").Value = "0" 'KAPANIS TANK

Range("O7").Value = "0" '2050

Range("P7").Value = "0" '1540

Range("Q7").Value = "0" '1040

If Range("R7").Value <> "" Then

Range("R6").Value = Range("R7").Value 'ADBLUE

'Range("R7").Value = ""

Else

End If

If Range("e7").Value = "CENGİZ" Then

Range("e7").Value = "ŞÜKRÜ"

Range("f7").Value = "REMZİ"

Range("h7").Value = "KÜRŞAT"

Range("g7").Value = "POMPACI"

Else

Range("e7").Value = "CENGİZ"

Range("f7").Value = "BERAT"

Range("h7").Value = "ZAFER"

Range("g7").Value = "POMPACI"

End If

CommandButton5.Caption = Range("f7").Value

CommandButton2.Caption = Range("E7").Value

CommandButton7.Caption = Range("H7").Value

CommandButton6.Caption = Range("G7").Value

Range("D21").Value = "0" 'ATS YAKIT KART

Range("D24").Value = "0" 'ATS YAKIT KART

Range("E9:J21").Value = "" 'POMPACI GİRİŞLERİ

Range("E23:J46").Value = "" 'POMPACI GİRİŞLERİ

Range("E47:J62").Value = "" 'PİŞLETME

Range("D67:H67").Value = "" 'TURPAK

Range("B27:B46").Value = "" 'VERESSİYE

Range("D49:D53").Value = "" 'BANKA

Range("O26:T31").Value = "" 'BANKA

End Sub

Kodumda sayfayı kopyalayıp yeni sayfa acıyorum ve yeni sayfa acınca bazı içerikleri kopyalıyor ve temizliyor
Ama eski sayfayı temizliyor kopyaladı sayfa aynı kalacak yeni açtı sayfada o işlemi yapmasını istiyorum yardım eder misiniz

 

[DoğanD]

Bu blokta End İf'ten önce Sheets(syfadi).select ekleyebilir misiniz?

Else

    ActiveSheet.Copy Before:=Sheets(1)

    ActiveSheet.Name = syfAdi

    ActiveSheet.Range("B6").Value = ActiveSheet.Range("B6").Value + 1

    

End If

 

[Cengizhantr06]

Malesef yine aynı Doğan bey değişmedi yine önce kopyaladığı sayfayı temizliyor

 

[Erkan Akayay]

Yeni sayfa açıldığında kod çalışması için bir metod var. Orada yazın kodlarınızı.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
MsgBox ("Yeni sayfa oluşturuldu.")
End Sub