VB excel aggiungi riga a ricorrenza

[EgidioNR]

Salve a tutti, ho un piccolo problema con un foglio excel , dovrei far si che quando in una determinata colonna trova un valore lo sposta sotto al valore precedente aggiungendo una riga....

esempio...

se trova un valore in B1 lo deve spostare in A2 aggiungendo una riga....



si accettano consigliiiiiiiiiiiiiiiiiiiii GRAZIE!!!

[gibra]

Il consiglio è quello di iniziare prima di tutto a scrivere il codice, fare dei test e poi vedere che errore riscontri e caso mai postare il codice indicando dove e quale errore ti da.

In genere, nei forum tecnici, si procede così...

[EgidioNR]

Ok.. grazie allora ora divido il problema in parti .... parte uno aggiungere sotto a ogni riga del foglio excel altre 7 .... ora provo e posto codice

[EgidioNR]

Questo e il il codice per aggiungere le righe , problema se eseguo la macro lo fa' solo per la prima come posso renderlo per tutte!!!!!



Sub aggiungi()
'
' aggiungi Macro
' Macro registrata il 06/09/2012 da Admin
'

'
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
End Sub

[gibra]

Devi modificare la macro:
Ti server eseguire un ciclo, te lo scrivo in quasi-pseudo-codice, a grandi linee (anche perchè non so niente del tuo foglio):

Dim i as long
For i = <riga_inizio> to <riga_fine>
    1. seleziona la riga i
    If cella("B", i ) = valore Then
        2. inserisco riga
        3. sposto valore
    End If
Next i

N.B. come da REGOLAMENTO, il codice lo devi racchiudere tra gli appositi tag [code ] e [/code ]
(senza lo spazio prima della parentesi quadra chiusa)
e deve essere indentato (guarda il mio)

[EgidioNR]

GRAZIE..............