macro per scrivere valore su celle in base a criteri

[luca62]

in un file "Pippo" composto da n fogli, necessito di andare a scrivere dei dati in alcune celle in base a
certe condizioni.Tale macro deve essere valida su tutti i fogli del file tranne il primo e gli ultimi otto.
Tutte le volte che in una cella della colonna G (di tutti i fogli tranne il primo e gli ultimi 8 e per le celle di quella colonna che vanno da 3 inclusa alla 200), appare lo stesso testo presente nella cella n2 del primo foglio,e contemporaneamente , la cella della stessa riga nella colonna H sia vuota, devo andare a scrivere nella colonna H
(della stessa riga) il valore presente nella cella O2 del primo foglio , nella colonna I il valore presente nella cella P2 del primo foglio
e nella cella K il valore presente nella cella q2 del primo foglio.

AD esempio, supponendo che n2 del primo foglio sia = PLUTO ,02= 15/11/15,P2= 10999,Q2=30/11/15; se nel foglio 4 nella cella G8 appare PLUTO e la cella h8 è vuota,allora sempre nel foglio 4 devo scrivere nella cella h8 15/11/15, nella cella I8 10999 e nella cella k8 30/11/15.
è possibile?

[Anthony47]

Prova con questo codice, da inserire nel modulo ThisWorkbook del vba:

Codice: Seleziona tutto

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Index > 1 And Sh.Index <= (Worksheets.Count - 8) Then
    myrange = "G3:G200"
    If Not Application.Intersect(Range(myrange), Target) Is Nothing Then
        If Target.Value = Sheets(1).Range("N2") And _
          Target.Offset(0, 1).Value = "" Then
            Application.EnableEvents = False
            Target.Offset(0, 1).Value = Sheets(1).Range("O2").Value
            Target.Offset(0, 2).Value = Sheets(1).Range("P2").Value
            Target.Offset(0, 4).Value = Sheets(1).Range("Q2").Value
            Application.EnableEvents = True
        End If
    End If
End If
End Sub

Ciao