excel yeni sayfa

Katılım
21 Ocak 2013
Mesajlar
422
Excel Vers. ve Dili
2010
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...
 

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Kod:
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.
 
Üst