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

كود نقل صفوف على حسب الاسم المكتوب في الخلية


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

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

احتاج الى كود يقوم بنقل الصفوف على حسب الاسم المكتوب في الخلية A2 فاذا كان الاسم مثلا رخام ان يقوم بالنقل اذا كان مكتوب كلمة رخام 
فمثلا اذا كان مكتوب توريد وتركيب رخام ان يقوم بنقل الصف

تلوين.xlsm

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

ماشاء الله استاذ محي الدين هو المطلوب تماما

استاذ محي الدين لو عايز اخليه ياخذ الملفات قص وليس نسخ ممكن ؟ بحيث انه يشيل الاسطر التي تم نقلها لا اريدها اريد ان يعمل قص وليس نسخ

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

  • أفضل إجابة

بعد اذن الاستاذ وجيه

لا استطيع الا أن أعطي ملاحظات

 لماذا لا نستغني عن الحلقة التكرارية  (J) الثانية  ؟؟  لأن الحلقات التكرارية ترهق البرنامج اذا كانت البيانات كبيرة
  و ذلك  باعتماد هذا الكود

Sub aa()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
Dim sh As Worksheet: Set sh = Sheets("Sheet2")
sh.Range("a7:e55") = ""
k = 7
lr = ws.Range("a" & Rows.Count).End(xlUp).Row
For i = 7 To lr
  If ws.Range("b2") = ws.Range("c" & i) Then
     sh.Cells(k, 1).Resize(, 5).Value = _
     ws.Range("A" & i).Resize(, 5).Value
    k = k + 1
  End If
Next
sh.Activate
End Sub

 

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

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

 

Sub cutpaste_Rows()
    Application.ScreenUpdating = False
    Dim LastRow As Long, srcWS As Worksheet, desWS As Worksheet
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Set srcWS = Sheets("sheet1")
    Set desWS = Sheets("sheet2")
    With srcWS
        .Cells(6, 1).CurrentRegion.AutoFilter 3, Range("a2").Value
        .AutoFilter.Range.Offset(1).Copy desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1)
        .AutoFilter.Range.Offset(1).EntireRow.Delete
        .Range("A1").AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

 

تلوين (1).xlsm

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

ماشاء الله اساتذتي الكرام لقد انعم الله عليكم بالعلم واراكم لا تبخلون على احد والله ادعي لكم كل يوم على هذه المجهودات بارك الله فيكم بارك الله فيكم ورزقكم كل خير 

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

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