makro ile düşey ara formülü

[marlalı1]

merhaba arkadaşlar ekteki dosyayı incelermisiniz.makro ayın 2 sine kadar düzgün çalışıyor,ayın 2 sinden sonra hesaplamıyor.

 

[marlalı1]

97-2003 formatı

arkadaşlar dosyayı 97-2003 formatında tekrar ekledim

 

[Orion1]

Sizin kaynak verilerinizdeki tarihler tarih değil bir kere metin.Oysa sorgulanan sayfa3 teki C1 hücresi.Yani tarihle metin sorgulanıyor.Bunu excel değil feriştağı gelse bulamaz.Belki yapılır ama uğraşmak gerekir.Bu yüzdenede kodlarada binbir takla atlatmak lazım gelir.Bu kodu muhtemelen ben yazdım.Ama ben nereden bileyim sizin kaynak verilerin olduğu sayfaya tarih yerine metin gireceğinizi.
Şimdi A sütunundaki metin biçiminde girdiğiniz verileri tarih şekline çevirdim.Verileri alıyor.4.9.2009 yaptım listeliyor.
Dosya ekte.Ayrıca önceki dosyaya bakın tarih sütunundaki verileriniz sola yanaşık.Metinler sola yanaşık olur.default olarak.Tarihler ve sayılar sağa yanaşık olur.A sütuna tarihleri metin olarak değilde tarih şeklinde girerseniz kodlar sorunsuz çalışıyor dökm alabilecekdsiniz.
Dosya ektedir.

 

[marlalı1]

hocam çok sağol

 

[marlalı1]

hocam şöyle bir sorun oluştu,ben tarihi userformdan giriyorum.aktarınca giderdeki tarihin altına atıyor fakat sağa yanaşık atıyor tarihi.her zaman girip giderden tarihi sola yaslamammı gerekecek yoksa bir formül yapılabilirmi.

 

[marlalı1]

sola yanasşık atıyor ,herzaman bunu manuel sağa yaslamammı gerekecek yoksa bir kodu varmı bunun

 

[Orion1]

sola yanasşık atıyor ,herzaman bunu manuel sağa yaslamammı gerekecek yoksa bir kodu varmı bunun

Kendi dosyanıza göre ayarlayınız.

Range("A1").value=cdate(textbox1.text)
range("A1").numberformat="dd.mm.yyyy"