Nouveauté

Meilleures pages dans d'autres tableaux de tableaux copiés - VBA

  Excel
Timothée
  Timothée
  Mardi, 04 Janvier 2022
  1 Réponses
  5.2K visites
0
Votes
annuler
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
 
0
Plus ancien en premier  
Amanda Lee
Amanda Lee
il y a des années 2
·
#2426
0
Votes
annuler
Salut Timotee,

Nous avons passé en revue le code et corrigé quelques erreurs dans le code source, veuillez jeter un œil :

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


J'espère que cela fonctionne pour toi.

Amanda
  • Page:
  • 1
Il n'y a pas encore de réponse faites pour ce poste.