Userformda commandbutonla tarih ve saat

[kadirdaylight]

Merhaba arkadaşlar, userformdaki verileri command butonla kayıt altına bir sayfaya alıyorum ama bu kayıtların yanına tarihi ve saati otomatik atmak istiyorum. Kodunda yardımcı olabilirmisiniz? (tarih ve saat tanımlı hücrelere yollanıcak)

 

[Korhan Ayhan]

Selamlar,

Kayıt kodlarınızı vermediğiniz için tahmini cevap yazıyorum. Kendinize uyarlarsınız.

Sheets("Data").Cells(Satır, "F") = Date
Sheets("Data").Cells(Satır, "G") = Time

 

[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

Vari kaydını bu kodlarla yapıyorum bunlara uygunmudur acaba verdiğiniz kod? buradaki C ve D sütunlarına tarihi ve saati otomatik almak istiyorum. Bunun yanısıra optionbutton lar var her biri ayrı sayfa için onlara da tiklediğimde o sayfaya kaydetsin istiyorum dosyamı bi sonraki msjda yollayabilirim?

 

[Korhan Ayhan]

Selamlar,

Gördüğünüz gibi kodları vermediğiniz için gereksiz yere konu uzuyor. İlk mesajınızda kodu verseydiniz. Alacağınız cevap ihtiyacınızı karşılayacaktı.

Aşağıdaki koddan sonra kırmızı renkli satırları ekleyip deneyin.

E sütununa tarihi, F sütununada saati yazar.

...
.Range("D" & Bos_Satir).Value = ComboBox5
[COLOR=red].Range("E" & Bos_Satir).Value = Date[/COLOR]
[COLOR=red].Range("F" & Bos_Satir).Value = Time[/COLOR]
...

 

[kadirdaylight]

Örnek

Genel Kimya2 kısmı çalışmamız.. şifre sistem saati 00:10 gibi

açıldığında tarih ve saat kısmı görüceksiniz ben onları kaldırıp tarihi ve saati kaydet butonu ile ilgili yerlere kaydetmek istiyorum.

 

[kadirdaylight]

teşekkür ederim tarih ve saat olayını çözdüm sayenizde şimdi sırada diğer konu var sizden ricam "optionbutton ile kayıt yeri belirleme" başlığındaki 10. mesajımı okurmusunuz?

 

[yldz kyroglu]

Exelde tarih atama

Slm arkadaşlar ben bi türlü cvp alamyorum.
Exeli kullanmaya yeni başladım ve cari hesap sayfasından çıktı almak istediğimde otomaitik tarih atılmasını istiyorum. Ama ben sizin yazdıklarınızı denedim olmadı bi yard. Olabiklir misiniz???