0

Lo que necesito es aplicar una formula hasta que haya una celda en blanco/vacía en la columna A.

De momento tengo este código

    Sub Macro5()
'
' Macro5 Macro
'

'
    ActiveCell.FormulaR1C1 = "=""'000""&MID(RC[-1],1,13)&""000',"""
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B1500")
    Range("B1:B1500").Select
End Sub

De que manera tendría que modificar el rango para que el resultado se vea reflejado en la columna B?, conforme a la condición de última celda no vacía en A.

Gracias de antemano.

1
  • Por favor, aclara tu problema específico o proporciona detalles adicionales para resaltar exactamente lo que necesitas. Tal como está escrito, es difícil saber exactamente qué estás preguntando.
    – Comunidad Bot
    Commented el 27 sept. 2022 a las 4:58

1 respuesta 1

1

Prueba del siguiente modo:

Dim UltimaFila As Long

UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row
Range("B1").FormulaR1C1 = "=""'000""&MID(RC[-1],1,13)&""000',"""
Range("B1").AutoFill Destination:=Range("B1:B" & UltimaFila)

Comentas.

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.