Como copiar una fórmula en celdas donde solo exista un valor
Tengo la siguiente fórmula:
Sheets("resumen").Range("P:P"). Formula = "=O1*1.12"El problema es que me copia la fórmula en toda la columna y se vuelve infinita, lo que necesito es que me la copie hasta donde la columna P exista un valor.
1 Respuesta
Respuesta de José Saúl Méndez Alonso
1
Te dejo un código que puede servirte para rellenar la columna con la fórmula y detenerse cuando encuentre una celda vacía.
Sub Rellenar()
On Error GoTo Err_Rellenar
Dim nCel As Integer
nCel = 2
While Not Trim(Range("O" & nCel).Value) = ""
Range("P" & nCel).Formula = "=O" & nCel & "*1.12"
nCel = nCel + 1
Wend
Exit_Rellenar:
Exit Sub
Err_Rellenar:
MsgBox "Se generó una excepción " & Err.Number & " - " & Err.Description
Resume Exit_Rellenar
End Sub
