دمج كودين

[محمد يوسف]

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

اساتزة وخبراء هذا المنتدي الجميل بارك الله في علمكم ونفعكم به 

اريد دمج كودين

Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range)
Set Rng = Range("A1,B1,C:C,D:D")
If Not Intersect(Tr, Rng) Is Nothing Then
   Tr.Offset(0, 1).Select
   Set Rng = Nothing
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal X As Range)
     
   Application.ScreenUpdating = False 'åÐÇ ÇáÓÊÑ áÚÏã ÇåÊÒÇÒ ÇáÔÇÔÉ'
ActiveWindow.Zoom = 50   '  áÅÚØÇÁ Òææã ÈÞíãÉ ãÚíäÉ áäÇÝÐÉ æÑÞÉ ÇáÚãá ÇáÍÇáíÉ
 ActiveSheet.Cells.Interior.ColorIndex = 0  '   åÐÇ ÇáÓÑ ÎÇÕ ÈãÓÍ Çááæä  '
ActiveSheet.Cells.Font.Bold = False
X.Cells.Font.ColorIndex = 1 'åÐÇ ÇáÓÊÑ ÎÇÕ Èáæä ÇáäÕ ÏÇÎá ÇáÎáíå
X.Cells.Font.Bold = True
X.Cells.Interior.ColorIndex = 19 'åÐÇ ÇáÓÊÑ ÎÇÕ ÈÊÛíÑ Çááæä
    [g8] = Application.WorksheetFunction.Sum(Range("g9:g11")) 'åÐÇ ÇáÓÊÑ ÎÇÕ ÈÌãÚ ÚãæÏ ãÚíä'
   Application.ScreenUpdating = True ' åÐÇ ÇáÓÊÑ áÚÏã ÇåÊÒÇÒ ÇáÔÇÔÉ '
End Sub

مرفق دمج كودين.xls

جزاكم الله خيراً