المساعده في كتابه كود اكسيل vba

[hanykassem]

عند كتابة كلمة "done" في الخلية A1، ستقوم الخلية C1 بأخذ قيمة الخلية B1

وسيتم وضع تاريخ اليوم في الخلية e1

ويتم تنفيذ هذا الأمر أوتوماتيك.

[أ / محمد صالح]

جرب استعمال هذا الكود في حدث تغيير محتويات الشيت

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value = "done" Then
Target.Offset(0, 2).Value = Target.Offset(0, 1).Value
Target.Offset(0, 4).Value = Date
End If
End If
End Sub

بالتوفيق

[محمد هشام.]

السلام عليكم ورحمه الله تعالى وبركاته 

بعد إذن الأستاذ @أ / محمد صالح  إليك حل آخر

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WSdata As Range
On Error GoTo EH
Set WSdata = Me.Range("A:A")
    If Not Application.Intersect(WSdata, Target) Is Nothing Then
        Application.EnableEvents = False
        Select Case LCase(Target.Value)
            
            Case "done", "Done", "DONE"

Me.Cells(Target.Row, 3) = Me.Cells(Target.Row, 2)
Me.Cells(Target.Row, 5) = Date

Case Is >= 0

 Me.Cells(Target.Row, 3) = Empty
Me.Cells(Target.Row, 5) = Empty

    End Select
End If
EH:
    Application.EnableEvents = True
End Sub

 

Test_Done.xlsb

تم تعديل سبتمبر 26, 2023 بواسطه محمد هشام.