ترحيل فلترة

[أ/حكيم]

المطلوب التعديل في الكود بحيث يتم ترحيل القيم فقط بدون تنسيقات ولا معادلات يتم الترحيل و مسح الأوراق حسب عدد العملاء وليس في نطاق ثابت بحيث يتم المسح في الأوراق دائن و مدين و الكل حسب عدد المرحلين وليس في كل النطاق

عذرا لم أتمكن من ارسال الملف

Sub myfilter()

'

Dim lastrow As Long

Application.ScreenUpdating = False

With Sheets(1)

.AutoFilterMode = False

lastrow = Range("a" & Rows.Count).End(xlUp).Row

Range("A1:D22").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$D$22").AutoFilter Field:=4, Criteria1:=[F7], _

Operator:=xlOr, Criteria2:=[F9]

.Range("a2:d" & lastrow).Copy Sheets(Range("F3").Value).Range("a2")

.AutoFilterMode = False

End With

Application.ScreenUpdating = True

End Sub

[أ/حكيم]

المرفقاتترحيل5.zip

الاخوة أعضاء المنتدى الاعزاء أرجو أن يكون المطلوب واضح حسب الملف المرفق.

تم تعديل أكتوبر 31, 2012 بواسطه أبو حكيم

[الـعيدروس]

السلام عليكم

جرب هذا التعديل

ولو لم يفي بالغرض أرجو توضيح الطلب

Sub myfilter()

Dim lastrow As Long

Application.ScreenUpdating = False

With Sheets(1)

  .AutoFilterMode = False

   lastrow = Range("a" & Rows.Count).End(xlUp).Row

    Range("A1:D22").Select

    Selection.AutoFilter

    ActiveSheet.Range("$A$1:$D$22").AutoFilter Field:=4, Criteria1:=[F7], Operator:=xlOr, Criteria2:=[F9]

    .Range("a2:d" & lastrow).Copy

    With Sheets(Range("F3").Value)

	    .Range("A2:D" & .Cells(Rows.Count, 1).End(xlUp).Row).Value = Empty

	    .Range("a2").PasteSpecial xlPasteValues

    End With

   .AutoFilterMode = False

   Application.CutCopyMode = False

End With

Application.ScreenUpdating = True

End Sub

[أ/حكيم]

الأخ العزيز عباد و كل أعضاء المنتدى الكرام شكراً المطلوب الأول مضبوط و المطلوب الثاني هو أن يتم مسح البيانات السابقة في الاوراق دائن و مدين و الكل قبل الترحيل حسب عدد العملاء فمثلا اذاكانالعدد 10 يتم مسح عشرة صفوف فقط وليس النطاق كاملاً .

المطلوب الثالث هل يمكن ترحيل أعمدة محددة فقط وتكون الاعمدة غير متجاورة في نطاق كبير مثلا 100 عمود مثلا العمود 1و3و7و8و9و12و30و50:36 ...... الخ

مع الاعتذاء للعضاء المنتدى على تعدد المطالب

تم تعديل نوفمبر 1, 2012 بواسطه أبو حكيم