Excel Eliminazione Righe X=? Valore

[Statix]

Ciao a tutti,
ho un problema da risolvere ,
avrei bisogno di una macro che mi elimina un Range in base ad un valore.
faccio un esempio
Range B5:H8000 ,trovato un valore X=37
mi elimina dall'alto partendo da B5 un range di 37 righe,

Codice: Seleziona tutto

Sub Elimina()


    Range("B5:H37").Select
    Selection.Delete Shift:=xlUp
End Sub

il Range diventa B5:H7963
trovato un altro valore X=12
mi cancelli altre 12 righe
il Range diventa B5:H7951
non riesco a collegare X=? Valore alla macro,in quanto il valore cambia continuamente.
Grazie

[Anthony47]

Puoi usare "Resize"; se il tuo "X" e' contenuto nella variabile pippo, puoi usare qualcosa come

Codice: Seleziona tutto

Range("B5").Select    'La prima cella del tuo range
Selection.Resize(pippo-1, 6).Delete Shift:=xlUp        'B:H, altezza = pippo


Ciao.

[Statix]

Ciao Anthony
la variabile è in una cella ,esempio K1,la cella K1 trova il max di un range di numeri,
esempio K1=max 34
la macro deve prendere questo valore ed eliminarmi 34 righe del range B5:H8000
ad ogni nuova ricerca la cella K1 cambia valore esempio K1=max 56
la macro prende questo valore ed elimina altre 56 righe del range B5:H8000
e cosi per ogni ciclo di ricerca.

[Statix]

Ciao Anthony
ho risolto,grazie

[Flash30005]

Stavo cercando anche io qualcosa per Statix quando è arrivata una persona a trovarmi e non ho potuto postare
e ora trovo già la soluzione di Anthony, che faccio? invio anche io il post?
Ma melius abundare quam deficere

Codice: Seleziona tutto

Sub Elimina()

Nrighe = Sheets("Foglio1").Range("J2").Value

    Range("B5:H" & Nrighe).Select
    Selection.Delete Shift:=xlUp
End Sub

Ho previsto in J2 la variabile (n° righe da togliere ogni volta)
Ciao