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

[عبدالله صباح]

السلام عليكم

ممكن معادلات لاظهار الارقام الموضحة بشيت الحالة 

جزيتم خيرا

وزادكم الله رفعة 

المنتوج+المحور+الاستحقاق.xlsx

[حسين مامون]

تفضل 

كود vba

 

Option Explicit

Sub test()
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = Sheets("ÇáãÕÑæÝ")
Set ws2 = Sheets("ÇáÍÇáÉ")
Dim lr, X, R1, R2
ws2.Range("g2:q10000").ClearContents
R1 = 2
R2 = 2

lr = ws.Cells(Rows.Count, 2).End(3).Row
For X = 2 To lr
If ws.Cells(X, 2).Text = "ÎÇÕ" Then
ws2.Range("g" & R1).Value = ws.Cells(X, 2).Value
ws2.Range("g" & R1).Offset(, 1).Value = ws.Cells(X, 4) & "/ " & ws.Cells(X, 5)
ws2.Range("g" & R1).Offset(, 2).Value = ws.Cells(X, 9)
ws2.Range("g" & R1).Offset(, 3).Value = ws.Cells(X, 10)
ws2.Range("g" & R1).Offset(, 4).Value = ws.Cells(X, 11)
R1 = R1 + 1

Else
ws2.Range("m" & R2).Value = ws.Cells(X, 2).Value
ws2.Range("m" & R2).Offset(, 1).Value = ws.Cells(X, 4) & "/ " & ws.Cells(X, 5)
ws2.Range("m" & R2).Offset(, 2).Value = ws.Cells(X, 9)
ws2.Range("m" & R2).Offset(, 3).Value = ws.Cells(X, 10)
ws2.Range("m" & R2).Offset(, 4).Value = ws.Cells(X, 11)
R2 = R2 + 1

End If
Next X
End Sub

المنتوج+المحور+الاستحقاق.xlsm

[عبدالله صباح]

السلام عليكم

اعتذر - اذ لم اصل الفكرة المطلوبة

والله اعتذر

كان طلبي - عند كتابة في شيت المصروف تظهر الارقام  تلقائيا في شي (المصروف) على ضوء ما موجود في شيت الحالة

اعتذر

 

[Ali Mohamed Ali]

بعد اذن الأستاذ حسين ولإثراء الموضوع يمكنك هذا بهذه المعادلة

=IFERROR(IF(B2="عام",VLOOKUP($E2&"/"&$D2,الحالة!$N$2:$Q$80,2,0),VLOOKUP($E2&"/"&$D2,الحالة!$H$2:$K$80,2,0)),"")

المنتوج+المحور+الاستحقاق1.xlsx

[عبدالله صباح]

جزيت خيرا

تمام