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

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

Next

.Range("A1").Activate

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

End Sub

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

Hola

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

.Columns(1).NumberFormat = "000000"

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"
  

Claro;

Al iniciar el bloque With

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

Saludos

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

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

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" '<-----------Aquí serviría

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

Hola

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

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.