• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

tarih sorunu?

  • Konbuyu başlatan Konbuyu başlatan pitsss
  • Başlangıç tarihi Başlangıç tarihi
Katılım
7 Nisan 2007
Mesajlar
124
Excel Vers. ve Dili
office 2003
arkadaşlar kasa defteri tutyorum.ve bu deftere veri girişi yapıyorum. bu veri girişi olunca şu formulu kullanarak =EĞER(A2<>"";ŞİMDİ();"") tarihi otomatik yazdırıyorum.

tarih yazılıyor fakat. mesela yarın veri girişi için exceli açtığımda.dün girmiş olduğum verinin tarihine yine bugunun tarihini yazıyor. bunu nasıl engelleyebilirim.
veri girişi yapınca o günkü tarihi yazsın ama. o tarih bir daha değişmesin.bunu nasıl yapabilrim.
şimddiden herkese teşekkürler.
 
Çok teşekkürler. tam istediğim cevap.
bu arada forumu aramadan soru yazdığım anlaşılıyor :)

arkadaşlar tam istediğim cevap dedim ama sorun çıktı .
bu tarih olayını makrosuz çözebilr miyim?
yada başka bir makro ile olabilr mi?
 
Merhaba.
Tarih hangi sütunda gösterilecek?
Sanırım A sütununa veri girilince başka bir sütuna günün tarihi atanacak!
Bence sizin istediğiniz makro ile çözümlenir.:cool:
 
Form&#252;llerle mant&#305;ksal &#246;nermedeki tarih sabitlenemez. Onun i&#231;in makro gerekir. Say&#305;n AS3434'&#252;n verdi&#287;i Link iyice incelenirse, sorununuz hal olur diye d&#252;&#351;&#252;n&#252;yorum. Kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(0, 1) = Now
End Sub
 
arkadaşlar malesef sorunumaçözümbulamadım.Kitap 12 deki
senet şablonu sayfasında h12 de verildi yazıyor. ve bunların altındaki tıklama kutularına tıklayınca f sütünunda tarihi atıyor. eğer tıklı değilse alınmadı yazıyor. tıklayıncada verildi yazıyor.bunu eğer fonksiyonu ile yaptım.
=EĞER(M13=DOĞRU;ŞİMDİ();"alınmadı")
görüldüğü gibi eğer tıklı ise şimdi() yazacak. ve ben her exceli açınca şimdi yazacağı için. kişinin senetini nezman ödediğini anlayamayacağım.
burada verdiğin z makroyu bu sistemime bir türlü uyarlayamadım. acaba bu zaman makrosunu sistemime uyarlayabilrmiyim?
 
ben benzer bir olay&#305;, program&#305;mda kodlara &#231;ok kafa yormadan pratik olarak &#351;&#246;yle &#231;&#246;zd&#252;m..

&#246;ncelikle &#351;imdi formul&#252;n&#252; A1'e yazd&#305;m.. Sonra a&#351;a&#287;&#305;daki ufac&#305;k kodla A2'ye de&#287;er olarak kopyalad&#305;m.. art&#305;k g&#252;n de&#287;i&#351;sede A2 sabit kalacak..
form&#252;lde de A2'yi kulland&#305;m..
Seninde A1 ve A2 gibi kullan&#305;labilir iki bo&#351; h&#252;cren mutlaka vard&#305;r.. ve form&#252;l&#252;n&#252;
=E&#286;ER(M13=DO&#286;RU;A2;"al&#305;nmad&#305;") olarak d&#252;zeltirsen.. i&#351;lem tamamd&#305;r


Kod:
Range("A1").Select
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

kodu nas&#305;l &#231;al&#305;&#351;t&#305;raca&#287;&#305;n sana kalm&#305;&#351;, program&#305;n&#305;n &#231;al&#305;&#351;ma prensibine g&#246;re senedin &#246;dendi&#287;i bilgisini girdi&#287;in zaman kodu &#231;al&#305;&#351;t&#305;r&#305;rs&#305;n..
 
tesekkur

sizlerden cok sey ogrendik,hala ogrenmeye devam ediyorum ellerinize emeginize saglik tesekkurler emegi gecenlere.
 
Geri
Üst