Bestimmte Zeilen in anderes Tabellenblatt copyeren- VBA
By Тимофія у вівторок, 04 січня 2022 року
Опубліковано в перевершувати
відповіді 1
симпатії 0
думки 5.1K
Голосів 0
Любовне співтовариство

ich habe folgendes Anliegen und habe bereits mehrere Підручники durchgeschaut. Doch leider klappt es immernoch nicht.
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt (ЩОТИЖНЯ ОБГОВОРЕННЯ) kopieren, wenn eine bestimmte Bedingung (Criteria) erfüllt ist.

Nun hab ich mit Macros gearbeitet und folgenden Code erstellt.
Zunächst wurde nur die Information aus einem Tabellenblatt angezeigt, obwohl mein Code alle 3 Tabellenblätter anzeigt. Dann habe ich gedacht, dass ich ja die letzte Zeile nicht immer als A1 bezeichnen kann, weil die Informationen immer überschreiben werden. Так що я маю"CopyToRange" ім'я коду внесено до коду. Bei nochmaligem updaten kann dann aber eine Fehlermeldung und es wurde nichts mehr angezeigt.

Чи був це фальшивий код майнема?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alle Tabellenblätter sind in einer Excel-Datei (шаблон із підтримкою макросів).

Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Тимофія





Підфільтр_TeamUpdate()
'
' Макрос Filter_TeamUpdate
'Тімоті
'
lngLastRowANNA = Аркуші ("ANNA"). Клітинки (Рядки. Кількість, 1). Кінець (x1Up). Ряд
lngLastRowJULIA = Аркуші("JULIA").Клітинки(Рядки.Кількість, 1).Кінець(x1Up).Рядок
lngLastRowANDREA = Аркуші("ANDREA").Клітинки(Рядки.Кількість, 1).Кінець(x1Up).Рядок
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Рядок


Таблиці("ЩОТЖНЯ ОБГОВОРЕННЯ").Виберіть

Sheets("ANNA").Діапазон("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Аркуші("КРИТЕРІЇ").Діапазон("A2:H" & lngLastRowANNA), CopyToRange:=Діапазон("A1") _
, Унікальний:=Неправда

lngLastRow = Аркуші ("ЩОТИЖНЯ ОБГОВОРЕННЯ"). Клітинки (Рядки. Кількість, 1). Кінець (x1Up). Рядок

Sheets("JULIA").Діапазон("A1:H" & lngLastRowJULIA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Аркуші("КРИТЕРІЇ").Діапазон("A2:H" & lngLastRowJULIA), CopyToRange:=Діапазон("A" & lngLastRow + 1) _
, Унікальний:=Неправда

lngLastRow = Аркуші ("ЩОТИЖНЯ ОБГОВОРЕННЯ"). Клітинки (Рядки. Кількість, 1). Кінець (x1Up). Рядок

Sheets("ANDREA").Діапазон("A1:H" & lngLastRowANDREA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Аркуші("КРИТЕРІЇ").Діапазон("A2:H" & lngLastRowANDREA), CopyToRange:=Діапазон("A" & lngLastRow + 1) _
, Унікальний:=Неправда

lngLastRow = Аркуші ("ЩОТИЖНЯ ОБГОВОРЕННЯ"). Клітинки (Рядки. Кількість, 1). Кінець (x1Up). Рядок


End Sub
 
Привіт, Тімоті,

Ми переглянули код і виправили деякі помилки у вихідному коді, будь ласка, подивіться:

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


Сподіваюся, що це працює для вас.

Аманда
Аманда Лі
·
2 років тому
·
0 Любить
·
0 голосів
·
0 Коментарі
·
Переглянути повне повідомлення