değişen sayıların karşılığına tarih saat yazma hk;

[orange4609]

Merhabalar,
d sutunun her hangi bir satırındaki sayıların değiştiğinde g sutunundaki değişen hücrenin karşısına tarih saat yazılmasını nasıl yapabiliriz?

**belirtilen kod sadece bir satırda işlem görüyor.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target = Cells(1, 4) Then Cells(1, 7) = Now
End Sub 'alternatif ŞİMDİ() or Bugün or Time

Tşkler.
iyi günler.


http://www.dosya.tc/server23/H3LKmP/Kitap1.xls.html

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    
    If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
    
    Cells(Target.Row, "G") = Now
    
End Sub

.

 

[orange4609]

tşkler.

iyi günler

 

[mrcylmz_61]

Ömer bey ctrl+shift+; ile güncellenmeyen tarih oluşturuyorum. bunu (ctrl+shift+; ) basic kod sayfasında kodlayarak bir hücreye atmam mümkün mü?

 

[mrcylmz_61]

yardım edecek yok mu?

 

[Ömer]

Merhaba,

Sorunuzu tam olarak anlayamadım, daha detaylı açıklarmısınız.

 

[Murat OSMA]

Acaba şu kod işinizi görebilir mi ? :dusun:

Sub Emre()
    Dim evn As Object
    Set evn = CreateObject("Wscript.Shell")
    [A1].Select: Selection.Value = evn.SendKeys("^+;")
    Set evn = Nothing
End Sub

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub TarihYaz()
With ActiveCell
    .Formula = "=TODAY()"
    .Value = .Value
End With
End Sub

Not: Sayın Osma, sizin kodları görmemiştim.

 

[mrcylmz_61]

hocalarım benim sorumun cevabı var mı burda varsa ben anlayamadım kusura bakmayın ,

 

[Murat OSMA]

Not: Sayın Osma, sizin kodları görmemiştim.

Rica ederim Sn. dEdE, hiç önemli değil. k::

Hoşça kalın !!!

 

[dEdE]

Sayın mrcylmz_61,
Ekli dosyayı inceler misiniz?

 

[mrcylmz_61]

sayın dEdE çok teşekkür ederim . ben basic de yeniyim kusura bakmayın zahmet veriyorum.

benim birde 2. bir sorum vardı
fare bir nesnenin üzerine gelince o nesneye atıyorum label olsun , efekt veriyorum. daha sonra fare userform üzerine gelince yada başka bir nesne buton vs. üzerine gelince efekt verdiğim label ilk haline gelsin istiyorum. bunu her nesnede diğer nesnenin ilk halini kodlayarak yapabiliyoru ama giderek karmaşık bir hal alıyor. kolay bir yolu var mıdır?
mesela sub_mousemove(...) üzerindeyken işlem yaptığı gibi üzerinde değilken işlem yapan bir fonksiyon var mı? anlatabildim mi bilmiyorum?

 

[dEdE]

Merhaba,
2. sorunuzun konu başlığı ile ilgisi yok.
Lütfen önce konu ile ilgili arama yapınız.
Sorunuzu
-yeni bir konu açarak,
-konu başlığını sorunuzu özetleyecek biçimde düzenleyerek ve
-örnek dosya ile destekleyerek sorarsanız daha çabuk yanıt alırsınız.

 

[mrcylmz_61]

hocam aşağıda ki başlık altında sorumu yeniledim mazur görün kendimi kastığım bir program var görseline önem verdiğim biraz heyecanı var üzerimde , şimdiden teşekkürler.
Buton Uzerinde Mouse Efekti Olusturma – Mouse_move

 

[mrcylmz_61]

Sub düğme2_tıklat()

Dim h As Integer 'GİRİŞ TARİH VE SAATİ YAZDIRIYORUM.
Dim evn As Object
For h = 8 To 10000
If Sayfa5.Cells(2, h) = 0 Then
Set evn = CreateObject("Wscript.Shell")
Sayfa5.Cells(2, h).Select: Selection.Value = evn.SendKeys("^+;") & evn.SendKeys("^+:")
Set evn = Nothing
GoTo 12345
End If
If h = 10000 Then
MsgBox ("Hata (0002) : Hata kodu ile yöneticiye başvurunuz.")
Unload UserForm1
Application.Quit
End If
Next h
12345 'GİRİŞ TARİH VE SAATİ YAZDIRIYORUM.
End Sub

Ömer bey yukarıda ki kodu excel sayfasına koyduğum bir butona atıyorum çalışıyor. ama userform1 aktif olunca çalışsın istiyorum olmuyor. ilgili hücreyi bulup select ediyor ama tarih ve saati yazmıyor nedendir? birde tarih ve saat arasına "-" koyuyorum yinede birleşik çıkıyor. sorun ne olabilir?

 

[mrcylmz_61]

--------------------------------------------------------------------------------
Sub düğme2_tıklat()

Dim h As Integer 'GİRİŞ TARİH VE SAATİ YAZDIRIYORUM.
Dim evn As Object
For h = 8 To 10000
If Sayfa5.Cells(2, h) = 0 Then
Set evn = CreateObject("Wscript.Shell")
Sayfa5.Cells(2, h).Select: Selection.Value = evn.SendKeys("^+;") &"-"& evn.SendKeys("^+:")
Set evn = Nothing
GoTo 12345
End If
If h = 10000 Then
MsgBox ("Hata (0002) : Hata kodu ile yöneticiye başvurunuz.")
Unload UserForm1
Application.Quit
End If
Next h
12345 'GİRİŞ TARİH VE SAATİ YAZDIRIYORUM.
End Sub

korhan bey yukarıda ki kodu excel sayfasına koyduğum bir butona atıyorum çalışıyor. ama userform1 aktif olunca çalışsın istiyorum olmuyor. ilgili hücreyi bulup select ediyor ama tarih ve saati yazmıyor nedendir? birde tarih ve saat arasına "-" koyuyorum yinede birleşik çıkıyor. sorun ne olabilir?

 

[Korhan Ayhan]

Merhaba,

Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklar mısınız? Bu şekilde birşey anlaşılmıyor.

 

[mrcylmz_61]

koray bey ekli dosyada problem yaşadığım kodlar var. butonun yaptığı işi form yüklenince yaptıramıyorum birde araya tire koymama rağmen tire gelmiyor.

 

[Korhan Ayhan]

Merhaba,

Formu açan butondaki kodu aşağıdaki gibi düzenleyip deneyin.

Sub form()
    Cells(2, Columns.Count).End(1)(1) = Now
    UserForm1.Show
End Sub

Formunuzdaki kodu silebilirsiniz...

 

[mrcylmz_61]

Korhan bey ilgili kodlamayı yaptım ama sonuç olarak düzenli çalışan bir sonuç vermedi . Kodlama çok kararsız çalışıyor ilgisi olmayan hücreye tarih atıyor arada ki tireyi sonra ki hücreye atıyor vs. gibi sorunlar çıktı. ben mi bir hata yapıyorum anlayamadım. dosya ekte bakmanız mümkün müdür?