[VBA EXCEL]aiuto per ultimare un lavoro

[gimar]

scusate se ricorro a voi, ma ho un problema che non riesco a risolvere.dal file allegato,vorrei che se nella casella g41 c'è s vorrei ricopiare i dati c32,k32,m32,r32sul foglio restituzioni dalla casella p8 in poi,se invece c'è scritto b vorrei copiare gli stessi dati su foglio 1 dalla c7 in poi .grazie anticipatamente

[L’estensione zip è stata disattivata e non puó essere visualizzata.]

[Anthony47]

Probabilmente ti sei complicato la vita risolvendo prima gli aspetti estetici (leggasi celle unite: sono una trappola per tutti) invece che quelli funzionali...
Per venirne fuori:
-in 4 celle libere e contigue, ricreati i valori che hai in c32, k32, m32 e r32 (bastano formule tipo =C32)
-poi ti registri una macro mentre copi queste nuove celle in P8 (fai "incolla-speciale /Valori)
-e un' altra mentre copi le stesse celle su foglio1

Poi nel modulo codice del foglio Restituzioni inserisci questa macro:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("G41").Value = "S" Then Call Macro1    '<<<<< Cambiare
If Range("G41").Value = "B" Then Call Macro2    '<<<<< Cambiare
Application.EnableEvents = True
End Sub

(da excel, tasto dx sul tab del nome foglio "Restituzioni", scegli Visualizza codice, incolli il codice nel frame vuoto di dx)

Sostituisci subito Macro1 e Macro2 con i nomi delle macro che hai registrato, e provi.
Ciao.

[gimar]

grazie anthony sei veramente squisito.
grazie di nuovo e un saluto