Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Inserimento Riga in base a condizione

Ultimo Aggiornamento: 20/06/2020 23:35
Post: 20
Registrato il: 26/10/2018
Città: CASALE MONFERRATO
Età: 38
Utente Junior
2016
OFFLINE
20/06/2020 17:58

Buonasera a tutti,

avrei bisogno di un aiuto, sto cercando di automatizzare un foglio excel.
Sto cercando di usare un ciclo For Next per far sì che ogni volta che in colonna A c'è scritto Data venga inserita una riga vuota al di sopra, deve essere una riga bianca, non formattata.
Ho trovato un codice e ho provato ad adattarlo alla mia esigenza, ma funziona solo in parte e sono bloccata non avendo una buona conoscenza di linguaggio VBA.
Attualmente riesco o ad inserire una riga bianca sopra la prima riga oppure 7 righe bianche sopra la prima riga (le righe contenute nel file attualmente sono 7 ma variano di volta in volta).
Io vorrei che indipendentemente dal numero di righe contenute nel foglio, che possono variare, un ciclo che quando incontra la parola "Data" inserisca una riga vuota sopra.
Allego un file di esempio.

Grazie mille in anticipo a chi vorrà aiutarmi.

Saluti

Alessandra
Post: 951
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
20/06/2020 23:35

Riscrivi così la macro per realizzare quello che hai in mente. Partendo da sotto non si ha lo sfasamento del conteggio delle righe dopo aver inserito quella vuota:
Sub Prova()

    For uriga = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Cells(uriga, 1) = "Data" Then
            Cells(uriga, 1).EntireRow.Insert
        End If
    Next
    
End Sub
[Modificato da rollis13 20/06/2020 23:36]

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 07:06. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com