Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Elimina righe dal n° ...... con inputbox.

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

Elimina righe dal n° ...... con inputbox.

Postdi biancocandido55 » 31/07/10 15:22

Un saluto a tutto il forum,
sono sicuro che molti di voi si trovino in vacanza a prendere il sole!!!! :) :)
Ma noto con piacere che la vostra presenza è sempre costante.
Ho dato un occhiata in internet per trovare una soluzione al mio problema come da titolo, ma nulla di specifico.
La macro che mi occorre deve eliminare righe non vuote dal numero di riga selezionato tramite inputbox.
Un grazie, un saluto e buone vacanze a tutti. Immagine Immagine Immagine :lol: :lol: 8)
ciao a presto,
bianco55 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Sponsor
 

Re: Elimina righe dal n° ...... con inputbox.

Postdi Flash30005 » 01/08/10 00:18

Calcoli le righe del tuo foglio
con un codice tipo
Codice: Seleziona tutto
RTot = Range("A" & Rows.Count).End(xlUp).Row

Poi "intercetti" l'input box esempio ValIB = valore Input Box
e infine con questo codice
Codice: Seleziona tutto
 Rows(ValIB & ":" & RTot).Delete Shift:=xlUp


elimini tutte le righe dal numero riga dell'Input Box fino alla fine delle righe "piene"
del resto chiedi di togliere tutte le righe non vuote quindi anche se hai delle righe vuote (eventualmente tra quelle con dati) puoi toglierle ugualmente senza problemi.

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Elimina righe dal n° ...... con inputbox.

Postdi biancocandido55 » 01/08/10 08:18

Ciao Flash,
come sempre ti ringrazio,
per il tuo rapido intervento ;) ,
riposto qui il codice completo della macro:
Codice: Seleziona tutto
Sub Elimina_righe()
'
' Elimina_righe Macro
'
RTot = Range("A" & Rows.Count).End(xlUp).Row
        ValIB = Application.InputBox("Elimina righe dal n°")
Rows(ValIB & ":" & RTot).Delete Shift:=xlUp
End Sub

ragazzi, altro che eurostar, qui abbiamo un EuroFlash , mondialeImmagine
un abbraccio come sempre,
bianco55 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15


Torna a Applicazioni Office Windows


Topic correlati a "Elimina righe dal n° ...... con inputbox.":


Chi c’è in linea

Visitano il forum: patel e 6 ospiti