Hola Amigos haber si me puedan ayudar con esto ya que recién me estoy iniciando con VB de Excel

Viendo en el foro encontré un formulario para ingresar datos con dos textbox (Codigo y Cantidad)...

He aumentado dos textbox mas (Nombre y Dirección) he probado con varios códigos, al ingresar los datos me borra las formulas de las demás celdas,,,, ahora modifique el código a uno mas sencillo y ya no me registra Nombre y Dirección lo registra con numero "0"

Private Sub cmdInsertar_Click()

    ult = Sheets("PEDIDO").Range("B65536").End(xlUp).Row + 1
    Cells(ult, 2) = Val(TextCodigo)
    Cells(ult, 3) = Val(TextCantidad)
    Cells(ult, 12) = Val(TextNombre)
    Cells(ult, 13) = Val(TextDireccion)
    TextCodigo = ""
    TextCantidad = ""
    TextNombre = ""
    TextDireccion = ""

    Me.lblDatoEncontrado.Caption = FormatCurrency(Sheets("PEDIDO").Range("F2"), 2)
    Me.Label2.Caption = FormatCurrency(Sheets("PEDIDO").Range("J2"), 2)
    Me.Label3.Caption = FormatCurrency(Sheets("PEDIDO").Range("M2"), 2)


End Sub[/PHP]

UserformReg.rar

hola, cambia esto

Cells(ult, 12) = Val(TextNombre)

Cells(ult, 13) = Val(TextDireccion)

por esto

Cells(ult, 12) = TextNombre

Cells(ult, 13) = TextDireccion

simplemente debes quitar la funcion VAL, esta lo que hace es convertir un texto a numero, y como tienes alli un texto simplemente lo está conviertiendo a 0, suerte

Tiene razón el amigo bigpetroman y te expongo un detalle de algo mas para que lo tomes en cuenta al trabajar con tus procedimientos, según lo que yo hasta el momento he deducido:

Val( ).- Convierte una cadena de caracteres en formato numérico entero

CDbl( ).- Convierte una cadena de caracteres en formato numérico con decimales

Cdate( ).- Convierte una cadena de caracteres en formato fecha

Si es que tu cadena de caracteres que vas a colocar es solo de texto, no hay necesidad de utilizar ninguna de estas funciones

Saludos

Disculpas estuve ausente...

A todos gracias son muy amables y gracias por la lección

Tema Solucionado