DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim hucre As Integer
Dim eski_hucre, eski_hucre_column As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If eski_hucre_column = "1" Then 'buradaki "1" rakamı sütun belirleyicidir
veri = ActiveCell
Range(eski_hucre) = Format(DateValue(Left(Range(eski_hucre).Value, 2) & "." & _
Mid(Range(eski_hucre).Value, 3, 2) & "." & Right(Range(eski_hucre), 4)), "dd.mm.yyyy")
End If
eski_hucre = ActiveCell.Address
eski_hucre_column = ActiveCell.Column
End Sub