حذف الخلايا الفارغة

[mr7mix]

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

قمت بعمل ٣ ماكرو ترحيل البيانات من شيت الي شيت اخر لكي يتم عليه عمل رسم بياني ولكن الجدول الرئيسي به خلايا فارغة 

اريد ان يتم حذف الخلايا الفارغة ف الجدول الفرعي لكي يتم عمل الرسم البياني بشكل سليم..او بمعني اوضح اريد ترحيل الخلايا بدون الخلايا الفارغة

mr7mix2022.xlsm

[محمد يوسف ابو يوسف]

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

اخي لابد من شرط اذ تحقق يتم الترحيل دون فراغ

1:مثلاً اذا كان عمود  T.... يوجد به كلمة Fluffy ..... يتم ترحيل ما يقابلها ...واذا كانت فارغة يتم اخفاء ما يقابلها ..هل تقصد هكذا اما ماذا تريد ..تفضل

Sub fluffy()
'
' fluffy Macro
'
  Application.ScreenUpdating = False
    Range("T3:T700").AutoFilter Field:=1, Criteria1:="<>"
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Sheets("Sheet1").Range("T3:AA1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Sheet2!Criteria"), CopyToRange:=Range("BI4:BP4"), _
        Unique:=False
Range("T3:T700").AutoFilter
  Application.ScreenUpdating = True

End Sub

 

[mr7mix]

اشكرك استاذ محمد لمتابعة حضرتك ...ولكن انا لم اقصد هذا ، ما اقصد هو ان.

Sheet1 هو الشيت الرئيسي الذى يتم فيه ادخال البيانات ويلزم ادخالها بنفس الطريقه لأنها تابعه لتاريخ الانتاج وقياسات اخرى. اما عمود T هذا يحتوي علي اصناف اخرى وسيكون عمود مخفي

ناتي ل sheet2 قمت ب عمل ماكرو نقل بيانات وهى  لغرض  تجميع البيانات فقط لربطها ب  chart لكل column من هذه القياسات 

ما اريده هو حذف الفارغ الموجود فى  BK:BP لكي يتم وضع القياسات اسفل بعض بالتنسيق لكي يتم ربطه ب chart

[أ / محمد صالح]

من الواضح في الصورة أن البيانات غير منضبطة في الصفوف

أم أنك تريد حذف الصف الذي ليس به بيانات

وإذا كان به بيان واحد يتم الابقاء عليه

؟؟

[mr7mix]

لا يمكن حذف الصفوف الفارغه لان باقي الصف يحتوي علي بيانات اخرى 

[عبدالفتاح في بي اكسيل]

@mr7mix

انا  استبعد ان  الاكسيل  يمكنه  القيام  بذلك  على  حسب  ما  فهمت  منك .

لم   لا تضع   النتيجة  التي  تريدها  وان  قلت  لي  لا  استطيع  يعني  استحالة  فعلها  بالاكسيل  

انظر  الى  الصورة  جيدا   لقد  وضعت  بيانات  بسيطة كمثال  .   هل  هذا  ما تريده ؟

او 

[mr7mix]

بالظبط يا استاذ عبد الفتاح هذا ما اريد فعله ولكن لا يمكن تسجيل الارقام ف شيت ١ بهذا التنسيق ولكن ما اريده هو نقل البيانات ل شيت ٢ بنفس التنسيق الي حضرتك عملته 

هل لها طريقه ف الاكسيل لنقلها بنفس الطريقه ام لا يوجد لها حل غير النقل اليدوي بعد الفلتر و اخفاء البلانك

[عبدالفتاح في بي اكسيل]

احدف  بياناتك  قي  الشيت  الثاني  ابتداء  من BI1

Sub test()
    Dim r As Range
    Sheets("sheet2").UsedRange.Clear
    With Sheets("sheet1")
        Set r = .[t1:t2]
        With .Range("t3", .Range("t" & Rows.Count).End(xlUp)).Resize(, 8)
            r(2).Formula = "=countblank(" & .Rows(2).Range("c1").Resize(, 6).Address(0, 0) & ")<6"
            .AdvancedFilter 2, r, Sheets("sheet2").Cells(61)
        End With
        r.Clear
    End With
End Sub

 

[mr7mix]

شكرا استاذ عبد الفتاح  لمساعده حضرتك