Seçili Alandaki Sayılara Tire Ekleme

Bu dosya, seçilen hücre aralığındaki değerleri satır satır tire işaretiyle birleştiren bir VBA makrosu örneğidir. Her satırdaki değerler, her birinin sağına tire eklenerek tek metin haline getirilir ve seçimin ilk sütunundaki hücreye yazılır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1:D5 aralığında örnek veri bulunur. A3:A5 hücrelerinde 1, 2, 3, 4, 5 sayıları yer alır; C3:C5 hücrelerinde makro sonucunu gösteren örnek metinler (2-, 3-, 3-) bulunur. Sayfada makroyu çalıştıran bir düğme (CommandButton1) vardır.

Makrolar​

• CommandButton1_Click (Sayfa1): Düğmeye tıklandığında StuffTogether makrosunu çağırır.
• StuffTogether (Module1): Seçili alanın ilk satırını, ilk sütununu, satır ve sütun sayısını belirler. Her satırda soldan sağa ilerleyerek hücrelerin görünen metnini (Text) alır, her değerin sonuna "-" ekleyerek tek bir metin oluşturur ve işlenen hücreleri boşaltır. Oluşan metin satırın ilk hücresine yazılır. Örneğin bir satırda 1, 2 ve 3 seçiliyse ilk hücreye "1-2-3-" yazılır.

Makro dosya silme veya dışarıya bağlantı gibi bir işlem yapmaz; yalnızca seçili hücrelerin içeriğini değiştirir.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Sayfa1 üzerinde tire eklenecek sayıların bulunduğu hücre aralığını seçin.
3. Sayfadaki düğmeye tıklayın.
4. Her satırın birleşik sonucu, seçimin ilk sütunundaki hücrede görüntülenir.

Makro seçili hücrelerin orijinal değerlerini siler. İşlemden önce verinin bir kopyasını almanız önerilir. Makroyu kendi dosyanızda kullanmak için Module1 ve düğmenin çağrı kodu dosyanıza aktarılabilir.