AYIN SON GÜNÜ

[yexcel]

EKLENEN HER ÇALIÞMA SAYFASINDA BÃ?YLE BİR SORUN OLURMU ÇÜNKÜ DİÐER SAYFALARDA FORMÜL OTOMATİK İÞLİYO

 

[Levent Menteşoğlu]

Formüllerle ve koşullu biçimlendirme ile yapmak mümkün ve kolay iken neden makroyu istiyorsunuz? Ayrıca makro içinde her hücredeki tarih hesaplarını yaptırmak için bir sürü döngü kurmak gerekir. Bence formüller ve koşullu biçimlendirme sizin örneğiniz için çok çok iyi.

 

[yexcel]

leventm, ÇALIÞAN PERSONEL SAYISI FAZLA OLDUÐUNDAN MAKRONUN ÇÃ?ZÜMÜNÜN DAHA İYİ OLACAÐI KANATİNDEYİM BU YÜZDEN MAKRO ÇÃ?ZÜMÜ İÇİN KAFAYI YORUYORUM ASLINDA YENİ BAÞLIKLA AÇTIÐIM FORMDA BUNU YAZDIM İNÞAALAH ÇÃ?ZÜME BAÞLAR VE BİTİRİRİZ

 

[class37]

Merhaba
Kodu yazdığınız hücre biçimini gggg yaparsanız sorun çözülür sanırım.

 

[class37]

Merhaba
Yukarıdaki dosya üzerindeki formüllerde ve sayfa yapısında biraz değişiklik yaptım.İyiçalışmalar.

 

[hsayar]

Sayın yexcel a1 hücresine tarih girin, ve hangi hücrede görüntülemek istiyorsanız oraya yapıştırın. Sorun yok ben denedim.



Sayın arkadaşlar
=TARİH(YIL(A4);AY(A4)+1;1)-1
bunu kullanıcı tanımlı fonksiyon yapamazmıyız?
AyınSongunu(Tarih) şeklinde
Saygılarımla

 

[hsayar]

Birilerinin işine yarayabileceği umuduyla
vba da bir modül ekleyin ve yapıştırın hayırlı günler.

Function ilkgün(tarih)
ilkgün = Format(tarih - Day(tarih) + 1, "dd/mm/yyyy")
End Function

Function songün(tarih)
songün = Format((DateSerial(Year(tarih), Month(tarih) + 1, 1)) - 1, "dd/mm/yyyy")
End Function

 

[Ahmet1982]

A1 e tarih yazın A2 de sonuç yazılacaktır.

Sub Ayin_Sonu()
Dim z As Integer
Dim y As Range
For z = 1 To 10
For Each y In [A1:C10]
Cells(2, 1) = DateAdd("d", -1 * Format([A1], "dd"), DateAdd("m", 1, [A1]))
Next y, z
On Error GoTo 45
On Error Resume Next
z = 0
y = 0
Exit Sub
45 End Sub

 

[hsayar]

Sub Ayin_Sonu()
Dim z As Integer
Dim y As Range
For z = 1 To 10
For Each y In [A1:C10]
Cells(2, 1) = DateAdd("d", -1 * Format([A1], "dd"), DateAdd("m", 1, [A1]))
Next y, z
On Error GoTo 45
On Error Resume Next
z = 0
y = 0
Exit Sub
45 End Sub

bunu anlamadım?

 

[BeyazGölge]

hsayar, teşekkürler gerçektende süper bir komut. Sağolasın

Bu arada bu topic gündeme gelsinde arkadaşlar faydalansın



Not : Uzun zamandan beridir foruma katılımcı olarak giremiyorum. Bu işlerimin umduğu gibi gitmeyip yön değiştirmesinden kaynaklandı. Sizleri unutmadım umarım benide hatırlayan çıkar

 

[Levent Menteşoğlu]

Not : Uzun zamandan beridir foruma katılımcı olarak giremiyorum. Bu işlerimin umduğu gibi gitmeyip yön değiştirmesinden kaynaklandı. Sizleri unutmadım umarım benide hatırlayan çıkar

Sn Beyazgölge

Aramıza tekrar hoşgeldiniz. Sizin gibi eski dostları unutmak elbette mümkün değil. Umarım bundan sonra forumumuzda sizi daha sık görürüz.

 

[etf]

EoMonth(A1;0)

EoMonth(A1;0) diye bir formül kullanıyorum. A1 hücresine ayın ilk günü yazıldığında(gg.aa.yyyy) otomatik olarak ayın son gününü veriyor.
Nacizane belki katkım olur.....