• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre degeri girildiginde yan hücreye data vee?

E

Etamustafa

Katılım
12 Kasım 2016
Mesajlar
131
Excel Vers. ve Dili
Excel 2016
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A65536]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

Yukarıda ki kod bilen biler A1:A65536 deger girildigin zaman b sutunu tarih ve saat giriyor buraya kadar tamam.. Sorun A hücresinde degeri silince b hücresinde tarih silinmiyor sitede bazı arkadaşlar tarif etmişler ama bu kodun devamı olmadıgı icin anlayamadım. Yardımcı olursanız sevinirim.
 
(Code)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A65536]) Is Nothing Then
if Target.value ="" Then
""
else
Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")
End If
End Sub
(/code)
 
Merhabalar;
Sn. askm'nin müsaadesi ile; kodu şu şekilde güncelleyiniz.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A65536]) Is Nothing Then
If Target.Value = "" Then
Cells(Target.Row, "B") = ""
Else
Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")
End If
End If
End Sub
Hayırlı geceler, iyi çalışmalar.
 
tamam bunda sorun yok sorun!!

askm' Alıntı:
Modüle yazmamanız gerek.
Genişletmek için tıkla ...
İlgin için teşekkür ederim tarih sorununu hallettik aşimdi ki sorun degeri space tuşu ile sildigimde tarih gitmiyor ancak sil demem lazım girdigim degeri o zaman tarih gidiyor ama buda butun sutunları karıştırıyor.
Kısacası deger girdigim zaman tarih yazsın degeri space tuşu sildigimde tarih silinsin istiyorum mümkünse. Not: Tarih yazan sutunu kilitleyecegiz onun için silme a sutununda olmalı
 
Space tuşu veriyi silmez. Veri yerine boşluk karakter ekler. Bu da sayfaya boş yere boyut ekler.
 
EVet haklısın ama ne alışkanlıktır space tuşunu kısadan veri silmek için kullandıgım el alışkanlıgı.
içerigi temizle ve del tuşunu kullandıgın zaman tamamıyla gidiyor. yardımlarınız için eşekkürler
 
acaba neden sorun yaratıyor

faye_efsane' Alıntı:
Merhabalar;
Sn. askm'nin müsaadesi ile; kodu şu şekilde güncelleyiniz.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A65536]) Is Nothing Then
If Target.Value = "" Then
Cells(Target.Row, "B") = ""
Else
Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")
End If
End If
End Sub
Hayırlı geceler, iyi çalışmalar.
Genişletmek için tıkla ...

Arkadaşım verdigin kod güzel çalışıyor ama bu kodu iki kere farklı hücreler için kullanmak istiyorum ama her defasında hata veriyor. Yazmış oldugunuz kod a sutununa girilen deger oldugu zaman B sutununa tarih atıyor ok. O sutununa deger yazdıgım zamanda tarih ve saat yazsın diyorum ama hata veriyor. Acaba iki kodu birleştirmemiz mi lazım hata neden veriyor anlamış degilim, kod işine pek bilmediğimizden de olabilir
 
Son düzenleme:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E7:E38]) Is Nothing Then
Cells(Target.Row, "D") = Format(Now, "dd/mm/yyyy - hh:mm")
End If
If Not Intersect(Target, [O7:O38]) Is Nothing Then
Cells(Target.Row, "P") = Format(Now, "dd/mm/yyyy - hh:mm")
End If
End Sub

Araştırma sonucu kodu buldum ama hücre degerini silsem bile tarih silinmiyor yardımcı olursanız
 
Merhabalar;
Bu şekilde ilgili hücreler boş olduğunda, tarih yazan hücrelerdeki verilerde silinir.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E7:E38]) Is Nothing Then
If Target.Value <> "" Then Cells(Target.Row, "D") = Format(Now, "dd/mm/yyyy - hh:mm")
If Target.Value = "" Then Cells(Target.Row, "D") = ""
End If
If Not Intersect(Target, [O7:O38]) Is Nothing Then
If Target.Value <> "" Then Cells(Target.Row, "P") = Format(Now, "dd/mm/yyyy - hh:mm")
If Target.Value = "" Then Cells(Target.Row, "P") = ""
End If
End Sub
 
şöyle bir hata averiyor hücre degerlerini degiştirdigim zaman

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E7:E38]) Is Nothing Then
If Target.Value <> "" Then Cells(Target.Row, "D") = Format(Now, "dd/mm/yyyy - hh:mm")
If Target.Value = "" Then Cells(Target.Row, "D") = ""
End If
If Not Intersect(Target, [a41:a71]) Is Nothing Then
If Target.Value <> "" Then Cells(Target.Row, "L") = Format(Now, "dd/mm/yyyy - hh:mm")
If Target.Value = "" Then Cells(Target.Row, "L") = ""
End If
End Sub

ikinci konutu satırını degiştirince
a41:a71 L HÜCRESİ diye degiştirince yazmaya yazıyor ama silme kısmına gelince hata veriyor ama orjinal hali ile kullanılırsa hata vermiyor.
yardımcı olursanız sevinirim
 

Ekli dosyalar

Son düzenleme:
Merhabalar;
Dosya indirme yetkim olmadığını için eklediğiniz dosyaya bakma imkanım yok.
Ancak değiştirdiğiniz şekilde de denedim, hata vermiyor.
 
Merhaba.

Aşağıdaki gibi deneyin. Kodunuzun arasına kırmızı ile renkli yeri ekleyin.

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E7:E38]) Is Nothing Then
If Target.Value <> "" Then Cells(Target.Row, "D") = Format(Now, "dd/mm/yyyy - hh:mm")
If Target.Value = "" Then Cells(Target.Row, "D") = ""
End If
[COLOR="Red"]On Error Resume Next[/COLOR]
If Not Intersect(Target, [a41:a71]) Is Nothing Then
If Target.Value <> "" Then Cells(Target.Row, "L") = Format(Now, "dd/mm/yyyy - hh:mm")
If Target.Value = "" Then Cells(Target.Row, "L") = ""
End If
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst