LA enti penultima pregunta :P

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range

On Error Resume Next
Set Rng = Intersect(Target, _

Range("F18:F30,C18:C30,D18:D30,E18:E30,G18:G30,I18:I30,K18:K30,L18:L30"))
On Error GoTo 0
If Rng Is Nothing Then Exit Sub

Dim c As Range
Dim Hoja As Worksheet
For Each c In Rng
Select Case c.Column
Case 6: Dest = "H6,H23,H40" '"F"
Case 3: Dest = "F7,F24,F41" '"C"
Case 4: Dest = "I7,I24,I41" '"D"
Case 5: Dest = "L7,L24,L41" '"E"
Case 7: Dest = "K9,K26" '"G"
Case 9: Dest = "K10,K27" '"I"
Case 11: Dest = "M14,M31" '"K"
Case 12: Dest = "M12,M29" '"L"
End Select

On Error Resume Next
Set Hoja = Worksheets(c.Row - 16)
On Error GoTo 0
If Not Hoja Is Nothing Then
c.Copy Worksheets(c.Row - 16).Range(Dest)
Else
MsgBox "No existe hoja numero " & (c.Row - 16)
End If
Next c
End Sub

perdoname... la formula anda de 10 excelente pero aparte de la
formula en

la misma hoja tambien necesitaria que se copie otras cosas como R35 en hoja
2 to

14 en E3,E20,E37 y R36 en Hoja 2 to 14 en E5,E22,E39, tambien aparte quiero

copiar el resultado de una formulas Supongamos que en r3 esta el resultado de

r1+r2... ese resultado lo quiero pasar a otra hoja, hoja 2 E37 pero R1 y R2

pueden cambiar sus valores... y el resultado cambia.. al cambiar quiero que

pase automaticamente al cambiar R1 y R2... pero es un poco mas complicado...

porque seria como el de "Case 9: Dest = "K10,K27" '"I"" alguno de
estos...

que estan los de resultado en H, J, N , W, el H de 18:30 hoja en

M9,M26, el J de 18:30 hoja en M10,m28, el N de 18:30 hoja en M16,M33 y W de

18:30 hoja en M15,M32

te lo puse asi porque es muy largo y te podes perder... siempre me pasa a
mi...

PD: lo que me pasa cuando le pongo copiar el resultado de una formula es que
cuando cambia el resultado.. en la copia no cambia...

PD2: quisiera todo para la misma formula que me diste... osea que se
complemente en esa formula



Expandir todoContraer todo