Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro per scrivere valore su celle in base a criteri

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro per scrivere valore su celle in base a criteri

Postdi luca62 » 14/11/15 09:43

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?
luca62 office2007 window7
luca62
Utente Senior
 
Post: 158
Iscritto il: 23/12/12 14:54

Sponsor
 

Re: macro per scrivere valore su celle in base a criteri

Postdi Anthony47 » 14/11/15 14:56

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "macro per scrivere valore su celle in base a criteri":


Chi c’è in linea

Visitano il forum: salatony e 8 ospiti