Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
inserire nuova riga sopra
- Hai un problema con Excel?
inserire nuova riga sopra
di dap (utente non iscritto) data: 09/03/2016 17:46:13
Ciao a tutti ….. io sono a digiuno di VBA, ho provato a cercare in questo bellissimo forum qualcosa che mi risolvesse il problema ma non ho trovato nulla.
vorrei fare alla macro questa operazione:
quando nella colonna “E” trova la frase “Collettore 1”o “Collettore 2” o ”Collettore 3” mi inserisca due righe sopra una nuova riga vuota.
Esempio: quando la frase “Collettore 2” si trova in E25 inserisci la riga vuota in E22
Grazie per l'aiuto
di patel data: 09/03/2016 18:29:31
allega un file di esempio con i dati ed il risultato desiderato in un altro foglio
possono esserci più di una occorrenza ?
di Albatros54 data: 09/03/2016 18:50:57
Se ho capito.
Adattalo alle tue esigenze.Il codice postato lo devi inserire in un modulo e lo esegui.
Public Sub cerca() y = Range("e1").Address x = Range("e1").End(xlDown).Address Set elenco = Range(x, y) For Each cl In elenco If cl = Cells(1, 1) Then 'nella cella "A1" ho inserito il dato da cerca cl.Select ActiveCell.Offset(-2, 0).Insert Exit For End If Next End Sub
di dap (utente non iscritto) data: 09/03/2016 19:32:13
Prima di tutto ti ringrazio per la risposta,
macro che mi hai postato si aggiunge la cella in colonna E, ma io avrei bisogno di aggiungere una riga intera
di Albatros54 data: 09/03/2016 19:46:06
sostituisci la riga di codice
ActiveCell.Offset(-2, 0).Insert
con quella sotto
ActiveCell.Offset(-2, 0).EntireRow.Insert
di dap (utente non iscritto) data: 09/03/2016 20:13:53
Grazie mille, buonaseratsa
- Vuoi Approfondire?
