Ama la comunità
ich habe folgendes Anliegen und habe bereits mehrere Tutorials durchgeschaut. Doch leder klappt es immernoch nicht.
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt ( DISCUSSIONE SETTIMANALE) kopieren, wenn eine bestimmte Bedingung (Criteria) erfüllt ist.
Ora ho creato i macro e il seguente codice.
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. Quindi hab ich "CopyToRange" im Code umgeschrieben. Se non si aggiorna, è possibile che si verifichi un problema e non sarà più visualizzato.
Era un codice meinem falsch?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Tutte le tabelle si trovano in un formato Excel-Datei (modello abilitato per macro).
Sarei stato molto felice, quando qui avrei potuto aiutare.
Herzlichen Dank im Vorfeld.
Timoteo
Sottofiltro_TeamUpdate()
'
' Macro Filter_TeamUpdate
Timotee
'
lngLastRowANNA = Fogli("ANNA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRowJULIA = Fogli("JULIA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRowANDREA = Fogli("ANDREA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Row
Fogli("DISCUSSIONE SETTIMANALE").Seleziona
Fogli("ANNA").Intervallo("A1:H" & lngLastRowANNA).Azione AdvancedFilter:=xlFilterCopy, _
CriteriaRange:=Fogli("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range("A1") _
, Unico:=Falso
lngLastRow = Fogli("DISCUSSIONE SETTIMANALE").Cells(Rows.Count, 1).End(x1Up).Row
Fogli("JULIA").Intervallo("A1:H" & lngLastRowJULIA).Azione filtro avanzato:=xlFilterCopy, _
CriteriaRange:=Fogli("CRITERIAS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngUltimaRiga + 1) _
, Unico:=Falso
lngLastRow = Fogli("DISCUSSIONE SETTIMANALE").Cells(Rows.Count, 1).End(x1Up).Row
Fogli("ANDREA").Intervallo("A1:H" & lngLastRowANDREA).Azione AdvancedFilter:=xlFilterCopy, _
CriteriaRange:=Fogli("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngUltimaRiga + 1) _
, Unico:=Falso
lngLastRow = Fogli("DISCUSSIONE SETTIMANALE").Cells(Rows.Count, 1).End(x1Up).Row
End Sub
ich habe folgendes Anliegen und habe bereits mehrere Tutorials durchgeschaut. Doch leder klappt es immernoch nicht.
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt ( DISCUSSIONE SETTIMANALE) kopieren, wenn eine bestimmte Bedingung (Criteria) erfüllt ist.
Ora ho creato i macro e il seguente codice.
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. Quindi hab ich "CopyToRange" im Code umgeschrieben. Se non si aggiorna, è possibile che si verifichi un problema e non sarà più visualizzato.
Era un codice meinem falsch?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Tutte le tabelle si trovano in un formato Excel-Datei (modello abilitato per macro).
Sarei stato molto felice, quando qui avrei potuto aiutare.
Herzlichen Dank im Vorfeld.
Timoteo
Sottofiltro_TeamUpdate()
'
' Macro Filter_TeamUpdate
Timotee
'
lngLastRowANNA = Fogli("ANNA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRowJULIA = Fogli("JULIA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRowANDREA = Fogli("ANDREA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Row
Fogli("DISCUSSIONE SETTIMANALE").Seleziona
Fogli("ANNA").Intervallo("A1:H" & lngLastRowANNA).Azione AdvancedFilter:=xlFilterCopy, _
CriteriaRange:=Fogli("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range("A1") _
, Unico:=Falso
lngLastRow = Fogli("DISCUSSIONE SETTIMANALE").Cells(Rows.Count, 1).End(x1Up).Row
Fogli("JULIA").Intervallo("A1:H" & lngLastRowJULIA).Azione filtro avanzato:=xlFilterCopy, _
CriteriaRange:=Fogli("CRITERIAS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngUltimaRiga + 1) _
, Unico:=Falso
lngLastRow = Fogli("DISCUSSIONE SETTIMANALE").Cells(Rows.Count, 1).End(x1Up).Row
Fogli("ANDREA").Intervallo("A1:H" & lngLastRowANDREA).Azione AdvancedFilter:=xlFilterCopy, _
CriteriaRange:=Fogli("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngUltimaRiga + 1) _
, Unico:=Falso
lngLastRow = Fogli("DISCUSSIONE SETTIMANALE").Cells(Rows.Count, 1).End(x1Up).Row
End Sub