kharboush قام بنشر يونيو 14, 2019 قام بنشر يونيو 14, 2019 ارجو المساعده فى عمل هذا الشيت اخوانى الكرام ارجو الافادة.xlsxFetching info...
تمت الإجابة بن علية حاجي قام بنشر يونيو 14, 2019 تمت الإجابة قام بنشر يونيو 14, 2019 تفضل الملف المرفق... ارجو الافادة.xlsmFetching info... 2
Ali Mohamed Ali قام بنشر يونيو 14, 2019 قام بنشر يونيو 14, 2019 احسنت استاذ بن علية كود ممتاز وبعد اذن حضرتك وزيادة فى اثراء الموضوع -هذا كود اخر للحل Option Explicit Sub Inqwayry7() Dim Q1, Q2, q3, FR, TR Dim S_sh As Worksheet: Set S_sh = Sheets("ÇáíæãíÉ") Dim T_sh As Worksheet: Set T_sh = Sheets("ßÔÝ ÇáÍÓÇÈ") Range("A7:j1000").ClearContents Q1 = Range("b2") Q2 = Range("b3") q3 = Range("D2") TR = 7 If Range("b2").Value > Range("b3").Value Then MsgBox "åäÇß ÎØÃ Ýí ÊÑÊíÈ ÇáÊÇÑíÎ", vbExclamation, "ÎØÃ" Exit Sub End If With S_sh For FR = 7 To 3333 If .Cells(FR, 1) >= Q1 And .Cells(FR, 1) <= Q2 And .Cells(FR, 2) = q3 Then Cells(TR, 1) = .Cells(FR, 1) Cells(TR, 2) = .Cells(FR, 2) Cells(TR, 3) = .Cells(FR, 3) Cells(TR, 4) = .Cells(FR, 4) Cells(TR, 5) = .Cells(FR, 5) Cells(TR, 6) = .Cells(FR, 6) Cells(TR, 7) = .Cells(FR, 7) Cells(TR, 8) = .Cells(FR, 8) Cells(TR, 9) = .Cells(FR, 9) Cells(TR, 10) = .Cells(FR, 10) TR = TR + 1 End If Next FR End With End Sub ولكن بالتأكيد كود حضرتك الأفضل فهو كود صغير وبسيط وادى الغرض بكل كفاءة كشف حساب بين تاريخين.xlsmFetching info... 3
وجيه شرف الدين قام بنشر يونيو 15, 2019 قام بنشر يونيو 15, 2019 بعد اذنى استاذتى واثراء للموضوع نسخة من ارجو الافادة.xlsmFetching info...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.