Çözüldü Formülü koda dönüştürme

lion2577 · 3 Tem 2018

Arkadaşlar merhaba aşağıda yazdığım formülleri ayrı ayrı koda nasıl dönüştürebilirim Yardımlarınızı bekliyorum.

=EĞER(BAĞ_DEĞ_SAY(BUL(" ";A2;BUL(" ";A2)+1))>0;SOLDAN(A2;BUL(" ";A2;BUL(" ";A2)+1)-1);SOLDAN(A2;BUL(" ";A2)-1))

=PARÇAAL(A2;UZUNLUK(B2)+2;UZUNLUK(A2)-UZUNLUK(B2))

Murat OSMA · 3 Tem 2018

Merhaba @lion2577,

Bu şekilde formülün kod karşılığını oluşturmaktansa, dosyanızdaki verilere, yapılacak işleme göre bir kod yazılması daha uygun olacaktır.
Örnek dosyanızı eklerseniz bakalım.

lion2577 · 3 Tem 2018

Öncelikle ilginiz için çok teşekkür ederim. Örnek dosya ekde olup yardımlarınızı bekliyorum.

Murat OSMA · 3 Tem 2018

Bu kodları kullanabilirsiniz.

PHP:

Sub ExcelTurkey()
    Dim i%, ayir
    For i = 1 To Range("A65536").End(3).Row
        ayir = Split(Cells(i, 1).Value, " ")
        Cells(i, "C").Value = ayir(UBound(ayir))
        Cells(i, "B").Value = Replace(Cells(i, 1).Value, Cells(i, 3).Value, "")
    Next i
    i = Empty: Erase ayir
End Sub

lion2577 · 3 Tem 2018

Çok teşekkür ederim. İyiki varsınız

Murat OSMA · 3 Tem 2018

Rica ederiz, iyi günler.

Çözüldü Formülü koda dönüştürme

Daha fazla seçenek

lion2577

Murat OSMA

lion2577

Ekli dosyalar

Murat OSMA

lion2577

Murat OSMA