Uzun bir formule kisa yol yapmak

[mesut.ozcanli]

Merhabalar,
Excelde uzun bir formule kisa yol yapmak mumkun mu ?

 

[ÖmerFaruk]

Kullanıcı Tanımlı Fonksiyon yapabilirsiniz.

 

[mesut.ozcanli]

Kullanıcı Tanımlı Fonksiyon yapabilirsiniz.

Ornegin asagidaki formulu nasil yapabilirim


=EĞERHATA(EĞER(ESAYIYSA(A2);TARİH(YIL(A2);GÜN(A2);AY(A2));TARİH(SAĞDAN(A2;4);SOLDAN(A2;BUL("/";A2)-1);SAĞDAN(SOLDAN(A2;UZUNLUK(A2)-5);UZUNLUK(SOLDAN(A2;UZUNLUK(A2)-5))-BUL("/";SOLDAN(A2;UZUNLUK(A2)-5)))));A2)

 

[ÖmerFaruk]

Gerçek ya da olması gereken sorunuz aşağıdakilerden hangisi?

• Kullanıcı Tanımlı Fonksiyon nasıl yapılır? Nasıl çaluştırılır?
• KTF yaparken bu formülü VBA kodlarıyla nasıl yazarım?

 

[YUSUF44]

Aşağıdaki KTF ile olabilir. Kodları bir modüle kopyalayın:

Function tarihle(hucre As Range, Optional ayrac As String = "/")

If IsDate(hucre) Then
    tarihle = DateSerial(Year(hucre), Day(hucre), Month(hucre))
ElseIf hucre <> "" Then
    veri = Split(Trim(hucre), ayrac)
    tarihle = DateSerial(veri(2), veri(0), veri(1))
Else
    tarihle = "HATA"
End If

End Function

Hücredeki kullanımı:

=tarihle(A1)

Eğer /'tan başka bir ayraç varsa bunu belirtebilirsiniz:

=tarihle(A1;".")

gibi

 

[mesut.ozcanli]

Gerçek ya da olması gereken sorunuz aşağıdakilerden hangisi?

• Kullanıcı Tanımlı Fonksiyon nasıl yapılır? Nasıl çaluştırılır?
• KTF yaparken bu formülü VBA kodlarıyla nasıl yazarım?

Merhaba,
sorun aşağıdaki gibidir.
Kullanıcı Tanımlı Fonksiyon nasıl yapılır? Nasıl çaluştırılır?

 

[YUSUF44]

Merhaba,
sorun aşağıdaki gibidir.
Kullanıcı Tanımlı Fonksiyon nasıl yapılır? Nasıl çaluştırılır?

Cevap bir önceki mesajımda mevcut