13/01/2012, 11:03
preveze
Duayen hocam konu anlatımınızda bir bölüm kafama takıldı.Sayfa sayısına göre sayfayı istenen konuma eklemeyle ilgili şu kısım:
Sub Düğme1_Tıklat()
WorksheetsAdd.Name=”Excel”
a = Worksheets.Count
Worksheets(“Excel”).Move after:=Worksheets(a)
End Sub
Burada önce bir sayfa ekliyor,sonra sayfa sayısını buluyor yani sayfa sayısı bu durumda 4 olmuyor mu? En sonda ise yeni sayfayı 4.sayfanın sonuna ekle gibi bir anlam çıkarıyorum.Fakat visual basic düzenleyicisinde yazdığımda sayfayı 3.sayfanın sonuna ekliyor.Aslında 4.sayfanın sonuna eklemeye çalışması ve 4.sayfa olmadığı için hata vermesi gerekir gibi ama hata vermiyor.Bu kodu aşağıdaki şekilde yapmayı denedim fakat 2.sayfanın sonuna ekledi yeni sayfayı.
a = Worksheets.Count
Worksheets.Add.Name = "yeni"
Worksheets("yeni").Move after:=Worksheets(a)
Bu kodda ise önce sayfa sayısını 3 olarak buluyorum.Sonra 3.sayfanın sonuna eklemesini istiyorum.Fakat 2.sayfanın sonuna ekliyor.Bende mi bir mantık hatası var anlamadım gitti.Yardımcı olursanız çok sevinirim.Kolay gelsin.
Sub Düğme1_Tıklat()
WorksheetsAdd.Name=”Excel”
a = Worksheets.Count
Worksheets(“Excel”).Move after:=Worksheets(a)
End Sub
Burada önce bir sayfa ekliyor,sonra sayfa sayısını buluyor yani sayfa sayısı bu durumda 4 olmuyor mu? En sonda ise yeni sayfayı 4.sayfanın sonuna ekle gibi bir anlam çıkarıyorum.Fakat visual basic düzenleyicisinde yazdığımda sayfayı 3.sayfanın sonuna ekliyor.Aslında 4.sayfanın sonuna eklemeye çalışması ve 4.sayfa olmadığı için hata vermesi gerekir gibi ama hata vermiyor.Bu kodu aşağıdaki şekilde yapmayı denedim fakat 2.sayfanın sonuna ekledi yeni sayfayı.
a = Worksheets.Count
Worksheets.Add.Name = "yeni"
Worksheets("yeni").Move after:=Worksheets(a)
Bu kodda ise önce sayfa sayısını 3 olarak buluyorum.Sonra 3.sayfanın sonuna eklemesini istiyorum.Fakat 2.sayfanın sonuna ekliyor.Bende mi bir mantık hatası var anlamadım gitti.Yardımcı olursanız çok sevinirim.Kolay gelsin.