hücreye sayfa ismi otomatik yazılsın

[siyahim]

arkadaşlar sayfa içerisinde ki herhangi bir hücreye çalışma kitabının ismini örneğin S001 olsun bu ismi herhangi bir hücreye otomatik getirmek mümkünmü yardımcı oalblecek varsa şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

ThisWorkbook'a yazılacak

Private Sub Workbook_Open()
[a1] = ActiveWorkbook.Name
[a1] = Split([a1], ".")(0)
End Sub

 

[İhsan Tank]

arkadaşlar sayfa içerisinde ki herhangi bir hücreye çalışma kitabının ismini örneğin S001 olsun bu ismi herhangi bir hücreye otomatik getirmek mümkünmü yardımcı oalblecek varsa şimdiden teşekkür ederim.

merhaba
hücreye

=PARÇAAL(HÜCRE("dosyaAdı";A1);MBUL("[";HÜCRE("DosyaAdı";A1);1)+1;MBUL("]";
HÜCRE("Dosyaadı";A1);1)-MBUL("[";HÜCRE("dosyaadı";A1))-5)

bu formülü yazın ve dosyayı kaydedin.

 

[Ergün Güler]

Selam,

Private Sub Worksheet_Activate()

Range("A1") = ActiveSheet.Name 'Sayfa Adı
Range("B1") = ThisWorkbook.Name ' çalışma kitabı Adı
Range("C1") = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4) '.xls Uzantısı hariç

End Sub

A1'e sayfa adı
B1'e çalışma Kitabı adı
C1'e .xls uzantısı hariç çalışma Kitabı adı
yazar.

İyi çalışmalar

 

[siyahim]

çok teşekkürler zahmet oldu

 

[İhsan Tank]

çok teşekkürler zahmet oldu

rica ederim
Syn : N.Ziya Hiçdurmaz Hocam'a
Syn : Ergün Güler Arkadaşım'ada teşekkür ederim
kolay gelsin :mutlu:

 

[brementarik]

Her şey için teşekkürler..
Peki soruyu tersten sorsam
a1 hücresine yazdığım veriyi otomatik olarak Çalışma kitabının ismi olarak atayabilir miyim?

 

[Ergün Güler]

Her şey için teşekkürler..
Peki soruyu tersten sorsam
a1 hücresine yazdığım veriyi otomatik olarak Çalışma kitabının ismi olarak atayabilir miyim?

Selam,

Hücredeki veriyi Çalışma Kitabı Adı olarak atayamazsınız.
Ancak Sayfa Adı olarak atamak için aşağıdaki kodu uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1")) Is nothüng Then Exit Sub

If Range("A1") = "" Then
ActiveSheet.Name = "BOŞ"
Else
ActiveSheet.Name = Range("A1")
End If

End Sub

 

[İhsan Tank]

Her şey için teşekkürler..
Peki soruyu tersten sorsam
a1 hücresine yazdığım veriyi otomatik olarak Çalışma kitabının ismi olarak atayabilir miyim?

merhaba

Private Sub CommandButton1_Click()
If Range("A1").Text = Empty Then MsgBox "Dosya Adı Giriniz.", , "İhsan Tank": Exit Sub
On Error GoTo son
eski = ThisWorkbook.Name
ActiveWorkbook.SaveAs Range("A1") & ".xls"
Kill eski & ".xls"
son:
End Sub

bu kodu denermisiniz
Belgelerime kayıt yapar