Bende o kısmı tam anlamadım @berduş hocam. Hücre içerisine aktarırken çerçeveleri ihmal edip char(10) gibi eklemelerle sonucu formatlayarak tek hücre içinde en azından text mizanpajını formata uygun hale getirmeye çalıştım ama her IVL farklı, içindeki IVL sayısından açıklama satır sayısına hatta merge cell sayısına kadar.
Neden inat ettim bilmiyorum açıkçası ama ciddi beyin yaktım hocam

(07/05/2021, 20:47)atoykan yazdı: ama ciddi beyin yaktım hocam

bende "yandı, bitti, kül oldu...")

(07/05/2021, 20:29)atoykan yazdı: tek hücre içine getirmek

Buna gerek varmıki abe?
Ama illaki tek hücrede olsun derseniz çizgiler ve formatlar haric bence getirilebilir uğraşmadım lakim birşeyler seziyorum

zaten elimizde range var en kötü ihtimal for each cll in range... benzer bir kodla boş olmayan veriler alınabilir bence de, ama bir hücre içindeki verilerin bazılarını bold bazılarını normal yapabilir miyiz onu bilemiyorum, kodla  hücredeki verilerin istediğimiz kısmını kalın, eğri, altı çizili yapabiliyor muyuz?

(08/05/2021, 03:03)feraz yazdı: çizgiler ve formatlar haric bence getirilebilir uğraşmadım lakim birşeyler seziyorum

(08/05/2021, 03:14)berduş yazdı: kalın

Kalın yapıldığını biliyorum diğerlerini bilmiyorum.Ama yapılıyordur bence.chracter gibi bir kodla oluyordu yanılmıyorsam abey.
Zaten makro kaydete basın istenilen yeri kalın,eğri vs.. yapın kod verir sonucu
Sonrasında kodu düzenlemek kalır.

---

Arşivimdeki bi örnek dosya ekleyeim sizin için kod renklendiriyor renk yerine bold yapılırsa kalın olur.


https://resim.accesstr.net/do.php?img=10996

Dosyadaki, döngü içini alttaki gibi yaparsanız alt çizgi,kalın renk ve eğik yazı olur aranan kelime.

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.Bold = True

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.Underline = xlUnderlineStyleSingle

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.FontStyle = "İtalik"