Inserimento righe condizionato

Hai un problema con Excel?

Nuova discussione

Inserimento righe condizionato
di pavonereale (utente non iscritto) data: 27/02/2014 16:32:53
Buonasera, sono alle prime nella programmazione excel con vba. Avrei bisogno di una macro che mi permetta di:
- Scorrere la colonna A, se trova un certo valore allora:
- aggiungere due righe;
- inserire del testo prestabilito nella colonna C in corrispondenza delle due righe aggiunte in precedenza;

Grazie per la collaborazione, saluti

di Lucas87 data: 27/02/2014 17:03:04
Ciao
Usa la prima se nella colonna a non sono presenti doppioni, altrimenti usa la seconda.
il valore da cercare è la variabile valore. Se sono lettere vanno messe tra "" ("così")

Sub senza_doppi()
valore = 8
If Not Columns(1).Find(What:=valore) Is Nothing Then
    Columns(1).Find(What:=valore).Activate
Else
    MsgBox "Valore non trovato."
End If
r = Selection.Row
Rows(r + 1 & ":" & r + 2).Insert
Cells(r + 1, 3) = "tuo_testo1"
Cells(r + 2, 3) = "tuo_testo2"
End Sub

Sub con_doppi()
valore = 8
i = 1
k = Range("a" & Rows.Count).End(xlUp).Row
Do
    If Cells(i, 1) = valore Then
        Rows(i + 1 & ":" & i + 2).Insert
        Cells(i + 1, 3) = "tuo_testo1"
        Cells(i + 2, 3) = "tuo_testo2"
        k = k + 2
        i = i + 2
    End If
    i = i + 1
Loop Until i > k
End Sub

di pavonereale (utente non iscritto) data: 27/02/2014 17:26:24
Grandissimo, funziona perfettamente. Grazie mille

Vuoi Approfondire?