- Katılım
- 21 Ekim 2008
- Mesajlar
- 2,323
- Excel Vers. ve Dili
- Office 2013 - Eng
Arkadaslar A1 hucresine x yazdigimda b1`e bugunun tarihini value halde yazmam gerekiyor, sanirim vba ile olabilir bu; fikri olan varmi acaba?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If UCase(Target.Value) = "X" Then
Target.Offset(0, 1).Value = Date
Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
End If
End Sub
Arkadaslar A1 hucresine x yazdigimda b1`e bugunun tarihini value halde yazmam gerekiyor, sanirim vba ile olabilir bu; fikri olan varmi acaba?
O zaman niye sorunuzu öyle sormadınız?evren bey cok tesekkur ederim yanliz ben bunu a2 - b2 seklindede uzatmak istiyorum ne yapmam gerekir
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
If UCase(Target.Value) = "X" Then
Target.Offset(0, 1).Value = Date
Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
End If
End Sub
Dosyayı güncelledim.2 numaralı mesajdan indirebilirsiniz.bu arada satir eklenince hata veriyor!!