DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
nasıl çalıştığını anlatırmısınız makrolarda yeniyimKod:Sub test() With ActiveSheet .Range("A1").Value = .Name End With End Sub
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
dosyanın adını istiyorum ama excel dosyasnın o çalışma sayfasını veriyorKod: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