La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Ciao, come posso eliminare le righe vuote presenti in questo elenco con comando semplice tipo un doppio click? Senza dover selezionarle fare ctrl- oppure il comando F5, una cosa semplice come il doppio click che aggiorna la data.
Ciao
Prova con questo codice
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A5:A1000")) Is Nothing Then
Dim ur As Long, i As Long
ur = Cells(Rows.Count, 1).End(xlUp).Row
For i = ur To 5 Step -1
If Cells(i, 1) = "" Then
Rows.EntireRow(i).Delete
End If
Next i
End If
Cancel = True
End Sub
Ciao,
Mario
Ma va nel foglio o devo creare un modulo? Perchè nel foglio ho già un codice per la data automatica, proseguo sotto?
Dice rilevato nome non univoco, forse ho sbagliato qualcosa?
Ciao
Devi "sostituirlo" al tuo.
Ciao,
Mario
No mi servono entrambi sia la data automatica che la cancellazione delle righe vuote.
Ciao
Beh, datti un po' da fare tu. Vedi se riesci ad assemblare le due cose.
Ciao,
Mario
spiegazioni sempre super esaustive
ciao
dai
basta che incolli una sotto l'altra
senza la parte in rosso
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
parte da copiare
- end sub
ciao
cancella il primo END SUB
