حركات فى الاكسل - طريقة ازالة صف بشكل تلقائى ونقلة الى صفحة اخرى

Поділитися
Вставка
  • Опубліковано 8 вер 2024
  • #اكسل #الاكسل #كمبيوتر #excel #motecharabi
    تابعونى
    / motecharabi
    / motecharabi
    / motecharabi
    / motecharabi
    لدعم القناة يمكنكم التسوق على امازون من الروابط ادناة
    على اكسبريس s.click.aliexp...
    امازون amzn.to/3LpP1Mr
    امازون الامارات amzn.to/3Gyl8af
    امازون السعودية amzn.to/3mmVcGg

КОМЕНТАРІ • 26

  • @mabrouktoufik
    @mabrouktoufik Рік тому

    مشكور أخي الكريم معلومة مفيدة

  • @MH-hx3xj
    @MH-hx3xj 2 роки тому

    اتمنى تستمر على هيج مقاطع للكسل

  • @karimkarsly230
    @karimkarsly230 2 роки тому

    سعد العصفورة اكيد متابع 😂😂

  • @WOS1962
    @WOS1962 2 роки тому +1

    سامحك الله انا مضطر اشوف الفيديو مرة ثانية لانني دققت في عناوين وأسماء الجدول فلم اركز كثيرا في المعلومات وضحكت كثيرا 🤣🤣🤣
    وخاصة الرقم ٦ و ٧ و ٨ قبل المدير😅

    • @wailmoghli
      @wailmoghli 2 роки тому

      رقم ٥ .. كريم النتن 🤧🤢😆

  • @metroostarr8530
    @metroostarr8530 2 роки тому

    نشكرك جدا على المجهود ، ارجوا منك رجاءآ خاصآ شرح ( منع التعديل على قوقل شيت) وليس أكسل مايكروسوفت .

  • @ahmedmokhtar190
    @ahmedmokhtar190 2 роки тому +1

    يا ريت كشف حساب عميل تفصيلي بالحركات وشكرا

  • @MoTechArabi
    @MoTechArabi  2 роки тому +3

    Sub Cheezy()
    'Updated by Kutools for Excel 2017/8/28 Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
    If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
    If CStr(xRg(K).Value) = "Done" Then
    xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
    xRg(K).EntireRow.Delete
    If CStr(xRg(K).Value) = "Done" Then
    K = K - 1
    End If
    J = J + 1
    End If
    Next
    Application.ScreenUpdating = True
    End Sub

  • @user-sx3uy8rp2b
    @user-sx3uy8rp2b 2 роки тому +1

    اول فيديو نزلتة بل قناة الجهاز عندي بس المنتدئ ما يطلع شنو الحل

  • @ahmedalsaid3189
    @ahmedalsaid3189 Рік тому

    أكيد سعد العصفورة اسم الجثة ههههه

  • @MUSTAFA_VICTORY777
    @MUSTAFA_VICTORY777 2 роки тому

    سلام عليكم شباب هل تنصحون:
    Power supply fsp 550w
    ولوحة الام
    B450m ds3h
    يعني ماركة معروفة زينة لو لا اتمنى الرد

  • @user-nj5vm3zj1y
    @user-nj5vm3zj1y 2 роки тому

    ابو عصفورة

  • @mahmoudmontaser5794
    @mahmoudmontaser5794 2 роки тому

    ممكن الكلام ده يتعمل بلأدفانسد فلتر ولا

  • @asmaabdalrahman187
    @asmaabdalrahman187 2 роки тому

    طيب نقدر نضيف عامود للجدول ادا بضيف ؟

  • @sallyahmed3992
    @sallyahmed3992 2 роки тому

    من فضلك عندى سؤال وياريت تجاوبنى عليه وعذرا لجهلى...عايزة اعرف شريحة الموبايل sim card ليس لها علاقه سوى بالارقام ورسائل sms و باقة انترنت فقط؟ ولا ممكن يكون بيتخزن عليها او بيتنقل ليها اى شئ موجود على الموبايل من مكالمات مسجلة او غير ذلك.؟ ..هل لها علاقة باى تخزين سحابى؟

  • @ahsh993
    @ahsh993 2 роки тому

    لو اعملها زي صاحبك اسهل من دوشة الدماغ اللي انت عملتها

    • @amirmohamed9930
      @amirmohamed9930 2 роки тому

      كل واحد وله طريقة يحب يشتغل بيها
      من وجهة نظرك انها دوشة دماغ
      لكن لغيرك عادى ،
      تحياتى

  • @October_247
    @October_247 Рік тому +1

    اسم الجثه 😂

  • @aldudo
    @aldudo 2 роки тому

    ممكن رابط هذا الاصدار ؟

  • @psychologistmostafa6751
    @psychologistmostafa6751 2 роки тому

    صاحبنا سعد العصفوره ؟ 😂

  • @mohamedelkabbany7269
    @mohamedelkabbany7269 2 роки тому

    صباح الخير وأرجو إرسال الميل أو رقم الواتس لأتواصل معك. شكراً