ay kaç çekiyor

[acar6783]

Merhaba Aşağıdaki kodda neden hata alıyorum bir türlü çözemedim?

ay = Day(WorksheetFunction.Text(CDate(UserForm2.TextBox2), "mmmm"))

Textbox2 ="18.02.2018"
Sonuç olarak 28 çıkması lazım

 

[Ömer BARAN]

Merhaba.
Hücre (A1) üzerinden aşağıdaki şekilde sonuç aldım.
Siz de "UserForm2.TextBox2" şeklinde dener misiniz?

gün = WorksheetFunction.Text(WorksheetFunction.EoMonth(Range("A1"), 0), "dd")

 

[acar6783]

Merhaba.
Hücre (A1) üzerinden aşağıdaki şekilde sonuç aldım.
Siz de "UserForm2.TextBox2" şeklinde dener misiniz?

gün = WorksheetFunction.Text(WorksheetFunction.EoMonth(Range("A1"), 0), "dd")

denedim:
eomonth hatası veriyor

 

[acar6783]

GÜN(OCAK)

En baasitten bu bile işe yararken kodda olmuyor.
Hem ingilizce january olarak hem de türkçe ocak olarak denedim sonucu vermiyor.çok garip

 

[Saban Sertkaya]

Sayfa üzerinde, A1'de tarih varsa.

=GÜN(TARİH(YIL(A1);AY(A1)+1;0))

Ve incelemeniz gereken link,

http://www.excel.web.tr/f47/ay-kac-gun-ceker-t67820.html

 

[acar6783]

Evet bunların hepsini denedim.Sayfada çalışıyor.sorun textboxda çözüme ulaşamıyorum
Misal textbox1 de tarihi gireyim textbox2 ye de o ayın kaç çektiği gelsin.
Ne yaptımsa ulaşamadım.
Aynı formulü makroya uyarladım yine hata verdi anlamadım.Çok basit görünen birşey için saatlerimi harcadım

 

[Saban Sertkaya]

Formül hücrede işe yarıyor ise, orda kullanın. Textbox2'ye 28 değerini hücreden aldırın ???

Örnek dosya;

Link : http://dosya.web.tr/KWXmbR

 

[Korhan Ayhan]

Deneyin...

Tarih = CDate(TextBox1)
Ay = Day(DateSerial(Year(Tarih), Month(Tarih)+1, 0))

 

[Emir Hüseyin Çoban]

Evet bunların hepsini denedim.Sayfada çalışıyor.sorun textboxda çözüme ulaşamıyorum
Misal textbox1 de tarihi gireyim textbox2 ye de o ayın kaç çektiği gelsin.
Ne yaptımsa ulaşamadım.
Aynı formulü makroya uyarladım yine hata verdi anlamadım.Çok basit görünen birşey için saatlerimi harcadım

. . .

Alternatif,

Private Sub CommandButton1_Click()
    tarih = CDate(TextBox1)
    aysonu = WorksheetFunction.EoMonth(tarih, 0)
    TextBox2.Text = Format(aysonu, "dd")
End Sub

 

[acar6783]

Sayın Hüseyin Çoban ;

Budur teşekkürler
Ama enteresan bu eomınth burada nasıl çalıştı hayret

 

[acar6783]

Deneyin...

Tarih = CDate(TextBox1)
Ay = Day(DateSerial(Year(Tarih), Month(Tarih)+1, 0))

Bu da Eomonth desteklemeyen versiyonlar için daha kullanışlı
Teşekkürler Korhan bey
Yalnız bana bu mesaj için bildirim gelmemişti.hatta Diğer mesajlar için de öyle cevap geldimi diye bakarken tevafuken görmüştüm

 

[Saban Sertkaya]

7 nolu mesaj için bildirim aldınız mı ?

 

[acar6783]

7 nolu mesaj için bildirim aldınız mı ?

6dan sonrası yok
Ama mesajı okudum o şekilde aklıma gelmişti ama sürekli sayfalara başvuru zor olurdu
Genel olarak Korhan beyin kodları ise yarıyor.
Hüseyin beyin de yarıyor ama eomonth her versiyonda calismiyor sanırım