Liebe համայնք
ich habe folgendes Anliegen und habe bereits mehrere Tutorials 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 (Չափանիշներ) 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.
Արդյո՞ք meinem Code-ը կեղծ է:
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alle Tabellenblätter sind in einer Excel-Datei (Macro-Enabled Template):
Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Տիմոթեյ
Sub Filter_TeamUpdate()
'
Filter_TeamUpdate Macro
― Տիմոթի
'
lngLastRowANNA = Թերթեր («ANNA»). Բջիջներ (Տողեր.Հաշիվ, 1).Վերջ (x1Up).Տող
lngLastRowJULIA = Թերթեր ("JULIA"). Բջիջներ (Rows.Count, 1).End(x1Up).Տող
lngLastRowANDREA = Թերթեր («ANDREA»). Բջիջներ (Տողեր.Հաշիվ, 1).Վերջ (x1Up).Տող
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Տող
Թերթեր («ՇԱԲԱԹԱԿԱՆ ՔՆՆԱՐԿՈՒՄ»): Ընտրեք
Թերթիկներ («ANNA»). միջակայք («A1:H» & lngLastRowANNA): Ընդլայնված ֆիլտրի գործողություն.=xlFilterCopy, _
CriteriaRange:=Թերթեր ("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range («A1») _
, Եզակի:=Սխալ
lngLastRow = Թերթեր («ՇԱԲԱԹԱԿԱՆ ՔՆՆԱՐԿՈՒՄ»). Բջիջներ (Տողեր.Հաշիվ, 1). Վերջ (x1Up).Տող
Թերթիկներ («JULIA»). ընդգրկույթ («A1:H» & lngLastRowJULIA). Ընդլայնված ֆիլտրի գործողություն.=xlFilterCopy, _
CriteriaRange:=Թերթեր ("CRITERIAS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Եզակի:=Սխալ
lngLastRow = Թերթեր («ՇԱԲԱԹԱԿԱՆ ՔՆՆԱՐԿՈՒՄ»). Բջիջներ (Տողեր.Հաշիվ, 1). Վերջ (x1Up).Տող
Թերթիկներ ("ANDREA"). Range ("A1:H" & lngLastRowANDREA). Ընդլայնված ֆիլտրի գործողություն.=xlFilterCopy, _
CriteriaRange:=Թերթեր ("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Եզակի:=Սխալ
lngLastRow = Թերթեր («ՇԱԲԱԹԱԿԱՆ ՔՆՆԱՐԿՈՒՄ»). Բջիջներ (Տողեր.Հաշիվ, 1). Վերջ (x1Up).Տող
Վերջ Sub
ich habe folgendes Anliegen und habe bereits mehrere Tutorials 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 (Չափանիշներ) 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.
Արդյո՞ք meinem Code-ը կեղծ է:
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alle Tabellenblätter sind in einer Excel-Datei (Macro-Enabled Template):
Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Տիմոթեյ
Sub Filter_TeamUpdate()
'
Filter_TeamUpdate Macro
― Տիմոթի
'
lngLastRowANNA = Թերթեր («ANNA»). Բջիջներ (Տողեր.Հաշիվ, 1).Վերջ (x1Up).Տող
lngLastRowJULIA = Թերթեր ("JULIA"). Բջիջներ (Rows.Count, 1).End(x1Up).Տող
lngLastRowANDREA = Թերթեր («ANDREA»). Բջիջներ (Տողեր.Հաշիվ, 1).Վերջ (x1Up).Տող
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Տող
Թերթեր («ՇԱԲԱԹԱԿԱՆ ՔՆՆԱՐԿՈՒՄ»): Ընտրեք
Թերթիկներ («ANNA»). միջակայք («A1:H» & lngLastRowANNA): Ընդլայնված ֆիլտրի գործողություն.=xlFilterCopy, _
CriteriaRange:=Թերթեր ("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range («A1») _
, Եզակի:=Սխալ
lngLastRow = Թերթեր («ՇԱԲԱԹԱԿԱՆ ՔՆՆԱՐԿՈՒՄ»). Բջիջներ (Տողեր.Հաշիվ, 1). Վերջ (x1Up).Տող
Թերթիկներ («JULIA»). ընդգրկույթ («A1:H» & lngLastRowJULIA). Ընդլայնված ֆիլտրի գործողություն.=xlFilterCopy, _
CriteriaRange:=Թերթեր ("CRITERIAS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Եզակի:=Սխալ
lngLastRow = Թերթեր («ՇԱԲԱԹԱԿԱՆ ՔՆՆԱՐԿՈՒՄ»). Բջիջներ (Տողեր.Հաշիվ, 1). Վերջ (x1Up).Տող
Թերթիկներ ("ANDREA"). Range ("A1:H" & lngLastRowANDREA). Ընդլայնված ֆիլտրի գործողություն.=xlFilterCopy, _
CriteriaRange:=Թերթեր ("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Եզակի:=Սխալ
lngLastRow = Թերթեր («ՇԱԲԱԹԱԿԱՆ ՔՆՆԱՐԿՈՒՄ»). Բջիջներ (Տողեր.Հաշիվ, 1). Վերջ (x1Up).Տող
Վերջ Sub