excel yeni sayfa

[sinemomec]

Excel’de makro kullanarak otomatik olarak yeni sayfa ekleyebilirsiniz. Aşağıdaki kod B sütununa yeni eklenen bir verinin ismi ile yeni bir sayfa oluşturmaktadır. Farklı projelerde kullanılabilir. Kodu işlem yapacağınız sayfanın, sayfa koduna yapıştırmanız yeterlidir.



Private Sub worksheet_change(ByVal target As Range)
If Intersect([B:B], target) Is Nothing Then Exit Sub
Dim WS As Worksheet
Set WS = Sheets.Add

son = Cells(Rows.Count, "B").End(xlUp).Row

WS.Name = Cells(son, 1)

End Sub


bu kodu denedim ama sonuç alamadım hatayı nerde yaptım acaba...

 

[dEdE]

Dener misiniz?

İndir sinemomec

Dosyayı indir sinemomec

dosya.co

 

[usubaykan]

Private Sub worksheet_change(ByVal target As Range)
If Intersect(Range("B:B"), target) Is Nothing Then Exit Sub
    Sheets.Add
        WS = Cells(Cells(Rows.Count, 2).End(3).Row, target.Column)
    ActiveSheet.Name = WS
Exit Sub

bu şekilde deneyin.