Communauté d'amour
J'ai suivi des cours et j'ai eu plus de tutoriels durchgeschaut. Doch leider klappt es immernoch nicht.
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt ( DISCUSSION HEBDOMADAIRE) kopieren, wenn eine bestimmte Bedingung (Critères) erfüllt ist.
Je n'ai pas encore créé de macros et de codes.
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. Alors j'ai "CopyToRange" im Code umgeschrieben. Lors d'une mise à jour nocturne, vous pouvez obtenir un mélange d'options et ce n'est pas plus facile.
Was ist an meinem Code falsch ?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle ? Alle Tabellenblätter sind in einer Excel-Datei (Macro-Enabled Template).
Je vais le voir quand je demande de l'aide.
Herzlichen Dank im Vorfeld.
Timothée
Sous-filtre_TeamUpdate()
'
' Macro Filter_TeamUpdate
' Timotee
'
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("DISCUSSION HEBDOMADAIRE").Sélectionnez
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action :=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopieVersPlage :=Plage("A1") _
, Unique :=Faux
lngLastRow = Sheets("DISCUSSION HEBDOMADAIRE").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) _
, Unique :=Faux
lngLastRow = Sheets("DISCUSSION HEBDOMADAIRE").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) _
, Unique :=Faux
lngLastRow = Sheets("DISCUSSION HEBDOMADAIRE").Cells(Rows.Count, 1).End(x1Up).Row
End Sub
J'ai suivi des cours et j'ai eu plus de tutoriels durchgeschaut. Doch leider klappt es immernoch nicht.
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt ( DISCUSSION HEBDOMADAIRE) kopieren, wenn eine bestimmte Bedingung (Critères) erfüllt ist.
Je n'ai pas encore créé de macros et de codes.
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. Alors j'ai "CopyToRange" im Code umgeschrieben. Lors d'une mise à jour nocturne, vous pouvez obtenir un mélange d'options et ce n'est pas plus facile.
Was ist an meinem Code falsch ?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle ? Alle Tabellenblätter sind in einer Excel-Datei (Macro-Enabled Template).
Je vais le voir quand je demande de l'aide.
Herzlichen Dank im Vorfeld.
Timothée
Sous-filtre_TeamUpdate()
'
' Macro Filter_TeamUpdate
' Timotee
'
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("DISCUSSION HEBDOMADAIRE").Sélectionnez
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action :=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopieVersPlage :=Plage("A1") _
, Unique :=Faux
lngLastRow = Sheets("DISCUSSION HEBDOMADAIRE").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) _
, Unique :=Faux
lngLastRow = Sheets("DISCUSSION HEBDOMADAIRE").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) _
, Unique :=Faux
lngLastRow = Sheets("DISCUSSION HEBDOMADAIRE").Cells(Rows.Count, 1).End(x1Up).Row
End Sub