Hücreyi tıklamayla tarih atama

[siar]

Merhabalar sıkça aynı işlemi yapmaktayım. Düğme atayarak yaptım ama pratik olmadı. İstediğim hücreyi çift tıkladığımda o günün tarihini o hücreye ataması. Lakin bu sadece A sütunu için geçerli. Teşekkürlerimle

 

[hamitcan]

Sayın Leventm'in bir çalışması vardı bu konuda. Gerçi siz sadece günün tarihini istiyorsunuz ama yine de linki inceleyin, gerçekten görülmeye değer bir çalışma.

http://www.excel.web.tr/showthread.php?t=19365&highlight=TAKV%DDM

 

[Recep İpek]

Aşağıdaki kodları sayfanın VBE bölümüne kopyalabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then
Target = Date
Target.Offset(1, 0).Select
End If
End Sub

 

[siar]

teşekkür ederim, hepinizin ellerine sağlık

 

[CAN60]

selam bende yeni üye oldum ve excel konusunda süper bir site kurmuşsunuz emeği geçenlere teşekkürler.

benim sorunumda tarih sorunu, a ve b kolonlarına farklı günlerde değerler giriyorum. b5 cell ine bir değer girdiğimde c5 celline o günün tarihini atmasını istiyorum. bunu bugün yapmış isem 28/11 olmalı fakat yarın yine c5 28/11 olarak kalmalı.

Not: sn.leventm in tarih exceli bende çalışmadı.

Saygılar.

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.
B kolonuna herhangi bir veri yazdığınızda C kolonuna günün tarihini yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, 1) = Date
Target.Offset(1, 0).Select
End Sub

 

[Levent Menteşoğlu]

Merhaba

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. B sütununda herhangi bir hücreye veri yazdığınızda C sütununa tarihi yazacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Target.Next = Date
End Sub

 

[CAN60]

Tşk.ler bu kodu VBAProject altındaki module1 içine kopyaladım. Fakat excel e dönüp b kolonuna bir sayı girdiğimde c kolonuna tarih atamıyor.
Syg.

 

[Ali]

İlgili sayfanızın sekmesini sağ tuş ile tıklayıp kod görüntüle seçtikten sonra ilgili sayfanın içine kopyalamalısınız modül içine değil.

 

[Recep İpek]

Kodları VBE ekranında soldaki kullanacağınız sayfa ismine çift tıklayıp sağda açılan boş sayfaya kopyalayın.

 

[Ali]

Space tuşuna(aralık çubuğu) basılıp tekrar del tuşu ile seçildiğinde yan sütuna tarih atmaması için aşağıdaki şekilde gibide kullanılabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
On Error Resume Next
If Target <> "" Then
Target.Offset(0, 1) = Date
End If
End Sub

 

[CAN60]

İşte bu Sn.Ali tşk. ederim. Sizin türkçe söylem ile benim ingilizce exceli biraz karıştırdım ama sonunda nereye olduğunu buldum. Yardımlarınız için hepinize teşekkürler. İyi geceler.
Saygılarımla