Ciao,
Sto lavorando Excel 2013,
Ho bisogno del filtro automatico "#N/A" nella colonna "F", se il filtro "#N/A" non contiene dati con l'intestazione, il codice "Vai a 0:" non ...
ma, il mio codice non funziona, vai a 0:
Sub testss()
'Filtra Inserisci e #N/D Copia e Incolla
'VBA - Disattiva filtro automatico dal codice
Se ActiveSheet.AutoFilterMode allora
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range ("A1"). Filtro automatico ---> Attiva filtro automatico
End If
'Filtro automatico delle celle vuote della seconda colonna
Abbassa l'ultima riga finché
UltimaRiga = Intervallo("B" & Righe.Conteggio).Fine(xlSu).Riga
In caso di errore Riprendi il prossimo 'se il filtro non viene eseguito alcun dato
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Filtra celle non applicabili quindi seleziona celle visibili
Intervallo("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Seleziona
'Interrompi copia incolla se l'intervallo filtrato non contiene dati
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Allora
Intervallo("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Seleziona
Selection.Copy
'Codice Fare Qualcosa.........
Application.CutCopyMode = False
Altro
ActiveSheet.AutoFilterMode = Falso
Vai a 0:
End If
'Codice Fare Qualcosa.........
0:
End Sub
Gentilmente aiutami, grazie per l'anticipo
Interrompi il copia incolla se l'intervallo filtrato non ha data.zip
Interrompi il copia incolla se l'intervallo filtrato non ha data.zip
Sto lavorando Excel 2013,
Ho bisogno del filtro automatico "#N/A" nella colonna "F", se il filtro "#N/A" non contiene dati con l'intestazione, il codice "Vai a 0:" non ...
ma, il mio codice non funziona, vai a 0:
Sub testss()
'Filtra Inserisci e #N/D Copia e Incolla
'VBA - Disattiva filtro automatico dal codice
Se ActiveSheet.AutoFilterMode allora
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range ("A1"). Filtro automatico ---> Attiva filtro automatico
End If
'Filtro automatico delle celle vuote della seconda colonna
Abbassa l'ultima riga finché
UltimaRiga = Intervallo("B" & Righe.Conteggio).Fine(xlSu).Riga
In caso di errore Riprendi il prossimo 'se il filtro non viene eseguito alcun dato
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Filtra celle non applicabili quindi seleziona celle visibili
Intervallo("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Seleziona
'Interrompi copia incolla se l'intervallo filtrato non contiene dati
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Allora
Intervallo("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Seleziona
Selection.Copy
'Codice Fare Qualcosa.........
Application.CutCopyMode = False
Altro
ActiveSheet.AutoFilterMode = Falso
Vai a 0:
End If
'Codice Fare Qualcosa.........
0:
End Sub
Gentilmente aiutami, grazie per l'anticipo
Interrompi il copia incolla se l'intervallo filtrato non ha data.zip
Interrompi il copia incolla se l'intervallo filtrato non ha data.zip