Hücre içindeki sayıları metinden bağımsız toplama

[sryilmaz]

Üstadlar merhaba,

A1 hücremde 20x45° bilgisi bulunmakta
A2 hücremde ise 2x5°
A3 hücremde 4x8° bilgileri bulunmakta.

İstediğim şey A4 hücresinde 20+2x45+5 işlemi yapılsın sonu. 22x50° olarak gözüksün
Aynı şekilde A5 hücremde 20-4x45-8 işlemi yapılsın sonuç 16x37° olarak gözüksün

Yardımcı olacak kişileri bekliyorum. isterseniz örnek dosyada koyabilirim.

 

[dEdE]

Merhaba,
Aşağıdaki kodları sayfanın kod bölümüne yazarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A3]) Is Nothing Then Exit Sub
myDer = Right(Cells(1, 1), 1)
myArr1 = Split(Cells(1, 1), "x")
myArr2 = Split(Cells(2, 1), "x")
myArr3 = Split(Cells(3, 1), "x")
    x1 = CInt(myArr1(0))
    x2 = CInt(Mid(myArr1(1), 1, Len(myArr1(1)) - 1))
    y1 = CInt(myArr2(0))
    y2 = CInt(Mid(myArr2(1), 1, Len(myArr2(1)) - 1))
    z1 = CInt(myArr3(0))
    z2 = CInt(Mid(myArr3(1), 1, Len(myArr3(1)) - 1))
    Cells(4, 1) = (x1 + y1) & "x" & (x2 + y2) & myDer
    Cells(5, 1) = x1 - z1 & "x" & x2 - z2 & myDer
End Sub

 

[İdris SERDAR]

.

Birincisi için:

=LEFT(A1; SEARCH("x";A1)-1)+LEFT(A2; SEARCH("x";A2)-1)&"x"&LEFT(RIGHT(A1;LEN(A1)-SEARCH("x";A1)); LEN(RIGHT(A1;LEN(A1)-SEARCH("x";A1))) - 1)+LEFT(RIGHT(A2;LEN(A2)-SEARCH("x";A2)); LEN(RIGHT(A2;LEN(A2)-SEARCH("x";A2))) - 1)&"°"

İkincisi için:

=LEFT(A1; SEARCH("x";A1)-1)-LEFT(A3; SEARCH("x";A3)-1)&"x"&LEFT(RIGHT(A1;LEN(A1)-SEARCH("x";A1)); LEN(RIGHT(A1;LEN(A1)-SEARCH("x";A1))) - 1)-LEFT(RIGHT(A3;LEN(A3)-SEARCH("x";A3)); LEN(RIGHT(A3;LEN(A3)-SEARCH("x";A3))) - 1)&"°"

formüllerini kullanabilirsiniz.

Dosya ekte.

.

 

[Korhan Ayhan]

Alternatif..

Ofis 365 için..

A4;

=TOPLA(--ÖNCEKİMETİN(A1:A3;"x")*{1\1\0})&"x"&TOPLA(--SONRAKİMETİN(YERİNEKOY(A1:A3;"°";"");"x")*{1\1\0})

A5;

=TOPLA(--ÖNCEKİMETİN(A1:A3;"x")*{1\0\-1})&"x"&TOPLA(--SONRAKİMETİN(YERİNEKOY(A1:A3;"°";"");"x")*{1\0\-1})

 

[sryilmaz]

.

Birincisi için:

=LEFT(A1; SEARCH("x";A1)-1)+LEFT(A2; SEARCH("x";A2)-1)&"x"&LEFT(RIGHT(A1;LEN(A1)-SEARCH("x";A1)); LEN(RIGHT(A1;LEN(A1)-SEARCH("x";A1))) - 1)+LEFT(RIGHT(A2;LEN(A2)-SEARCH("x";A2)); LEN(RIGHT(A2;LEN(A2)-SEARCH("x";A2))) - 1)&"°"

İkincisi için:

=LEFT(A1; SEARCH("x";A1)-1)-LEFT(A3; SEARCH("x";A3)-1)&"x"&LEFT(RIGHT(A1;LEN(A1)-SEARCH("x";A1)); LEN(RIGHT(A1;LEN(A1)-SEARCH("x";A1))) - 1)-LEFT(RIGHT(A3;LEN(A3)-SEARCH("x";A3)); LEN(RIGHT(A3;LEN(A3)-SEARCH("x";A3))) - 1)&"°"

formüllerini kullanabilirsiniz.

Dosya ekte.

.

Hocam çok teşekkür ederim istediğim gibi oldu ellerinize sağlık.

 

[Gata]

HOCAM BU KOD ÇALIŞMIYOR YARDIMCI OLURMUSUNUZ