Macro para convertir en número sólo en una columna

CARLOS CARNERO · el 22 de febrero

Buenas a todos: Ante todo felicitar por tan excelente foro que contribuye mucho para usuarios como yo, ávidos de aprender cada día.

Tengo este código que hace que desde la hoja “Formulario_pantalla”copie algunas celdas y rango a otra hoja llamada “Kardex”. En realidad lo hace todo bien a excepción del copiado de la celda AJ5 (=TEXTO(AF3,"000000") de la primera hoja mencionada a la otra hoja a partir de la celda A4 donde aparece el icono de advertencia “El número de esta celda tiene formato de texto o va precedido por un apóstrofo” y luego manualmente tengo que convertir en número. Entonces por favor necesito el código que complemente esta tarea.

Gracias,

Carlos Carnero Gálvez

Private Sub CommandButton3_Click()

Dim I As Range

Dim RowI, ColI, LastRow As Long

Dim NumRow As Byte

Application.ScreenUpdating = False

If Range("AA33") <> "" Then

Set I = Range("AA33")

RowI = I.Row

ColI = I.Column

If Range("AA34") <> "" Then

LastRow = Cells(RowI, ColI).End(xlDown).Row

NumRow = LastRow - RowI + 1

Else

LastRow = 33

NumRow = LastRow - RowI + 1

End If

Worksheets("kardex").Activate

With Worksheets("kardex")

For NumRowAdd = 1 To NumRow

.Range("A4").EntireRow.Insert

.Range("H5:R5").Copy

.Range("H4:R4").PasteSpecial xlPasteFormulas

.Range("A5:R5").Copy

.Range("A4:R4").PasteSpecial Paste:=xlPasteFormats

Application.CutCopyMode = False

.Rows(4).EntireRow.AutoFit

.Cells(4, 6) = Worksheets("Formulario_pantalla").Cells(LastRow, ColI)

.Cells(4, 7) = Worksheets("Formulario_pantalla").Cells(LastRow, ColI + 1)

.Cells(4, 1) = Worksheets("Formulario_pantalla").Range("AJ5")

.Cells(4, 2) = Worksheets("Formulario_pantalla").Range("AA3")

.Cells(4, 4) = Worksheets("Formulario_pantalla").Range("AB3")

.Cells(4, 5) = Worksheets("Formulario_pantalla").Range("AC3")

.Cells(4, 3) = Worksheets("Formulario_pantalla").Range("AJ9")

LastRow = LastRow - 1

End With

End If

With Worksheets("Formulario_pantalla")

.Range("AE9:AF9").ClearContents

.Range("B6:B15").ClearContents

.Range("AE11:AF11").ClearContents

.Range("AA33:AB47").ClearContents

.Range("J51:P100").ClearContents

.Range("AG3:AH3").ClearContents

End With

$C:\Users\ADMINI~1\AppData\Local\Temp\msohtmlclip1\01\clip_image002.jpg$

End Sub

20150222 Convertir en número sólo en una columna.xls

Enigma25 · el 22 de febrero

Hola

Pudieras incluir en tu codigo esta linea que ayudaria a darle el tipo de formato;

.Columns(1).NumberFormat = "000000"

CARLOS CARNERO · el 22 de febrero

Estimado Enigma25: Te agradecería por favor indicarme exactamente en que lugar debó incluir el código que me indicas, ya que estoy intentando en:

.Range("A4").EntireRow.Insert.Columns(1).NumberFormat = "000000"
.Range("A4:R4").PasteSpecial Paste:=xlPasteFormats.Columns(1).NumberFormat = "000000"
.Cells(4, 1) = Worksheets("Formulario_pantalla").Range("AJ5").Columns(1).NumberFormat = "000000"

Enigma25 · el 22 de febrero

Claro;

Al iniciar el bloque With

With Worksheets("kardex")
            .Columns(1).NumberFormat = "000000" '&lt;-----------Aquí serviría
            For NumRowAdd = 1 To NumRow

Saludos

CARLOS CARNERO · el 22 de febrero

El mensaje de alerta indica que: “Se ha producido el error ‘424’ en tiempo de ejecución: Se requiere un objeto”: y sombrea en fondo amarillo esta línea: “.Range("A4").EntireRow.Insert” , te adjunto el archivo modificado.

Gracias y disculpa que reste tu tiempo valioso.

20150222a Convertir en número sólo en una columna.xls

Enigma25 · el 22 de febrero

Descuida

Pero ese error es otra cosa distinta al tipo de formato.

Te paso lo que modifiqué.

20150222 Convertir en número sólo en una columna.zip

Enigma25 · el 22 de febrero

Ah ya vi

Lo pusiste mal

  With Worksheets("kardex").Columns(1).NumberFormat = "000000"
            For NumRowAdd = 1 To NumRow

Cuando en realidad era:

With Worksheets("kardex")

.Columns(1).NumberFormat = "000000" '&lt;-----------Aquí serviría

CARLOS CARNERO · el 22 de febrero

Estimado Enigma25: Si te fijas en la A4 de la hoja Kardex (A4:A6) continua el error antes citado, cuando he llamado a tres registros en la solictud N°7 , adjunto el archivo.

20150222b Convertir en número sólo en una columna.zip

Enigma25 · el 22 de febrero

Hola

Como llamas a los registros, a través de formulario?

CARLOS CARNERO · el 22 de febrero

En efecto a través de la hoja "Formulario_pantalla" entre el rango AA33:AB47, en donde las que corresponden a la columna AA tiene formato de validación y las AB formato general.