günün tarihinden bir gün öncesini alma

[eremcem]

Yazdığım bir makronun içinde tarih almam gerekiyor.Bu tarih ay yıl ve gün olarak çıkmalı ve günün tarihinden 1 gün öncesini vermeli Pazartesi gününe geliyorsa Cumartesi pazarı almadan Cuma gününün tarihini vermeli.
Yardımlarınız için şimdiden teşekkür ederim

 

[zafer]

Merhaba



Sub tar()
eskigun = Date - 1
If Weekday(eskigun, 2) = 7 Then Cells(1, 1) = eskigun - 2 Else Cells(1, 1) = eskigun
End Sub

 

[eremcem]

teşekkürler tam istediğim gibi oldu

 

[emrexcel123]

al bi de burdan

bak bakalım bu nasıl

 

[eremcem]

arkadaşlar bu formül ile gün pazartesi olunca cumayı alamıyorum.istediğim günün 1 gün öncesini getirsin eğer gün pazartesiye geliyorsa cumanın tarihini getirsin.formul ile bugün 09/02/2007 tarihini elde etmem lazım yarın ise 12/02/2007 tarihini getirmeli.

Yardımlarınızı bekliyorum

 

[zafer]

Merhaba

Aşağıdaki makro yanlış günmü getiriyor.
Sub tar()
eskigun = Date - 1
If Weekday(eskigun, 2) = 7 Then Cells(1, 1) = eskigun - 2 Else Cells(1, 1) = eskigun
End Sub


Formül istiyorsanız

=IF(WEEKDAY(TODAY()-1;2)=7;TODAY()-3;TODAY()-1)

 

[eremcem]

eskigun = Date - 1
If Weekday(eskigun, 2) = 7 Then
Cells(1, 1) = eskigun - 2
Else
Cells(1, 1) = eskigun
End If

ben böyle yazdım bu gün pazartesi programı çalıştırınca cumayı vermiyor bana :(

 

[zafer]

Merhaba

siz tarihi hangi hücreye yazdırıyorsunuzda vermiyor.
verilen kodlara göre aktif sayfanın A1 hücresine yazar.

 

[eremcem]

arkadaşım sheets yazmadığım için olmamış

eskigun = Date - 1
If Weekday(eskigun, 2) = 7 Then
Sheets("mail").Cells(satir, 5) = eskigun - 2
Else
Sheets("mail").Cells(satir, 5) = eskigun
End If

şeklinde yazınca oldu )


teşekkürler