الثلاثاء، 04 يناير 2022
  1 الردود
  4.8 ألف زيارة
0
الأصوات
فك
مجتمع الحب

ich habe follgendes Anliegen and habe bereits mehrere Tutorials durchgeschaut. Doch leider klappt es immernoch nicht.
لقد قمت بنسخ 3 جدول بيانات والعديد من التفاصيل في جدول جديد (مناقشة أسبوعية)، عندما تكون أفضل النتائج (المعايير) فعالة.

لا يوجد أي شيء مع وحدات الماكرو Gearbeitet وFolgenden Code erstellt.
Zunächst wurde nur die information aus einem Tablenblatt angezeigt، obwohl mein Code all 3 Tablenblätter anzeigt. Dann habe ich gedacht، dass ich ja die Letzte Zeile nicht immer as A1 bezeichnen kann، weil die Informationen immer überschreiben werden. لذا هاب آيك"CopyToRange" im Code umgeschrieben. يمكن أن يتم تحديث بعض التفاصيل بعد انتهاء مدة صلاحيتها ولن يتم تحديثها بشكل أفضل.

هل كان رمز مينيم زائفًا؟
هل تريد أن تحصل على أفضل ما لديك من طاولة طعام في مكان جديد؟ جميع الجداول موجودة في ملف Excel واحد (قالب ممكّن بماكرو).

لقد كنت سعيدًا جدًا، عندما أتمكن من الحصول على المساعدة.
هرتزليشن دانك إم فورفيلد.
تيموتي





عامل التصفية الفرعي_TeamUpdate()
'
'Filter_TeamUpdate ماكرو
"تيموتي
'
lngLastRowANNA = Sheets("ANNA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRowJULIA = Sheets("JULIA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRowANDREA = Sheets("ANDREA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Row


الأوراق ("مناقشة أسبوعية"). اختر

Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=النطاق("A1") _
فريدة من نوعها:=خطأ

lngLastRow = Sheets("مناقشة أسبوعية").Cells(Rows.Count, 1).End(x1Up).Row

Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
فريدة من نوعها:=خطأ

lngLastRow = Sheets("مناقشة أسبوعية").Cells(Rows.Count, 1).End(x1Up).Row

Sheets("ANDREA").Range("A1:H" & lngLastRowANDREA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
فريدة من نوعها:=خطأ

lngLastRow = Sheets("مناقشة أسبوعية").Cells(Rows.Count, 1).End(x1Up).Row


نهاية الفرعية
 
منذ سنوات 2
·
#2426
0
الأصوات
فك
مرحبًا تيموتي،

لقد راجعنا الكود، وقمنا بإصلاح بعض الأخطاء في كود المصدر، يرجى إلقاء نظرة:

Sub Filter_TeamUpdate()
'
' Filter_TeamUpdate Macro
' Timotee
'

lngLastRowANNA = Sheets("ANNA").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRowJULIA = Sheets("JULIA").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRowANDREA = Sheets("ANDREA").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

Sheets("WEEKLY DISCUSSION").Select

Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range("A1") _
, Unique:=False

lngLastRow = Sheets("WEEKLY DISCUSSION").Cells(Rows.Count, 1).End(xlUp).Row


Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Unique:=False

lngLastRow = Sheets("WEEKLY DISCUSSION").Cells(Rows.Count, 1).End(xlUp).Row

Sheets("ANDREA").Range("A1:H" & lngLastRowANDREA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Unique:=False

lngLastRow = Sheets("WEEKLY DISCUSSION").Cells(Rows.Count, 1).End(xlUp).Row


End Sub


أتمنى أن يكون هذا مناسبا لك.

أماندا
  • الصفحة:
  • 1
لا توجد ردود لهذا المنصب حتى الآن.