Soru Makroyu tüm sütunda çalıştırma

kayhan32 · 5 Mart 2021

Arkadaşlar merhaba.
Öncelikle forumda emeği geçen tüm arkadaşlara teşekkür ederim.
Aşağıdaki makro A1 deki HTML veriyi B1 hücresine düz metin olarak yazıyor. Bunu A sütunundaki tüm hücre içeriği için uygulayabilir miyiz. Yani A1 deki B1 e, A2 deki B2 ye şeklinde A sütunundaki son dolu hücreye kadar okuyup B ye düz metin olarak yazdırabilir miyiz?
İlginiz için tekrar teşekkür ederim.

Kod:

Sub Kod()
bul = Array("&Uuml;", "&Ccedil;", "&uuml;", "&ouml;", "&Ouml;", "&ccedil;", "&nbsp;", ">", "<")
deg = Array("Ü", "Ç", "ü", "ö", "Ö", "ç", "", ">", "<")
metin = Range("A1")
For a = LBound(bul) To UBound(bul)
    metin = Replace(metin, bul(a), deg(a))
Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Navigate "About:blank"
    .Document.Open
    .Document.Write "<HTML>" & metin & "</HTML>"
    .Document.Close
    Range("B1") = .Document.all(0).innertext
    IE.Quit
End With
End Sub

muygun · 5 Mart 2021

Merhaba;

Sub Kod()
For i = 1 To Range("A65536").End(xlUp).Row
bul = Array("Ü", "Ç", "ü", "ö", "Ö", "ç", " ", ">", "<")
deg = Array("Ü", "Ç", "ü", "ö", "Ö", "ç", "", ">", "<")
metin = Range("A" & i)
For a = LBound(bul) To UBound(bul)
metin = Replace(metin, bul(a), deg(a))
Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate "About:blank"
.Document.Open
.Document.Write "<HTML>" & metin & "</HTML>"
.Document.Close
Range("B" & i) = .Document.all(0).innertext
IE.Quit
End With
Next i
End Sub

Şeklinde deneyin.
İyi çalışmalar.

kayhan32 · 5 Mart 2021

Elinize emeğinize sağlık. Teşekkür ederim.

Soru Makroyu tüm sütunda çalıştırma

kayhan32

muygun

Özel Üye

kayhan32