61-kun uchun yozilgan darsdagi kodlar

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range

' Faqat B ustun kuzatiladi
If Not Intersect(Target, Range("B:B")) Is Nothing Then

Application.EnableEvents = False

For Each cell In Intersect(Target, Range("B:B"))

' Agar B katak bo‘sh emas va A hali bo‘sh bo‘lsa
If cell.Value <> "" And cell.Offset(0, -1).Value = "" Then
cell.Offset(0, -1).Value = Date
End If

Next cell

Application.EnableEvents = True

End If

End Sub

#excelcode #61-kun