Skip to main content
cuerpo editado
Origen Enlace

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

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.

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.

se eliminaron 11 caracteres en el cuerpo
Origen Enlace

prueba del siguiente modo:

Dim UltimaFila As Long, x 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.

prueba del siguiente modo:

Dim UltimaFila As Long, x 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.

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.

Origen Enlace

prueba del siguiente modo:

Dim UltimaFila As Long, x 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.