sayfa adını hücreye atama

[acebeci]

Çok Değerli arkadaşlar sayfa adını hücreye atama hakkında yardımınıza ihtiyacım var .Her yeni eklediğim sayfa adını eklen sayfanın H23 hücresine atamak istiyorum bu konuda yardım edebilirseniz çok sevinirim .Şimdiden teşekkür eder,hepinize çalışmalarınızda başarılar dilerim

 

[Orion1]

Thisworkbook.modülülüne.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Range("H23").Value = ActiveSheet.Name
End Sub

 

[acebeci]

Sayın evren yeni sayfayı Korhan Ayhan hocamın Yazdığı Şu kodla oluşturuyoum
Option Explicit

Sub SAYFA_KOPYALA()
Dim SON_SAYFA_ADI As Date, YENİ_SAYFA_ADI As Variant

Başla:
SON_SAYFA_ADI = CDate(Worksheets(Sheets.Count).Name) + 1
YENİ_SAYFA_ADI = Application.InputBox("Lütfen sayfa adı giriniz.", "YENİ SAYFA EKLEME İŞLEMİ", Format(SON_SAYFA_ADI, "dd-mm-yyyy"))

If YENİ_SAYFA_ADI = False Then Exit Sub

If YENİ_SAYFA_ADI <> "" Then
On Error GoTo Devam
Sheets("" & YENİ_SAYFA_ADI).Select
MsgBox "Eklemek istediğiniz sayfa zaten dosyanızda bulunmaktadır." & vbNewLine & "Lütfen başka sayfa adı giriniz!", vbCritical
GoTo Başla
Devam:
Sheets("ŞABLON").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = Format(YENİ_SAYFA_ADI, "dd-mm-yyyy")
ActiveSheet.Range("B14") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!E23"
ActiveSheet.Range("B15") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!E24"
ActiveSheet.Range("B16") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!E25"
ActiveSheet.Range("B17") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!E26"
ActiveSheet.Range("B18") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!E27"
ActiveSheet.Range("B19") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!E28"
ActiveSheet.Range("B20") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!E29"
ActiveSheet.Range("B21") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!E30"
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
Else
MsgBox "Lütfen sayfa adı giriniz!", vbExclamation
End If
End Sub

burda nereye ekleyebileceğimi çözemedim bir kontrol etmeniz mümkün mü

 

[Korhan Ayhan]

Selamlar,

Kodun içindeki aşağıdaki satırı bulun.

ActiveSheet.Name = Format(YENİ_SAYFA_ADI, "dd-mm-yyyy")

Bu satırın altına aşağıdaki satırı yazın.

ActiveSheet.Range("H23") = Format(YENİ_SAYFA_ADI, "dd-mm-yyyy")

 

[acebeci]

Valla ne diyeyim çok ama çok teşekkürler

 

[Orion1]

Orada hiç bir yere eklemeyeceksiniz.
VBE'de project explorerde thisworkbook modülüne çift tıklayıp açın ve benim yazdığım kodu yapıştırın.İşlem bu kadardır.
Siz kodlarınızla yine sayfanızı oluşturun hiç farketemez.İster kod ile ister manuel sayfa ekleyin bemnim verdiğim kodlar ile istediğiniz hücreye sayfa ismi yazılacaktır.

 

[acebeci]

hepinize çok ama çok teşekkür ederim sağolun arkadaşlar