Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Cancella ultima riga piena ma non l'intestazione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Cancella ultima riga piena ma non l'intestazione

Postdi angelo72 » 13/05/14 20:54

Sono di nuovo qui nel chiedervi cortesemente un aiuto.
Con questo codice sotto riportato ( che ho trovato in rete) mi va a cancellare nel foglio Contatti l'ultima riga piena.

Dim cancel
cancel = MsgBox("Vuoi cancellare l'ultima riga?", vbExclamation + vbYesNo
If cancel = vbYes Then
sheets("Contatti").select
UR = Range("A" & Rows.Count).End(xlUp).Row
Rows(UR).ClearContents
MsgBox "Ultima riga cancellata."
End If

Il problema è: Io ho sul foglio Contatti le prime 3 righe "Intestazioni" dove ci sono dei dati fissi.
Quindi quando salvo dei dati, mi salva dalla riga quattro in poi.
Ma sei ho la quarta riga vuota e uso il codice su riportato, ecco qui nasce il problema.
Incomincia a cancellare la terza riga d'intestazione e così via.
Cè un modo per cancellare dall'ultima riga andando su senza cancellare le prime tre righe?
Grazie 1000
angelo72
Utente Junior
 
Post: 70
Iscritto il: 28/10/13 17:04

Sponsor
 

Re: Cancella ultima riga piena ma non l'intestazione

Postdi Anthony47 » 13/05/14 22:40

Prova aggiungendo un IF /End If :
Codice: Seleziona tutto
UR = Range("A" & Rows.Count).End(xlUp).Row
'
If UR >3 then
   Rows(UR).ClearContents
   MsgBox "Ultima riga cancellata."
Else
   MsgBox "Nessuna riga da cancellare"
End If
'
End If


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Cancella ultima riga piena ma non l'intestazione

Postdi angelo72 » 14/05/14 09:01

Grazie 1000 Anthony. :)
angelo72
Utente Junior
 
Post: 70
Iscritto il: 28/10/13 17:04


Torna a Applicazioni Office Windows


Topic correlati a "Cancella ultima riga piena ma non l'intestazione":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti

cron