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
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