Bună,
Lucrez cu Excel 2013,
Am nevoie de filtrul automat „#N/A” în coloana „F”, dacă filtrul „#N/A” nu există date cu titlul, codul „Goto 0:” nu...
dar, codul meu nu funcționează, trec la 0:
Subtestsss()
„Inserați filtru și #N/A Copiați și lipiți
„VBA – Dezactivați filtrul automat din cod
Dacă ActiveSheet.AutoFilterMode Atunci
ActiveSheet.AutoFilterMode = False „ActiveSheet.Range(„A1”).AutoFilter ---> Activați filtrul automat
Final, dacă
'Auto Filter 2nd Column Blank Cells filter
Dim LastRow As Long
LastRow = Range("B" & Rows.Count).End(xlUp).Row
La eroare Reluați următoarea „dacă filtrul, atunci nu urmează date
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" „Filtrați celulele care nu se aplică, apoi selectați celulele vizibile
Interval(„$A$2:$F” și LastRow).SpecialCells(xlCellTypeVisible).Selectați
„Opriți copierea și lipirea dacă intervalul filtrat nu are date
If Range("A1:F" și LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Interval(„$B$2:$D” și LastRow).SpecialCells(xlCellTypeVisible).Selectați
Selectare.Copiere
'Fă ceva cod .........
Application.CutCopyMode = Fals
Altfel
ActiveSheet.AutoFilterMode = Fals
Du-te la 0:
Final, dacă
'Fă ceva cod .........
0:
End Sub
Va rog frumos sa ma ajutati, multumesc anticipat
Opriți copy paste dacă intervalul filtrat nu are date.zip
Opriți copy paste dacă intervalul filtrat nu are date.zip
Lucrez cu Excel 2013,
Am nevoie de filtrul automat „#N/A” în coloana „F”, dacă filtrul „#N/A” nu există date cu titlul, codul „Goto 0:” nu...
dar, codul meu nu funcționează, trec la 0:
Subtestsss()
„Inserați filtru și #N/A Copiați și lipiți
„VBA – Dezactivați filtrul automat din cod
Dacă ActiveSheet.AutoFilterMode Atunci
ActiveSheet.AutoFilterMode = False „ActiveSheet.Range(„A1”).AutoFilter ---> Activați filtrul automat
Final, dacă
'Auto Filter 2nd Column Blank Cells filter
Dim LastRow As Long
LastRow = Range("B" & Rows.Count).End(xlUp).Row
La eroare Reluați următoarea „dacă filtrul, atunci nu urmează date
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" „Filtrați celulele care nu se aplică, apoi selectați celulele vizibile
Interval(„$A$2:$F” și LastRow).SpecialCells(xlCellTypeVisible).Selectați
„Opriți copierea și lipirea dacă intervalul filtrat nu are date
If Range("A1:F" și LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Interval(„$B$2:$D” și LastRow).SpecialCells(xlCellTypeVisible).Selectați
Selectare.Copiere
'Fă ceva cod .........
Application.CutCopyMode = Fals
Altfel
ActiveSheet.AutoFilterMode = Fals
Du-te la 0:
Final, dacă
'Fă ceva cod .........
0:
End Sub
Va rog frumos sa ma ajutati, multumesc anticipat
Opriți copy paste dacă intervalul filtrat nu are date.zip
Opriți copy paste dacă intervalul filtrat nu are date.zip