هل استطيع نقل المبلغ من خلية الى بند في ورقة أخرى

[طاهر الوليدي]

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

اخواني الافاضل عباقرة الكسل

عند ي نظام بسيط يتكون من عدة ورق مخصصه للبنود المصروفات الادارية 

المطلوب عند ادخال المبلغ في ورقة اسمها خلاصة نهائية

في خلية اسمها العمودي المواصلات يننتقل مباشرة الى ورقة بند المواصلات مع الاسم . 

وكذلك اذا اضفت بقية الخلايا

مواصلات . مكافئة . بظل سفر ....الخ

بشرط الدقة .....ولكم مني خالص التحية والتقدير

اداري تعديل.xls

[احمدزمان]

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

يجب تغيير اسماء الاوراق بما يتطابق تماما مع اسماء الاعمدة

لكي يتم وضع كل بند في ورقته

الكود موجود في حدث التغيير في الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 4 And Target.Column >= 4 _
 And Target.Column < 20 Then
For Q1 = 3 To Sheets.Count
If Sheets(Q1).Name = Cells(3, Target.Column).Text _
Then GoTo 8
Next
MsgBox "Nun" & Cells(3, Target.Column).Text
GoTo 9
8
Set TS = Sheets(Cells(3, Target.Column).Text)
Q1 = Cells(Target.Row, 22).Text
Q2 = Cells(Target.Row, Target.Column).Value
With TS
For TR1 = 8 To 99
If .Cells(TR1, 5) = Q1 Then
.Cells(TR1, 3) = Q2
GoTo 9
End If
Next
For TR2 = 8 To 99
If .Cells(TR2, 5) = "" Then
.Cells(TR2, 5) = Q1
.Cells(TR2, 3) = Q2
GoTo 9
End If
Next
End With
End If
9

End Sub

مرفق الملف

مع التحية

اداري تعديل.xls

[أحمد يوسف]

طاهر الوليدي

أين انت من  هذه الإجابة الممتازة؟!!!

أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!💙