Actualizar 3 hojas al abrir una hoja
En excel, al abrir la hoja4, necesito que las hoja1, hoja2, hoja3, se actualicen para recoger los datos actualizados.
1 Respuesta
Las tres hojas se actualiza por meses la venta diaria.
En su propia página tiene:
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:="1"
On Error Resume Next
Application.ScreenUpdating = False
col_mes_actual = Format([r1], "m") + 4
For rw = 7 To Range("c65536").End(xlUp).Row
If Cells(rw, 3) <> "" Then
If col_mes_actual = 5 Then
Cells(rw, 5) = Cells(rw, 4) * 1
Else
Cells(rw, col_mes_actual) = Cells(rw, 4) - Application.Sum(Range(Cells(rw, 5), Cells(rw, col_mes_actual - 1)))
End If
End If
Next rw
Application.ScreenUpdating = True
ActiveSheet.ScrollArea = "A1:T110"
ActiveSheet.Protect Password:="1"
End Sub
Y es necesario abrirlas una por una para su actualización, y de lo que trato es que se actualicen sin abrirlas, al abrir la hoja4.
Gracias por atenderme tan rápido, eres muy amable
Pon el siguiente evento en tu hoja4
Private Sub Worksheet_Activate()
'Por.Dante Amor
Sheets("Hoja1").Select
Sheets("Hoja2").Select
Sheets("Hoja3").Select
Application.EnableEvents = False
Sheets("Hoja4").Select
Application.EnableEvents = True
End Sub
Mañana que es 1 de enero lo mirare y ya te digo.
Gracias por ser tan amable y rápida tu contestación.
Que Dios te bendiga, y a tu casa.
Fabuloso, perfecto, inmejorable, no puede ser mejor.
Muchísimas gracias por perfección, rapidez y voluntad de ayudar-
Que Dios te bendiga
Con gusto!
