Makro sayfa adını hücreden okusun

[hayri tekin]

Merhaba,
Aşağıdaki makroda sayfa adı değişken olduğundan sayfa adını hücreden (L2'den) okumasını istiyorum ama maalesef beceremedim.Yardımcı olursanız sevinirim.

Sheets([veri!L2].ClearContents).Select


not:makronun eski hali : Sheets("G").Select bu şekildeydi.Dosya ekleyemiyorum çünkü yoğun bir dosya.

 

[pristineli45]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$L$2" And Cells(Target.Row, "L") <> "" Then
ActiveSheet.Name = Cells(Target.Row, "L")
End If
End Sub


Bu kodu dener misiniz?

 

[hayri tekin]

İlginize çok teşekkür ederim.Yalnız bu tam istediğim gibi değil.Zira bu başlıbaşına bir makro olmuş.Benim istediğim detayını veremediğim makromun sadece bir satırı ile ilgili.Yani makromun Sheets("G").Select şeklinde olan satırını yani sayfa adı "G" olan kısmını veri sayfasındaki L2 hücresinden okutmak.

 

[Orion1]

Buyurun.

MsgBox Sheets(Range("L2").Value).Name

 

[hayri tekin]

Yazdığınız bu kodu uyguladım ama bu defa da veri sayfamdaki verileri yani A2:K2 satırındaki bilgileri alt satırlara yazıyor ve doğal olarak verilerim bozuluyor.

 

[Seyit Tiken]

Ben böyle anladım.

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("G").Name = Sheets("Veri").[L2]
End Sub

 

[Orion1]

bunu deneyin.

Sheets(Range("L2").Value).select

 

[hayri tekin]

bunu deneyin.

Sheets(Range("L2").Value).select

Çok teşekkür ederim;tamamdır.