Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel Eliminazione Righe X=? Valore

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

Excel Eliminazione Righe X=? Valore

Postdi Statix » 08/04/09 08:27

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
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Excel Eliminazione Righe X=? Valore

Postdi Anthony47 » 08/04/09 14:45

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.
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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel Eliminazione Righe X=? Valore

Postdi Statix » 08/04/09 15:47

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
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Eliminazione Righe X=? Valore

Postdi Statix » 08/04/09 16:01

Ciao Anthony
ho risolto,grazie
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Eliminazione Righe X=? Valore

Postdi Flash30005 » 08/04/09 16:18

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
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-


Torna a Applicazioni Office Windows


Topic correlati a "Excel Eliminazione Righe X=? Valore":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti