ترحيل بشرط

[فوزى فوزى]

السلام عليكم ورحمة الله وبركاته بعد اذن استاذتى الكرام ممكن كود ترحيل يرحل على اسم البيان وعند تطابق اسم البيان مع رؤوس الاعمدة يرحل المبلغ سواء قرش او جنية  الى كل عمود خاص به وهذا نموذج للحل وشكرا على مساعدتكم لنا وجعلكم الله عونا لنا وللامثالنا

كشف الحساب الختامى.xlsm

[ابراهيم الحداد]

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

لكى يعمل معك الكود التالى لابد من تطابق البيانات التى فى العمود AP  مع رؤوس الاعمدة فى الصف الثالث

يمكنك مراجعة ذلك باستخدام علامة = بين الخلية فى الصف الثالث و الخلية فى العمود  AP

اليك الكود

Sub TData()
Dim ws As Worksheet, LR As Long
Dim C As Range, i As Long
Dim x As Integer, y As Double
Set ws = Sheets("الايرادات")
LR = ws.Range("AP" & Rows.Count).End(3).Row
i = 5
Do While i <= LR
For Each C In ws.Range("B3:AL3")
If ws.Range("AP" & i).Value = C.Value Then
x = C.Column + 1
y = ws.Cells(i, x).Value
ws.Range("AO" & i).Value = y
End If
Next
i = i + 1
Loop
End Sub

 

[فوزى فوزى]

شكرا لحضرتك استاذى الفاضل وربنا يجزيكم عنا خير الجزاء الف الف شكر