Confronta Cella e Somma

[Ale.1989Partecipante Ale.1989]

Buongiorno a tutti, avrei bisogno di un aiuto. dovrei aggiungere alla macro "somma" presente nel foglio allegato un istruzione che mi permetta di lavorare nel foglio "PROVA CARICHI" in particolare devo confrontare la cella B5 con l'intervallo b35:ba35 e aggiungere il valore contenuto in F2 nella riga 36 corrispondente.

Nel foglio allegato usato ad esempio dovrei sommare il valore contenuto in f2 alla cella g36 ( in quanto b5=g35 )

Grazie a chi mi aiuta

Allegati:

You must be logged in to view attached files.

[rollis13Partecipante rollis13 Karma: 8 pts]

Inserisci queste poche righe di codice in quella posizione e ottieni quello che chiedi. L'unica criticità che posso anticipare, non sapendo come gestisci la riga 35, è nel caso in cui ti dimentichi di aggiungere un'eventuale 53^ settimana (potrai sempre inserire un ulteriore controllo):

'...
Next i
Dim rng   As Range
With Sheets("PROVA CARICHI")
    Set rng = .Range("B35:BA35").Find(What:=.Range("B5").Value, LookIn:=xlValues, LookAt:=xlWhole) 'cerca la settimana
    rng.Offset(1, 0) = rng.Offset(1, 0) + .Range("F2")   'somma alla cella sottostante il valore
End With
Worksheets("MASCHERA RICERCA").Select
'...

[Ale.1989Partecipante Ale.1989]

Grazie mille, funziona alla perfezione

[rollis13Partecipante rollis13 Karma: 8 pts]

Grazie per il riscontro positivo , sono contento di essere stato di qualche aiuto.

[Autore]

Articoli