사랑 공동체
더 많은 교육을 받을 수 있습니다. 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 and 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" im 코드 umgeschrieben. 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? Excel-Datei의 모든 Tabellenblätter sind(매크로 사용 템플릿).
Ich wäre sehr froh, wenn hier jemand Helfen kann.
Herzlichen Dank im Vorfeld.
티모시
하위 필터_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("주간 토론").선택
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter 작업:=xlFilterCopy, _
CriteriaRange:=시트("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=범위("A1") _
, 고유:=거짓
lngLastRow = Sheets("주간 토론").Cells(Rows.Count, 1).End(x1Up).Row
Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).AdvancedFilter 작업:=xlFilterCopy, _
CriteriaRange:=시트("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 작업:=xlFilterCopy, _
CriteriaRange:=시트("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, 고유:=거짓
lngLastRow = Sheets("주간 토론").Cells(Rows.Count, 1).End(x1Up).Row
최종 하위
더 많은 교육을 받을 수 있습니다. 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 and 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" im 코드 umgeschrieben. 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? Excel-Datei의 모든 Tabellenblätter sind(매크로 사용 템플릿).
Ich wäre sehr froh, wenn hier jemand Helfen kann.
Herzlichen Dank im Vorfeld.
티모시
하위 필터_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("주간 토론").선택
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter 작업:=xlFilterCopy, _
CriteriaRange:=시트("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=범위("A1") _
, 고유:=거짓
lngLastRow = Sheets("주간 토론").Cells(Rows.Count, 1).End(x1Up).Row
Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).AdvancedFilter 작업:=xlFilterCopy, _
CriteriaRange:=시트("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 작업:=xlFilterCopy, _
CriteriaRange:=시트("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, 고유:=거짓
lngLastRow = Sheets("주간 토론").Cells(Rows.Count, 1).End(x1Up).Row
최종 하위