Şarta Bağlı Olarak Hücreye Geçerli Saati Girsin

[Taz61]

Merhaba.Aşağıdaki resimlerde de anlatmaya çalıştığım şöyle bir sorunum var ...
Formül olan A23 hücresine $0 haricinde (sağdaki resimdeki -85,000$- gibi) herhangi bir değer girilirse ,veri girilir girilmez B8 hücresine o andaki saatii girsin
Not: Resimdeki tablodan onlarcası olacak

 

[Sirius]

Merhaba.Aşağıdaki resimlerde de anlatmaya çalıştığım şöyle bir sorunum var ...
Formül olan A23 hücresine $0 haricinde (sağdaki resimdeki -85,000$- gibi) herhangi bir değer girilirse ,veri girilir girilmez B8 hücresine o andaki saatii girsin
Not: Resimdeki tablodan onlarcası olacak
Ekli dosyayı görüntüle 1

Aşağıdaki VBA (Visual Basic for Applications) kodunu kullanarak bu işlemi gerçekleştirebilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A23")) Is Nothing Then 'A23 hücresinde bir değişiklik olduysa
        If Target.Value <> 0 Then 'A23 hücresindeki değer 0'dan farklıysa
            Range("B8").Value = Now 'B8 hücresine o anki saati gir
        End If
    End If
End Sub

Yukarıdaki kodu aşağıdaki adımları takip ederek Excel dosyanıza uygulayabilirsiniz:

1. Excel dosyanızı açın.
2. İlgili çalışma sayfasını seçin.
3. Klavyeden "Alt + F11" tuşlarına basarak VBA düzenleyicisini açın.
4. Sol taraftaki Proje Gezgini penceresinde, Excel dosyanızın adını taşıyan VBAProjesi (xxx.xls) düğmesini bulun ve üzerine çift tıklayın.
5. Sol tarafta "Bu Çalışma Kitabı" altındaki sayfayı seçin.
6. Sağ taraftaki boş alanda, yukarıda verilen kodu yapıştırın.
7. Dosyayı kaydedin ve VBA düzenleyicisini kapatın.

Artık A23 hücresindeki değer her değiştiğinde, eğer değer 0'dan farklıysa B8 hücresine o anki saatin yazılması sağlanacaktır.