hücre içine makro

[mnz]

Seçili olan hücre içeriğine makro yapılabilirmi?
Seçili olan hücreye F2 >> CTRL+HOME >> END >> ARALIK ÇUBUÐU (BİR BOÞLUK) >> } (PARANTEZ KAPA) >> bir alt satıra in

Ben denedim Kaydedilemiyor uyarısı aldım.
Bunu neden yapıyorum onu da söyliyim. Hücre içeriğinde Başlık ve açıklaması olan yüzlerce satır var. Büyük harften sonra (yani hücre içeriğinin ilk satır sonuna) " } " işareti koyuyorum ki Metni Sütunlara Dönüştür ile } işaretinden sonrakileri diğer sütuna atabileyim.
Bunu yazarken aklıma geldi de Hücre içeriğindeki başlıktan sonra 2 3 paragraf olabilir Metni Sütunlara Dönüştür olayından sonra diğer sütuna geçen yazılar, başındaki boşluklar yüzenden gönrünmeyebilir.
biraz karışık mı oldu? :?

 

[Levent Menteşoğlu]

Bir örnek dosya eklerseniz sanırım sorunuz daha net anlaşılacaktır.

 

[mnz]

örnek çalışma ektedir

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin. Kodun "}" işaretini doğru yere koyması için hücrede büyük harflerle yazılan başlığın tamamını görmeniz gereklidir.

[vb:1:ac69905ec0]Sub hucre()
Application.ScreenUpdating = False
For a = 1 To [a65536].End(xlUp).Row
Cells(a, 1).Select
SendKeys "{F2}", True
SendKeys "^{HOME}", True
SendKeys "{END}", True
SendKeys "{}}", True
SendKeys "{ENTER}", True
Next
End Sub
[/vb:1:ac69905ec0]

 

[mnz]

Sayın leventm Tam İsabet.
dediğiniz gibi } işaretinin doğru yere yazılabilmesi için hücrede tam olarak görünmesi lazım. Aksi halde ortaya yazılıyor. Bunu söylemeyi unutmuşum ama siz olayı çözmüşsünüz bile.
SendKeys "{END}", True olayından sonra bir boşlu gerekiyor sanırım onun için de
SendKeys "{INS}", True mu yapmamız gerekiyor.
İlginize Teşekkürler.
yoksa aralık çubuğu için başka bir kod mu var. (Aralık çubuğu kodunu bulamadım da)

 

[Levent Menteşoğlu]

Boşluk için aşağıdaki gibi deneyebilirsiniz.

SendKeys " ", True