ختم المدير

[dah_med]

السلام عليكم

عندي فوائم لمؤسسات متفاوتة الأسطر

وأريد ختم المدير الذي هو عبارة عن صورة مدرجة

أن ينزل ويصعد حسب طول القائمة

بعبارة أخرى الختم يتابع التاريخ وكلمة مدير التربية

أخوكم محمد

Conv_2013 _Disen.rar

[طارق محمود]

السلام عليكم

أخي العزيز

بالمرفق كود سيجعل الختم يتبع الخلية التي بها عبارة  "مدير التربية" بشرط ان تكون تلك العبارة في آخر الصف من إحدي الأعمدة الثماني الأولي

 

الكود في حدث الورقة وهو

 

Private Sub Worksheet_Change(ByVal Target As Range)
    a = Target.Address
    Shapes("Image 4").Select
    Selection.Cut
    For C = 1 To 8
        Cells(9999, C).End(xlUp).Select
        If ActiveCell.Value = "مدير التربية" Then GoTo 10
    Next C
10   ActiveSheet.Paste
    With Selection.ShapeRange
        .IncrementLeft 8
        .IncrementTop -9
    End With
    Range(a).Select
End Sub

Conv_2013 _Disen_1.rar

[dah_med]

السلام عليكم

أخي طارق جزاك الله كل خير

أخوك محمد