Formülü KTF'ye çevirme hakkında.

[vardar07]

=PARÇAAL(A1;1;1)&"."&PARÇAAL(A1;MBUL(" ";A1)+1;30)

Formülünü ktf olarak yazmak istedim ancak normal makro yazma mantığı ile aşağıdaki gibi bir şey denedim ama beceremedim.

Function mv(hücre As Range, a As Range)
a = hücre.Address
b = Mid(a, 1, 1) & "." & Mid(a, WorksheetFunction.Search(" ", a) + 1, 30)
  mv = b
End Function

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi sonuç alınabiliyor.
.

[B]Function mv(hücre As Range)[/B]
[COLOR="Blue"]If hücre <> "" Then mv = Mid(hücre, 1, 1) & "." & Mid(hücre, WorksheetFunction.Search(" ", hücre) + 1, 30)[/COLOR]
[COLOR="Red"]If hücre = "" Then mv = ""[/COLOR]
[B]End Function[/B]

NOT: Sadece mavi kısım kullanılırsa ve hedef hücre boşsa, sonuç 0 (sıfır) oluyor.
Hedef hücre boşken sonucunda boş olması için kırmızı satırın da kullanılması halinde sonuç alınabiliyor.
.

 

[vardar07]

Ömer bey bende malesef değer hatasını veriyor.

 

[Ömer BARAN]

Önceki cevabımı güncelledim.

 

[vardar07]

Teşekkürler işlem tamamdır.

 

[Ömer BARAN]

Teşekkürler işlem tamamdır.

Eyvallah.
Kolay gelsin.
.