-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
TARİH AT BUTONU
- Konbuyu başlatan turkanet
- Başlangıç tarihi
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sorunuzu biraz daha açarmısınız?
yani, A1 hücresine dd:mm:yyyy formatlı bugünün tarihini yazacak düğmenin koduna ihtiyacım var. hücreye direk "=bugün() yazamamamın nedeni, o hücrenin o tarihi bir defalık alması gerektiği ve sonra tekrar bu belgeyi açtığımda, hücrenin o günkü verilmiş tarihi göstermesi gerektiğidir. umarım anlatabildim.
teşekkürler.
teşekkürler.
Ãunu bir deneyin sayın @turkanet...
[vb:1:33e7ee5668]Sub Makro1()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub[/vb:1:33e7ee5668]
[vb:1:33e7ee5668]Sub Makro1()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub[/vb:1:33e7ee5668]
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Alternatif olarak dosyanız açıldığındaki aşağıdaki kod ile A1 hücresine günün tarihini yazdırabilirsiniz.
[vb:1:d891db55d8]Sub auto_open()
[a1] = Format(CLng(Date), "dd mmmm yyyy")
End Sub
[/vb:1:d891db55d8]
[vb:1:d891db55d8]Sub auto_open()
[a1] = Format(CLng(Date), "dd mmmm yyyy")
End Sub
[/vb:1:d891db55d8]
HEPİNİZ MÜKEMMELSİNİZ, ÇOK TEÃEKKÜR EDERİM. FATURALARDA HEP SORUN OLUYORDU. ÃİMDİ DÜZELDİ. MİNNETTARIM... :hey: :dua: 
ost: :dua2: :fircala: :gidiyorum: :mutlu: :hayir: :yazici: :lolipop :arkadas: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo:
ost: :dua2: :fircala: :gidiyorum: :mutlu: :hayir: :yazici: :lolipop :arkadas: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: