Pregunta para Dam
Hola Dam,
Sobre el proyecto ya resuelto de esta tarde se tendría de mirar de hacer alguna modificación porque no termina de hacer lo deseado.
El funcionamiento básico de las macros es correcto. Pero a la que una vez puesto un numero de paginas, si por lo que sea, me esta mal y se modifica, el la celda "L1" se suma la cantidad errónea más la que esta bien.
A más a más, a poder ser, el programa debería detectar cualquier modificación en cuanto a paginas se refiere, como borrar una fila entera por ejemplo.
Un saludo, IVAN
1 Respuesta
Respuesta de Dante Amor
1
Ya pude recuperar las macros, borra las anteriores y pon las siguientes
Para la hoja CONTROL IMPRESSIONS
Private Sub Worksheet_Change(ByVal Target As Range)
'por.dam
If Not Intersect(Target, Range("D:I")) Is Nothing Then
Set h1 = Sheets("Ingressos segons client IVAN")
h1.Range("L1") = h1.Range("K1") - h1.Range("M1")
If h1.Range("L1") >= 300 Then
continuar = MsgBox("Revisar niveles de tinta del ciss" & _
vbCr & vbCr & "Deseas reiniciar el contador", vbQuestion + vbYesNo, "IMPRESIONES")
If continuar = vbYes Then
h1.Range("L1") = 0
h1.Range("M1") = h1.Range("K1")
End If
End If
End If
End SubPara el libro
Private Sub Workbook_Open()
'Por.Dam
Sheets("Ingressos segons client IVAN").Range("M1") = _
Sheets("Ingressos segons client IVAN").Range("K1")
If Sheets("Ingressos segons client IVAN").Range("L1") >= 300 Then
continuar = MsgBox("Revisar niveles de tinta del ciss" & _
vbCr & vbCr & "Deseas reiniciar el contador", vbQuestion + vbYesNo, "IMPRESIONES")
If continuar = vbYes Then
Sheets("Ingressos segons client IVAN").Range("L1") = 0
End If
End If
End SubPrueba y me comenas
Saludos. Dam
Si es lo que necesitas.
