Sütundaki Verileri Sütün Genişliği Kadar Alt Alta Yazmak

Bu şablon, B sütunundaki uzun metinleri sabit genişlikli parçalara ayırır ve parçaları C sütununda alt alta sıralar. Her hücredeki metin, sütun genişliği kadar satırlara bölünerek tek bir listeye dönüştürülür.

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

Dosyanın içeriği​

• ORNEK: A1:B17 aralığını kullanan tek sayfadır. A sütununda 1., 2. biçiminde sıra numaraları bulunur; B sütunu bölünecek metinlerin girildiği alandır. Sonuç C sütununa yazılır.
• Sayfada formül, tablo, grafik veya veri doğrulama yoktur; tüm işlem makro ile yapılır.

Makrolar​

Dosyada Module2 modülü içinde EXCELdestek adlı tek bir makro vardır. Makro şu adımlarla çalışır:

1. Önceki sonuçları temizlemek için C sütununu siler.
2. B sütunundaki dolu satırları ilk satırdan sonuncuya kadar tek tek işler.
3. Her satırdaki metni TextToColumns yöntemiyle sabit genişlikte (sırasıyla 0, 79, 167, 257 ve 348 konumlarından) parçalara ayırır; parçalar D sütunundan başlayarak yan yana yerleştirilir.
4. Elde edilen parçaları kopyalar ve Transpose seçeneğiyle C sütununun ilk boş hücresinden başlayarak alt alta yapıştırır.
5. D:H sütunlarını temizleyerek bir sonraki satıra geçer.
6. Döngü bitince C1:M1 aralığını silip yukarı kaydırır; böylece baştaki boş satır kalkar.

Makroda dosya silme veya dış bağlantı gibi işlem yoktur. Makro C sütununu sildiği için bu sütuna elle girilen veriler kaybolur; C sütununu başka amaçla kullanmayın.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. ORNEK sayfasında B sütununa bölünecek metinleri girin.
3. Alt+F8 tuşlarıyla makro listesini açın, EXCELdestek makrosunu seçip çalıştırın.
4. Bölünen parçalar C sütununda alt alta listelenir.
5. Parça genişliklerini değiştirmek için VBA düzenleyicisinde Module2 içindeki konum değerlerini düzenleyin.