Çalışma kitabı boşlukları silme

Merhaba @skylonely6

Söz ettiğiniz; SATIRBAŞI, aynı hücrede ALT+ENTER ile oluşturulmuş satırbaşı mıdır yoksa alandaki ayrı ayrı hücreler midir?
Bence en iyisi bir örnek belge ekleyip, gerçek veri üzerinden bakılmasında yarar var.

Ömer BARAN' Alıntı:

Merhaba @skylonely6

Söz ettiğiniz; SATIRBAŞI, aynı hücrede ALT+ENTER ile oluşturulmuş satırbaşı mıdır yoksa alandaki ayrı ayrı hücreler midir?
Bence en iyisi bir örnek belge ekleyip, gerçek veri üzerinden bakılmasında yarar var.

Genişletmek için tıklayın ...

tabi hocam telefon üzerinden yazdım şimdi örnek dosyayı atıyorum hemen

@skylonely6

Fikrim, boşluk temizlemeyle uğraşmak yerine veri çekerken bu işi çözmenin daha doğru olduğu yönünde.

Bunun için; veri çekme kodlarınızda yer alan
ms.Cells(rowc, colc).Value = td.innerText
kısmını
ms.Cells(rowc, colc).Value = WorksheetFunction.Trim(td.innerText)
şeklinde değiştirmeniz yeterli olur.

.

Ömer BARAN' Alıntı:

@skylonely6

Fikrim, boşluk temizlemeyle uğraşmak yerine veri çekerken bu işi çözmenin daha doğru olduğu yönünde.

Bunun için; veri çekme kodlarınızda yer alan
ms.Cells(rowc, colc).Value = td.innerText
kısmını
ms.Cells(rowc, colc).Value = WorksheetFunction.Trim(td.innerText)
şeklinde değiştirmeniz yeterli olur.

.

Genişletmek için tıklayın ...

öncelikle cevabınız için teşekkür ederim @Ömer BARAN hocam bu kodu kullandığım da boşluklar olmadan geliyor evet yalnız şu sorunumuz oluyor 2021 sayfası güncel oluyor diğer sayfalarda ise boşluklar mevcut olduğu için formüller çalışmıyor yani benim her şekilde bütün çalışma kitabında ki boşlukları silmem gerekecek ki bu kodu güncel olarak kullanabileyim

Şu kod işinizi görür Sn. @skylonely6

Ömer BARAN' Alıntı:

Şu kod işinizi görür Sn. @skylonely6

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(9 satır)

Genişletmek için tıklayın ...

biraz geç oldu hocam hastalık falan ancak bakabildim teşekkürler