Textboxta Kıdemi bulmak

[asterix1234]

Merhaba,

Textbox1: personelin işe girdiği tarih bulunmakta
Textbox2: personelin kıdemi burada gözükecek

commandbuton1' e basılınca personelin kıdemi Textbox2' de gözükecek bunu yapmaya çalışıyorum, sorum bununla ilgili.. (fakat bugünün tarihini formülde kullanmalıyız TODAY() gibi.... )


Örnek: Commandbuton1' e basılınca
Textbox3 = Format((TODAY() - TextBox1) /365), "0.00") gibi bunu command butonda nasıl kullanırız ??

Teşekkürler


Not. Bugünün tarihi benim formumun hiç bir yerinde yok bu sebeple formülde kullanmalıyız....

 

[Ayhan Ercan]

Merhaba

Aşağıdaki gibi deneyiniz...

TextBox2 = DateDiff("yyyy", TextBox1, Date)

 

[asterix1234]

Formüllerin hücre bazında vba da kullanımı

Merhaba

Aşağıdaki gibi deneyiniz...

TextBox2 = DateDiff("yyyy", TextBox1, Date)

Hocam Ellerinize sağlık, harika oldu

Bir sorum daha var hocam, 2 sayfada baya bir formüllerim var if, vlookup, sumproduct gibi bunlar userformumda bir işlem yaparken (kaydet,sil gibi) okadar çok ağırlaştırıyorki çözüm olarak excelde özelliklerde hesaplama özelliğini manuel olarak yapıyorum bu seferde güncelleme olmuyor nasıl yapsamda bu formüller yerine kod yazsam forumda aratıyorum ama sonuç alamıyorum.

Örnek ;

A2 hücresi formülü :

SUMPRODUCT((Bilgiler!$A$2:$A$65536=List!$A$1)*(Bilgiler!$K$2:$K$65536=List!$D$15)*(Bilgiler!$GY$2:$GY$65536=List!$N$1))+Q3

benzer örnek B5 hücresi,

IF(ISERROR(+O24/($C$24+$D$24+$E$24+$F$24+$G$24+$H$24+$I$24+$J$24+$K$24+$L$24+$M$24+$N$24+$O$24+$P$24+$Q$24+$R$24)*100);"";+O24/($C$24+$D$24+$E$24+$F$24+$G$24+$H$24+$I$24+$J$24+$K$24+$L$24+$M$24+$N$24+$O$24+$P$24+$Q$24+$R$24)*100)

gibi ben bunları hücreler bazında nasıl vba ya taşırım.... (Benim İçin Çok Önemli Bir soru )