Geçerli sayfa ismini hücreye yazdırma

[hezarpare]

ÜStadlar. Çalışma kitabımda her aya bir sayfa var. ben istiyorum ki hr42 hücresine çalışma sayfasının ismini yazsın. Bunu nasıl yapaccağım?

 

[muratozmenler]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[hr42].Value = ActiveSheet.Name
End Sub

thisworkbook bölümüne bunu yapıştır hangi sayfa aktif olursa oraya sayfa ismini yazacaktır.

 

[Merhum İdris SERDAR]

ÜStadlar. Çalışma kitabımda her aya bir sayfa var. ben istiyorum ki hr42 hücresine çalışma sayfasının ismini yazsın. Bunu nasıl yapaccağım?

.

Formülle istiyorsanız:

http://www.excel.web.tr/attachment.php?attachmentid=74110&d=1254469358


.

 

[parametre]

buradan

dosyanız ekte

 

[hezarpare]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[hr42].Value = ActiveSheet.Name
End Sub

thisworkbook bölümüne bunu yapıştır hangi sayfa aktif olursa oraya sayfa ismini yazacaktır.

.

Formülle istiyorsanız:

Hücre - cell fonksiyonu

.

ÜStadlar hepinizden Allah razı olsun. Teşekkürler.

buradan

dosyanız ekte

ÜStadlar hepinizden Allah razı olsun. Teşekkürler.

 

[ozanyazar]

Hücreye çalışma sayfasını ismini yazdırmam gerekiyor

Dosyayı indiremedim
Formülü açık yazabilir misiniz
Çok sayıda çalışma sayfasında
dataların bir üstündeki hücreye
çalışma sayfasını ismini yazdırmam gerekiyor
Şimdiden teşekkürler

 

[Merhum İdris SERDAR]

Dosyayı indiremedim
Formülü açık yazabilir misiniz
Çok sayıda çalışma sayfasında
dataların bir üstündeki hücreye
çalışma sayfasını ismini yazdırmam gerekiyor
Şimdiden teşekkürler

.

Yukarıdaki link yenilenmiştir.

http://www.excel.web.tr/attachment.php?attachmentid=74110&d=1254469358



.

 

[ozanyazar]

Deneyip durdum ama nerede hata yaptığımı bulamadım
CELL - HÜCRE FONKSİYONU.xls dosyasının
Örnek2 sayfasının B15 hücresini kopyalıyorum
kendi kullanacağım dosyalardaki sayfalara yapıştırıyorum ama çalışmıyor
Çalışma sayfalarının adını alamadım bir hücreye
Vaktiniz olursa rica ediyorum, olmazsa artık elle yazacağım
Sağlıcakla kalınız.

 

[ozanyazar]

Az önce sizin formüllerden ihtiyacım olanı kendi çalışma sayfama taşıdım,
çok teşekkürler sayın Yurttaş
Sağlıcakla kalınız

 

[hezarpare]

Az önce sizin formüllerden ihtiyacım olanı kendi çalışma sayfama taşıdım,
çok teşekkürler sayın Yurttaş
Sağlıcakla kalınız

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[hr42].Value = ActiveSheet.Name
End Sub