اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

معادلة أو كود لاستدعاء البيانات من الشيتات وعمل كشف حساب على اساس رقم السيارة


الردود الموصى بها

السلام عليكم : ممكن الله يحفظكم 

 معادلة أو كود يقوم باستدعاء البيانات من الشيتات وعمل كشف حساب على اساس رقم السيارة كما موضحة النتائج بالملف المرفق

 

بحث عن رقم السيارة في كافة الشيتات الموجودة.rar

رابط هذا التعليق
شارك

وعليكم السلام

جرب الكود التالي

Sub SearchCar()
    Dim ws      As Worksheet
    Dim sh      As Worksheet
    Dim lr      As Long
    Dim last As Long
    Dim x       As Long
    Dim i       As Long

    Application.ScreenUpdating = False
        Set sh = Sheets("البحث")
        x = 4
        
        last = IIf(sh.Cells(Rows.Count, "I").End(xlUp).Row <= 4, 4, sh.Cells(Rows.Count, "I").End(xlUp).Row)
        With sh.Range("A4:M" & last)
            .ClearContents: .Borders.Value = 0: .Interior.Color = xlNone: .Font.Bold = False
        End With
        
        If sh.Cells(1, "G").Value = "" Or sh.Cells(1, "G").Value = 0 Then Exit Sub
        
        For Each ws In Sheets(Array("بنزين", "كاز", "نفط"))
            lr = ws.Cells(Rows.Count, "M").End(xlUp).Row
            For i = 2 To lr
                If ws.Cells(i, "F").Value = sh.Cells(1, "G").Value Then
                    sh.Cells(x, 1).Value = x - 3
                    sh.Cells(x, 2).Resize(1, 12).Value = ws.Cells(i, 2).Resize(1, 12).Value
                    x = x + 1
                End If
            Next i
        Next ws
        
        If x = 4 Then Exit Sub
        sh.Range("A4:M" & x - 1).Borders.Value = 1

        sh.Cells(x, "I").Value = "المجموع"
        sh.Cells(x, "J").Value = Application.WorksheetFunction.Sum(sh.Range("J4:J" & x - 1))
        sh.Cells(x, "L").Value = Application.WorksheetFunction.Sum(sh.Range("L4:L" & x - 1))
        
        With sh.Range("I" & x & ":M" & x)
            .Font.Bold = True: .Borders.Value = 13: .Interior.Color = vbCyan
        End With
    Application.ScreenUpdating = True
End Sub

بحث عن رقم السيارة في كافة الشيتات الموجودة.rar

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information