WorkBook'taki son WorkSheet adı ne

[hassan26]

Selamlar
Ekteki örnekte ben ComboBox yaptım ama bunun TextBox'da olmasını nasıl sağlayabiliriz yani excel kitabındaki sıralamada en son sayfa ismini görebilmek için ne yapmalıyım, üzerinde bir işlem yapmayacağım Userformun üzerinde bir yerde en son oluşturulmuş sayfa adını görmek istedim yeni sayfa oluştururken son sayfa ismini hatırlamak için sayfa isimleri P1 ile başlayıp gidiyor enson P(*) göstermeyi nasıl sağlayabilirim. CommandButton'a tıkladığınızda ne yazacağınızı hatırlamak için bu arada yapacağım kitap Application.Visible = False çalıştığı için buna ihtiyaç duydum.
Saygılar

 

[Ayhan Ercan]

Merhaba
En sn sayfanın ismini textboxda görmek için;

TextBox1 = Sheets(Sheets.Count).Name

 

[hassan26]

Ayhan Ercan teşekür ederim
Commandbuttondan yeni sayfa üretip adını yazınca textbox'da ki bilgininde yenilenmesini sağlayabilirmiyiz yada hiç textbox koymadan commandbuttona tıkladıkça son sayfa adına +1 yaparak çoğaltma yapılabilirmi.

 

[hassan26]

Örneğin

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Say = Worksheets.Count
For X = Say To Say + 0
Sheets("P1").Select
Sheets("P1").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Format(X, "0000")
ActiveSheet.[AA1].Select
Selection.NumberFormat = "@"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveSheet.[AA1] = ActiveSheet.Name
Next
Sheets("P1").Select
Application.ScreenUpdating = True
End Sub

kırmızı yere nasıl tanımlama yapabilirim ki isimlendirme işlemi son sayfadan sonra +1 devam etsin

 

[Ayhan Ercan]

Tekrar merhaba,

Sayfa isimlerinin "P" ile başladığını varsayarsak şöyle bir kodu deneyebilirsiniz..

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("P1").Select
Sheets("P1").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = "P" & Sheets.Count
End Sub

 

[hassan26]

Sayın Ayhan Ercan teşekkür ederim.
Saygılar.

 

[Ayhan Ercan]

Sayın Ayhan Ercan teşekkür ederim.
Saygılar.

Rica ederim.
İyi Çalışmalar...