makroyla metne çevir formulunu nasıl kullanmalıyım?

[Selçuk1]

selamlar;

aşağıda bir kısmını gönderdiğim kodlar ile eğer sorgulaması yapıyorum ve verileri listeme alıyorum.

If b = 0 Then
sonsat = s1.[a65536].End(3).Row + 1
s1.Cells(sonsat, 1) = sonsat - 1
s1.Cells(sonsat, 2) = S2.Cells(5, 1)
s1.Cells(sonsat, 3) = S2.Cells(24, 4)
s1.Cells(sonsat, 4) = s3.Cells(24, 4)

End If

ancak buraya küçük bir ekleme yapmak istiyorum. sonsat satırının 5nci sütununa (yani

s1.cells(sonsat,5)= ....

) metne çevir formulü koymak istiyorum.
(=metneçevir(a5;"aa") ) formulunü, bir başka deyişle s2.cells(5,1) hücresindeki tarihi ay formatında 5nci sütunda görmek istiyorum.. :???::???::???:

nasıl yapmalıyım?? değerli yardımlarınız bekliyorum ..

saygılar...

 

[Selçuk1]

sayın üstadlar;

halen soruma çözüm arıyorum ancak başarabilmiş değilim.

kodu

s1.Cells(sonsat, 5) = "=TEXT(RC[-3],""aa"")"

şeklinde yazdığımda hücreye formul yazıyor ve formul doğru çalışıyor ancak bu işlemden sonra başka bir makro yardımıyla sorgulama yapacağım için hücreye formul değil doğrudan değeri yazmasını istiyorum. yani tarih 22.12.2006 ise söz konusu hücreye doğrudan "12" yazacak. çünkü diğer makro 5nci sütunda 12 değerini arıyor ve bulduğu satırları başka bir listeye aktarıyor.

başka ne yapabiliriz??

 

[Selçuk1]

sorunumu çözdüm değerli arkadaşlarım..
kendi sorumu cevaplamak istedim:mrgreen::mrgreen:, belki daha sonra başkalarına lazım olabilir:

s1.Cells(sonsat, 5) = WorksheetFunction.Text(s2.Cells(5, 1), "mm")

 

[Levent Menteşoğlu]

Aşağıdaki gibide çözebilirsiniz.

s1.Cells(sonsat, 5) = month(s2.Cells(5, 1))