Kişisel Makro Hazırlama ...

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar, Kişisel Makro Hazırlamada Yazdığım makroyu yani yeni bir Excel dosyasında seçtiğim hücrede alt alta yazmaz için nasıl yapmalıyım.

Sub Makro1()
'
' Makro1 Makro
'
' Klavye Kısayolu: Ctrl+Shift+H
'
ActiveCell.FormulaR1C1 = "Hacı ÖZKAN"
ActiveCell.FormulaR1C1 = "Destek Hizmetleri Amiri"
ActiveCell.FormulaR1C1 = "GİH Memuru"
End Sub

Bu şekil yazınca sadece en alt satır olan "GİH Memuru" yazıyor, oysa ben hepsini sıra ile alt alta yazdırmak istiyorum. Teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    ActiveCell.Resize(3) = Application.Transpose(Array("Hacı ÖZKAN", "Destek Hizmetleri Amiri", "GİH Memuru"))
End Sub

 

[Hacı Bayram ÖZKAN]

Teşekkürler Sayın Hocam Allah Razı Olsun

 

[Hacı Bayram ÖZKAN]

Sayın abilerim; Hazırladım makroları eklenti olarak kayıt yaptığımda bu kodu yeni bir excel dosyasında çalıştırınca makronun kayıtlı olduğu dosya açılıyor mu? Şimdi bunun için bana deneme yap diyeceksiniz ama, deniyorum, bazılarında açıyor, bazılarında açmıyor. ? Teşekkürler.

 

[Korhan Ayhan]

Ne yaptığınızı tam olarak açıklarsanız deneyip bilgi verebiliriz.