Comunidade amor
ich habe folgendes Anliegen und habe bereits mehrere Tutoriais durchgeschaut. Doch leider klappt es immernoch nicht.
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt ( DISCUSSÃO SEMANAL) kopieren, wenn eine bestimmte Bedingung (Criteria) erfüllt ist.
Eu já usei Macros e o seguinte código foi criado.
Zunächst wurde nur die Information aus einem Tabellenblatt anzeigt, obwohl mein Code all 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. Então hab ich "CopyToRange" no código umgeschrieben. Bei nochmaligem updaten pode dann aber eine Fehlermeldung und es wurde nichts more angezeigt.
É um meinem Code falsch?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Todos os Tabellenblätter sind in einer Excel-Datatei (Modelo Habilitado para Macro).
Eu fui muito longe, quando aqui eu posso ajudar.
Herzlichen Dank em Vorfeld.
Timothy
SubFiltro_TeamUpdate()
'
' Filter_TeamUpdate Macro
' Timotee
'
lngLastRowANNA = Sheets("ANNA").Cells(Rows.Count, 1).End(x1Up).Row
lngÚltimoLinhaJULIA = Sheets("JULIA").Células(Linhas.Contagem, 1).Fim(x1Cima).Linha
lngLastRowANDREA = Sheets("ANDREA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Row
Planilhas("DEBATE SEMANAL").Selecione
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Planilhas("CRITÉRIOS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range("A1") _
, Único:=Falso
lngLastRow = Sheets("WEKLY DISCUSSION").Cells(Rows.Count, 1).End(x1Up).Row
Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Planilhas("CRITÉRIOS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Único:=Falso
lngLastRow = Sheets("WEKLY DISCUSSION").Cells(Rows.Count, 1).End(x1Up).Row
Sheets("ANDREA").Range("A1:H" & lngLastRowANDREA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Planilhas("CRITÉRIOS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Único:=Falso
lngLastRow = Sheets("WEKLY DISCUSSION").Cells(Rows.Count, 1).End(x1Up).Row
End Sub
ich habe folgendes Anliegen und habe bereits mehrere Tutoriais durchgeschaut. Doch leider klappt es immernoch nicht.
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt ( DISCUSSÃO SEMANAL) kopieren, wenn eine bestimmte Bedingung (Criteria) erfüllt ist.
Eu já usei Macros e o seguinte código foi criado.
Zunächst wurde nur die Information aus einem Tabellenblatt anzeigt, obwohl mein Code all 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. Então hab ich "CopyToRange" no código umgeschrieben. Bei nochmaligem updaten pode dann aber eine Fehlermeldung und es wurde nichts more angezeigt.
É um meinem Code falsch?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Todos os Tabellenblätter sind in einer Excel-Datatei (Modelo Habilitado para Macro).
Eu fui muito longe, quando aqui eu posso ajudar.
Herzlichen Dank em Vorfeld.
Timothy
SubFiltro_TeamUpdate()
'
' Filter_TeamUpdate Macro
' Timotee
'
lngLastRowANNA = Sheets("ANNA").Cells(Rows.Count, 1).End(x1Up).Row
lngÚltimoLinhaJULIA = Sheets("JULIA").Células(Linhas.Contagem, 1).Fim(x1Cima).Linha
lngLastRowANDREA = Sheets("ANDREA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Row
Planilhas("DEBATE SEMANAL").Selecione
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Planilhas("CRITÉRIOS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range("A1") _
, Único:=Falso
lngLastRow = Sheets("WEKLY DISCUSSION").Cells(Rows.Count, 1).End(x1Up).Row
Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Planilhas("CRITÉRIOS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Único:=Falso
lngLastRow = Sheets("WEKLY DISCUSSION").Cells(Rows.Count, 1).End(x1Up).Row
Sheets("ANDREA").Range("A1:H" & lngLastRowANDREA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Planilhas("CRITÉRIOS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Único:=Falso
lngLastRow = Sheets("WEKLY DISCUSSION").Cells(Rows.Count, 1).End(x1Up).Row
End Sub