Otomatik sayfa ekleme Koşullu

[Abdulhey]

Örnek dosyada açıkladığım gibi koşullu otomatik sayfa eklenmesini istiyorum. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[asi_kral]

Örnek dosyada açıkladığım gibi koşullu otomatik sayfa eklenmesini istiyorum. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Konu       :   Eklemeye Göre Sayfa Oluştur
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
If Cells(Target.Row, "A") <> "" And Cells(Target.Row, "B") <> "" Then
Dim asi, kral
asi = Cells(Target.Row, "A").Text
kral = Cells(Target.Row, "B")
Sheets("ŞABLON").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = asi
Sheets(asi).Range("B1") = asi
Sheets(asi).Range("D1") = kral
End If
End Sub

Eki İnceleyiniz.

 

[Abdulhey]

Teşekkürler

 

[asi_kral]

Teşekkürler

Kolay Gelsin.