Hücre ismiyle excel dosyasının ismini aynı yapma

[silkrblt]

Merhabalar excelde form numarsının bulunduğu hücreye dosyanın ismi yapmak istiyorum. Yapmam mümkün mü

 

[antonio]

Sub test()
With ActiveSheet
    .Range("A1").Value = .Name
End With
End Sub

 

[silkrblt]

Sub test()
With ActiveSheet
    .Range("A1").Value = .Name
End With
End Sub

nasıl çalıştığını anlatırmısınız makrolarda yeniyim

 

[antonio]

nasıl çalıştığını anlatırmısınız makrolarda yeniyim

Sub test()
With ActiveSheet
''With - End With arasına yazılan kodlarda her seferinde With sonrasında yazılan nesnenin
''tekrar tekrar yazılmaması, dolayısıyla kod tasarrufu sağlanır (ActiveSheet.Range, ActiveSheet.Name kodundaki 
'ActiveSheet'i her seferinde yazmak yerine sadece nokta yazılır. Öncesi ActiveSheet olarak algılanır..)
    .Range("A1").Value = .Name ''Aktif sayfanın A1 hücresinin değeri = Aktifsayfanın ismi
End With
End Sub

 

[silkrblt]

Sub test()
With ActiveSheet
''With - End With arasına yazılan kodlarda her seferinde With sonrasında yazılan nesnenin
''tekrar tekrar yazılmaması, dolayısıyla kod tasarrufu sağlanır (ActiveSheet.Range, ActiveSheet.Name kodundaki
'ActiveSheet'i her seferinde yazmak yerine sadece nokta yazılır. Öncesi ActiveSheet olarak algılanır..)
    .Range("A1").Value = .Name ''Aktif sayfanın A1 hücresinin değeri = Aktifsayfanın ismi
End With
End Sub

dosyanın adını istiyorum ama excel dosyasnın o çalışma sayfasını veriyor

 

[AdemCan]

Sub test()
    Range("A1").Value = Left(ThisWorkbook.Name, WorksheetFunction.Search(".", ThisWorkbook.Name) - 1)
End Sub