Comunidad de amor
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 ( DISCUSIÓN SEMANAL) kopieren, wenn eine bestimmte Bedingung (Criterios) erfüllt ist.
Ahora tengo macros activadas y un código modificado.
Zunächst wurde nur die Información 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. Así que hab ich "CopyToRange" im Code umgeschrieben. Bei nochmaligem updaten kann dann aber eine Fehlermeldung und es wurde nichts mehr angezeigt.
¿Fue falso un código meinem?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alle Tabellenblätter sind in einer Excel-Datei (Plantilla habilitada para macros).
Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Timoteo
Filtro secundario_Actualización del equipo ()
'
' Macro Filter_TeamUpdate
Timoteo
'
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
Hojas("DISCUSIÓN SEMANAL").Seleccione
Hojas("ANNA").Rango("A1:H" & lngLastRowANNA).Acción de filtro avanzado:=xlFilterCopy, _
Rango de Criterios:=Hojas("CRITERIOS").Rango("A2:H" & lngÚltimaFilaANNA), CopiarAlRango:=Rango("A1") _
, Único:=Falso
lngLastRow = Sheets("DISCUSIÓN SEMANAL").Cells(Rows.Count, 1).End(x1Up).Row
Hojas("JULIA").Rango("A1:H" & lngLastRowJULIA).Acción de filtro avanzado:=xlFilterCopy, _
CriterioRango:=Hojas("CRITERIOS").Rango("A2:H" & lngÚltimaFilaJULIA), CopiarAlRango:=Rango("A" & lngÚltimaFila + 1) _
, Único:=Falso
lngLastRow = Sheets("DISCUSIÓN SEMANAL").Cells(Rows.Count, 1).End(x1Up).Row
Hojas("ANDREA").Rango("A1:H" & lngLastRowANDREA).Acción de filtro avanzado:=xlFilterCopy, _
Rango de Criterios:=Hojas("CRITERIOS").Rango("A2:H" & lngÚltimaFilaANDREA), CopiarAlRango:=Rango("A" & lngÚltimaFila + 1) _
, Único:=Falso
lngLastRow = Sheets("DISCUSIÓN SEMANAL").Cells(Rows.Count, 1).End(x1Up).Row
End 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 ( DISCUSIÓN SEMANAL) kopieren, wenn eine bestimmte Bedingung (Criterios) erfüllt ist.
Ahora tengo macros activadas y un código modificado.
Zunächst wurde nur die Información 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. Así que hab ich "CopyToRange" im Code umgeschrieben. Bei nochmaligem updaten kann dann aber eine Fehlermeldung und es wurde nichts mehr angezeigt.
¿Fue falso un código meinem?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alle Tabellenblätter sind in einer Excel-Datei (Plantilla habilitada para macros).
Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Timoteo
Filtro secundario_Actualización del equipo ()
'
' Macro Filter_TeamUpdate
Timoteo
'
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
Hojas("DISCUSIÓN SEMANAL").Seleccione
Hojas("ANNA").Rango("A1:H" & lngLastRowANNA).Acción de filtro avanzado:=xlFilterCopy, _
Rango de Criterios:=Hojas("CRITERIOS").Rango("A2:H" & lngÚltimaFilaANNA), CopiarAlRango:=Rango("A1") _
, Único:=Falso
lngLastRow = Sheets("DISCUSIÓN SEMANAL").Cells(Rows.Count, 1).End(x1Up).Row
Hojas("JULIA").Rango("A1:H" & lngLastRowJULIA).Acción de filtro avanzado:=xlFilterCopy, _
CriterioRango:=Hojas("CRITERIOS").Rango("A2:H" & lngÚltimaFilaJULIA), CopiarAlRango:=Rango("A" & lngÚltimaFila + 1) _
, Único:=Falso
lngLastRow = Sheets("DISCUSIÓN SEMANAL").Cells(Rows.Count, 1).End(x1Up).Row
Hojas("ANDREA").Rango("A1:H" & lngLastRowANDREA).Acción de filtro avanzado:=xlFilterCopy, _
Rango de Criterios:=Hojas("CRITERIOS").Rango("A2:H" & lngÚltimaFilaANDREA), CopiarAlRango:=Rango("A" & lngÚltimaFila + 1) _
, Único:=Falso
lngLastRow = Sheets("DISCUSIÓN SEMANAL").Cells(Rows.Count, 1).End(x1Up).Row
End Sub