aap ya kam VB code k zarya kar sakty hain.
agar code use krna chahain tu try this.
1. jis sheet par aap kam kar rahe ahin us par right click kar k view code par click karain
2. open hone wali window main ya code paste kar dain. aur window close kar dain.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Changed As Range, c As Range
Set Changed = Intersect(Target, Columns("B"), Rows("2:" & Rows.Count))
If Not Changed Is Nothing Then
For Each c In Changed
If c.Value = "" Then
c.Offset(, -1).ClearContents
Else
c.Offset(, -1).Value = Date
End If
Next c
End If
End Sub
4. Remember main assume krta hon k aap ka data Column B row no 2 sa start hota ha. agar aisa tu is line ko apni marzi k mutabiq change kar lain.
Code:
Set Changed = Intersect(Target, Columns("B"), Rows("2:" & Rows.Count))
regards,
Bookmarks