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

[biancocandido55]

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.
ciao a presto,
bianco55

[Flash30005]

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

[biancocandido55]

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 , mondiale
un abbraccio come sempre,
bianco55