<> ... </> arasındaki metinleri almak

[tamer42]

Merhabalar,

A sütunundaki hücrelerde yazan <x> ............. </x> formatındaki metinlerde;

<name>MyOffice_1</name>
<color>f50000ff</color>

<name>.............................</name>
<color>.............................</color>
<description>.............................</description>


<> ............. </> aralığında yazan metinleri kod ile çekmek istiyorum.

yardımcı olurmusunuz.

iyi çalışmalar.

 

[uzmanamele]

merhaba

bu işinizi görür mü?

=PARÇAAL(A1;BUL(">";A1;1)+1;BUL("<";A1;2)-BUL(">";A1;1)-1)

 

[İhsan Tank]

Merhabalar,

A sütunundaki hücrelerde yazan <x> ............. </x> formatındaki metinlerde;

<name>MyOffice_1</name>
<color>f50000ff</color>

<name>.............................</name>
<color>.............................</color>
<description>.............................</description>


<> ............. </> aralığında yazan metinleri kod ile çekmek istiyorum.

yardımcı olurmusunuz.

iyi çalışmalar.

merhaba

Dim sat As Long
Sub parçala()
Dim tas As Integer
sat = Cells(65536, "A").End(xlUp).Row
For tas = 1 To sat
Cells(tas, "B") = Mid(Range("A" & tas).Value, InStr(1, Range("A" & tas).Value, ">", vbTextCompare) + 1, _
InStr(2, Range("A" & tas).Value, "</", vbTextCompare) - InStr(1, Range("A" & tas).Value, ">") - 1)
Next tas
MsgBox "Veriler Parçalandı", vbInformation
End Sub

bu kodu kullanabilirsiniz.

 

[tamer42]

merhaba

bu işinizi görür mü?

=PARÇAAL(A1;BUL(">";A1;1)+1;BUL("<";A1;2)-BUL(">";A1;1)-1)

Sn Uzmanamele aşağıdaki şekilde işimi görüyor,

[color=blue]=MID(A1;FIND(">";A1;1)+1;FIND("/";A1;2)-FIND(">";A1;1)-2)[/color]

yalnız ben bu formülü makro içinde kullanmak istiyorum.

tString=Range("A1").text

bu şekilde aldıktan sonra kodlar yardımıyla sonuca ulaşmak,

teşekkürler,
iyi çalışmalar.