عبدالله صباح قام بنشر يناير 28, 2021 مشاركة قام بنشر يناير 28, 2021 السلام عليكم ممكن معادلات لاظهار الارقام الموضحة بشيت الحالة جزيتم خيرا وزادكم الله رفعة المنتوج+المحور+الاستحقاق.xlsx رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر يناير 28, 2021 مشاركة قام بنشر يناير 28, 2021 تفضل كود 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 رابط هذا التعليق شارك More sharing options...
عبدالله صباح قام بنشر يناير 28, 2021 الكاتب مشاركة قام بنشر يناير 28, 2021 السلام عليكم اعتذر - اذ لم اصل الفكرة المطلوبة والله اعتذر كان طلبي - عند كتابة في شيت المصروف تظهر الارقام تلقائيا في شي (المصروف) على ضوء ما موجود في شيت الحالة اعتذر رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر يناير 30, 2021 أفضل إجابة مشاركة قام بنشر يناير 30, 2021 بعد اذن الأستاذ حسين ولإثراء الموضوع يمكنك هذا بهذه المعادلة =IFERROR(IF(B2="عام",VLOOKUP($E2&"/"&$D2,الحالة!$N$2:$Q$80,2,0),VLOOKUP($E2&"/"&$D2,الحالة!$H$2:$K$80,2,0)),"") المنتوج+المحور+الاستحقاق1.xlsx 5 رابط هذا التعليق شارك More sharing options...
عبدالله صباح قام بنشر يناير 30, 2021 الكاتب مشاركة قام بنشر يناير 30, 2021 جزيت خيرا تمام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها