problema con macro excel

Iniciado por juanlgh82, Noviembre 16, 2022, 05:03:54 AM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Noviembre 16, 2022, 05:03:54 AM Ultima modificación: Noviembre 16, 2022, 05:21:25 AM por juanlgh82
estoy realizando una macro en excel y me da un fallo tiene que ponerse el fondo amarillo y poner caducado
estoy usando offset y me sale todo bien menos en tres columnas que sale desplazado tres columnas mas alla

Sub Caducadas()
'asigna a la variable ws la hoja*
Dim ws As Worksheet
'rango de celdas'
Dim celda, celdas As Range
'asigna la hoja'
Set ws = Worksheets("2022")
'selecciona las celdas'
Set celdas = ws.Range("A10", Range("A10").End(xlDown))
'recorre las celdas offset coordenadas de las celdas'
For Each celda In celdas
'si la lo que hay en la celda es mayor que 1 escribe caducado y  lo pone en amarillo'
If celda.Offset(3, 3).Value <= 1 Then
celda.Offset(3, 3).Value = "caducado"
celda.Offset(3, 3).Interior.ColorIndex = 27
Else
celda.Offset(3, 3).Interior.Pattern = xlNone
celda.Offset(3, 3).Value = ""
End If
Next celda
End Sub

Private Sub Workbook_Open()
Call Caducadas
End Sub


No tienes permitido ver los links. Registrarse o Entrar a mi cuenta