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

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


mr7mix
إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

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

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

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

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

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

 

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

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

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

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

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

7mix.jpg

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

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

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

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

؟؟

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

@mr7mix

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

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

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

3.PNG

او 4.PNG.80204be3cd7336b0e23f0309e399358c.PNG

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

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

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

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

  • أفضل إجابة

احدف  بياناتك  قي  الشيت  الثاني  ابتداء  من 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

 

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

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

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

Important Information