Ara formülün VBA karşılığı

[endexci]

Merhabalar,

Aşağıdaki şekilde formül var elimde bu formülün vba kodunu yazamadım konu ile ilgili yardımcı olabilecek arkadaşlardan desteklerini rica ediyorum.


PARÇAAL(D2;MİN(BUL({1;2;3;4;5;6;7;8;9};D2&"0123456789"));15)

 

[Korhan Ayhan]

Örnek;

Option Explicit

Sub Test()
    MsgBox Evaluate("MID(""" & Range("D2") & """,MIN(FIND({1;2;3;4;5;6;7;8;9},""" & Range("D2") & """&""0123456789"")),15)")
End Sub

 

[endexci]

Korhan hocam,
Ellerinize sağlık tam istediğim gibi çalıştı.

Örnek;

[kod=kod]
Açık Seçenek

AltTest()
MsgBox Evaluate("MID(""" & Aralık("D2") & """,MIN(BUL({1;2;3;4;5;6;7;8;9},""" & Aralık) ) ) ) ("D2") & """&""0123456789"")),15)")
Aboneliği Bitir[/code]
[/ALINTI]