السلام عيكم
ممكن شرح مفصل لهذا الكود
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 1 Or Target.Column > 4 Then GoTo 1
lr = Cells(Rows.Count, 2).End(xlUp).Row
If Range("B" & lr) = "" Or Range("C" & lr) = "" _
Or Range("D" & lr) = "" Then GoTo 1
Range("b18:d" & lr).Select
Selection.Sort Key1:=Range("b18"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'''''''''''''''''''''''''''''''''''''''''''''''
With Range("b20:b" & lr + 3)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
End With
''''''''''''''''''''''''''''''''''''''''''''
With Range("b20:b" & lr + 3)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
End With
Range("b" & lr + 5).Select
1:
Application.ScreenUpdating = True
End Sub