Otomatik saati yazdırmak ?

[HD1975]

Merhaba ,

Verileri kaydettiğim bir excel dosyası var.Bu dosyaya ado ile kayıt yapıyorum.
Yani dosya kapalı kullanılıyor.

Sorum şu ;

A sütununa bir veri kaydedildiği zaman I sütunundaki karşılığına otomatik olarak verini kayıt edildiği
saati yazılsın.


Saygılar

 

[kadirdaylight]

bunun hem tarih hem saat versiyonu benimde işime yarar ama bulamadım.. ben commandbutonla kayıt alıyorum aldığım kayıtların yanına tarih ve saati otomatik alsın istiyorum ama olmuyor

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu vermediğiniz için kayıt setinize verdiğiniz ismi göremiyoruz. Basitçe örneklersek aşağıdaki kodu kullanabilirsiniz.

KAYIT_SETİ.Fields(8).Value = Now

Kodda kullanılan 8 değeri "I" sütunudur. Eğer sadece tarih yazdırmak isterseniz "Now" yerine "Date" yazın. Saat içinde "Time" yazıp deneyin.

 

[kadirdaylight]

Dim son, i As Long
If OptionButton3 = False And OptionButton4 = False And OptionButton5 = False And OptionButton6 = False And OptionButton7 = False And OptionButton8 = False And OptionButton9 = False Then Exit Sub
Son_Dolu_Satir = Sheets("700").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
      With Sheets("700")

    Sheets("700").Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("700").Range("A:A")) + 1
 
   .Range("A" & Bos_Satir).Value = ComboBox7
 
.Range("B" & Bos_Satir).Value = ComboBox1

.Range("C" & Bos_Satir).Value = ComboBox3
 
  .Range("D" & Bos_Satir).Value = ComboBox5
  
   End With
Dim obj As Object
For Each obj In Me.Controls
    If TypeName(obj) = "TextBox" Or TypeName(obj) = "ComboBox" Then
        obj.Value = Empty
    End If
Next

End Sub

Kodu ile kayıt alıyorum sizin verdiğiniz kodu tam olarak nereye yazıcam commandbutton click mi?

 

[Korhan Ayhan]

Selamlar,

Sn. kadirdaylight,

Aşağıdaki linkte sorunuza cevap verdim. İncelermisiniz.

http://www.excel.web.tr/showthread.php?p=400359

 

[HD1975]

...

Teşekkür Ederim,korhan Bey ;

Saygılar