Soru Formullerimi makro haline getirmede yardım.

[td877]

Arkadaşlar merhaba,

Bir başka programdan çektiğim veriler şu şekilde:

80/225\Ph=00
80/225\Ph=00
80/225\Ph=00
ALP3 45/60
h=165cm
\p/sm0,75,qc;51/128\Ph=00

Burada "/" işaretinin solunda ve sağında olan maksimum 3 hane olan rakamları, sol kısım "en", sağ kısım "boy" olarak ayırıp bunları çarptırıp bir m² alanı buldurduğum bir excel dosyam var. (KİLİT NOKTA "/" İŞARETİ)

Kısa bir örnek:
80/225\Ph=00 → 80/225 → en 80 boy 225

Formulleri yine buradan aldığım yardımlarla yazdım. Gel görki çok fazla kasma yaptığı için bunu makro haline getirmek istiyorum ve yardımlarınızı bekliyorum.

Örnek dosyam ektedir.

 

[hamitcan]

Böyle deneyin. Sayfadaki formüller üzerinden hareket ettim.

Sub Makro1()
'Formül1
   [b3] = _
        "=IFERROR(IFERROR(LEFT(RC[-1],FIND(""\"",RC[-1])-1),RIGHT(RC[-1],LEN(RC[-1])-FIND("" "",RC[-1]))),RC[-1])"
'Formül2
   [c3] = _
        "=VALUE(IFERROR(LEFT(RC[-1],FIND(""/"",RC[-1])-1),""0,00""))"
'Formül3
  [d3] = _
        "=VALUE(IFERROR(RIGHT(RC[-2],LEN(RC[-2])-FIND(""/"",RC[-2])),""0""))"
'Formül4
     [e3] = "=(RC[-2]*RC[-1])/10000"
  
  
    Range("b3:e" & [a65536].End(3).Row).Copy
    Range("b3:e" & [a65536].End(3).Row).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[td877]

Sayın hamitcan harika olmuş çok teşekkür ederim.