Validacion para no ingresar datos en la misma linea vb

djtravieso · el 24 de febrero

Jovenes gusto saludarles de nuevo, ahora con la siguiente pregunta:

Ustedes me podrian hacer el favor de oritentarme ya que estoy haciendo un mini proyecto en excel con vb y tengo el siguiente inconveniente...

necesito ingresar por medio de un formulario datos de control de combustible de una flota de camiones, pero al momento de crear la programacion del formulario utilize los siguientes codigos...

Private Sub CommandButton2_Click()


Dim LastRow As Object


Set LastRow = Hoja8.Range("A1048576").End(xlUp)


LastRow.Offset(1, 0).Value = TextBox1.Text

LastRow.Offset(1, 1).Value = TextBox2.Text

LastRow.Offset(1, 2).Value = TextBox3.Text

LastRow.Offset(1, 3).Value = TextBox4.Text

LastRow.Offset(1, 4).Value = TextBox5.Text

LastRow.Offset(1, 5).Value = TextBox6.Text

LastRow.Offset(1, 6).Value = TextBox7.Text

LastRow.Offset(1, 7).Value = TextBox8.Text

LastRow.Offset(1, 8).Value = TextBox9.Text

LastRow.Offset(1, 9).Value = TextBox10.Text

LastRow.Offset(1, 10).Value = TextBox11.Text

LastRow.Offset(1, 11).Value = TextBox12.Text

LastRow.Offset(1, 12).Value = TextBox13.Text


MsgBox "Se ha escrito un registro en la Hoja8"


response = MsgBox("¿Desea añadir otro registro?", _

vbYesNo)


If response = vbYes Then

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

TextBox8.Text = ""

TextBox9.Text = ""

TextBox10.Text = ""

TextBox11.Text = ""

TextBox12.Text = ""

TextBox13.Text = ""

TextBox1.SetFocus


Else

Unload Me

End If

If response = vbNo Then

Workbooks("CONTROL DE KILOMETRAJE_3.XLSM").Close SaveChanges:=True

End If


End Sub[/CODE]

donde al momento de ingresar a veces en algunas lineas me ingresa el dato y en otras me lo ingresa sobre la linea anterior... osea sobre escribe en algunas veces sobre la fila anterior que ya se ha creado...

por otra.. quisiera que por cada ingreso me genere un numero de correlativo... para llevar un control.. el correlativo lo necesito asi:

NUMERO DE BOLETA:

CODIGO DE CAMION:

de ante mano muchas gracias por su apoyo...saludos..desde Guatemala

bye.

AlexanderS · el 24 de febrero

Hola, recuerda siempre subir un archivo de ejemplo para poder ayudarte mejor, ahora por lo que veo el problema esta aquí:

Set LastRow = Hoja8.Range("A1048576").End(xlUp)[/CODE]

Cambiala por esta:

[CODE]Set LastRow = Hoja8.Range("A1048576").End(xlUp).offset(1,0)[/CODE]

Y lo otro depende de en que celdas estarían colocados, sube un ejemplo.

Salu2

djtravieso · el 24 de febrero

Ok ahorita intento. lo que pasa es que es algo grande y pues al parecer no me va a dejar .. ahorita intento permiteme..

saludos.

djtravieso · el 24 de febrero

sabes probe la formula y en las primeras 10 lineas no dio error pero ahora me da cada vez que ingreso un registro me deja una linea de por medio... se podria hacer que siga en la siguiente linea?

saludos

djtravieso · el 24 de febrero

oye, me sigue dando el problema pero me doy cuenta que es a veces cuando dejas alguna casilla en blanco y no todas estan llenas, y cuando grabas te vuelve a grabar en la misma linea .. el archivo es muy grande que puedo hacer ahi ?

saludos..y gracias

AlexanderS · el 24 de febrero

Adjunta un archivo de ejemplo, solo formulario y la hoja donde se ingresan los datos nada mas, todo lo demás lo eliminas.

Salu2

djtravieso · el 24 de febrero

amigo aca te subo solo el formulario y los datos a ingresar... sabes a cada ingreso quisiera que me generara y guardara un correlativo por cada ingreso y por cada codigo de camion.. por ejemplo...

formulario1

cod. camion: 54-03

correlativo 00001

entonces algo asi: ingreso numero: 5403-00001

o algo que me identifique de que camion es el ingreso...

ya que van a ser aprox 15 formularios en este proyecto.. gracias y saludos...

CONTROL DE KILOMETRAJE3 - copia (2) - copia.zip

djtravieso · el 24 de febrero

:bump:

djtravieso · el 24 de febrero

:bump:

AlexanderS · el 24 de febrero

Pues me acabo de fijar que pones en esta linea por ejemplo:



LastRow.Offset(1, 0).Value = TextBox1.Text

LastRow.Offset(1, 1).Value = TextBox2.Text

LastRow.Offset(1, 2).Value = TextBox3.Text

[/CODE]

y debería ser así

[CODE]
LastRow.Offset(0, 0).Value = TextBox1.Text
LastRow.Offset(0, 1).Value = TextBox2.Text
LastRow.Offset(0, 2).Value = TextBox3.Text
[/CODE]

Por eso te salta una linea de mas.

Te propongo que pruebes con este otro código haber si te parece mejor, es mas corto:

[CODE]Private Sub CommandButton2_Click()
Dim tex As Control
Dim LastRow As String
LastRow = Hoja8.Range("A" & Rows.Count).End(xlUp).Row + 1
x = 1
For Each tex In Me.Controls
If InStr(1, tex.Name, "TextBox") Then Cells(LastRow, x).Value = tex.Value: x = x + 1
Next
MsgBox "Se ha escrito un registro en la Hoja2"

If MsgBox("¿Desea añadir otro registro?", _
vbYesNo) = vbNo Then Workbooks("CONTROL DE KILOMETRAJE3.XLSM").Close SaveChanges:=True: Unload Me

For Each tex In Me.Controls
If InStr(1, tex.Name, "TextBox") Then tex.Value = ""
Next

End Sub[/CODE]

Y con lo otro el Cod. del camión lo ingresas manual y el correlativo obviamente es automático, el cod. del camion es el campo que dice ID Vehículo cierto??

djtravieso · el 24 de febrero

cierto, ya que quiero agregar un pequeño reporte de cada camion, pero eso creo que no lo puedo hacer... ahi si me quedo corto en reportes jejeje.. si tu tambien me puedes apoyoar te lo agradeceria..

ahorita pruebo los codigos y te cuento s

s

saludos...

AlexanderS · el 24 de febrero

Prueba el adjunto el Numero de Ingreso lo coloca en la celda M

Salu2

CONTROL DE KILOMETRAJE3 - copia (2) - copia.zip

djtravieso · el 25 de febrero

Excelente, fijate que te queria molestar ese codigo que da de registro se podra mostrar en pantalla a la hora de terminar de ingresar el formulario?? osea que te de un mensaje donde te de el numero de registro que realizo??? pero que te lo de en pantalla.... mil gracias saludos.,...

AlexanderS · el 25 de febrero

Modifica el código así:

Private Sub CommandButton2_Click()

Dim tex As Control

Dim LastRow As String

LastRow = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1

correlativo = Range("XFD1").Value + 1

x = 1

For Each tex In Me.Controls

If InStr(1, tex.Name, "TextBox") Then Cells(LastRow, x).Value = tex.Value: x = x + 1

Next

Cells(LastRow, x).Value = TextBox2 & "-" & Format(correlativo, "000000")

Range("XFD1") = correlativo

MsgBox "Se ha escrito un registro en la Hoja2 con el numero de ingreso" _

& Chr(13) & TextBox2 & "-" & Format(correlativo, "000000")


If MsgBox("¿Desea añadir otro registro?", _

vbYesNo) = vbNo Then Workbooks("CONTROL DE KILOMETRAJE3.XLSM").Close SaveChanges:=True: Unload Me


For Each tex In Me.Controls

If InStr(1, tex.Name, "TextBox") Then tex.Value = ""

Next


End Sub[/CODE]

Pruebas y comentas.

Salu2

djtravieso · el 25 de febrero

Sabes al final utilice este codigo

Private Sub CommandButton2_Click()


Dim LastRow As Object


Set LastRow = Hoja2.Range("A1048576").End(xlUp).Offset(0, 0)


LastRow.Offset(1, 0).Value = TextBox1.Text

LastRow.Offset(1, 1).Value = TextBox2.Text

LastRow.Offset(1, 2).Value = TextBox3.Text

LastRow.Offset(1, 3).Value = TextBox4.Text

LastRow.Offset(1, 4).Value = TextBox5.Text

LastRow.Offset(1, 5).Value = TextBox6.Text

LastRow.Offset(1, 6).Value = TextBox7.Text

LastRow.Offset(1, 7).Value = TextBox8.Text

LastRow.Offset(1, 8).Value = TextBox9.Text

LastRow.Offset(1, 9).Value = TextBox10.Text

LastRow.Offset(1, 10).Value = TextBox11.Text

LastRow.Offset(1, 11).Value = TextBox12.Text

LastRow.Offset(1, 12).Value = TextBox13.Text


MsgBox "SE HA AÑADIDO UN REGISTRO AL VEHICULO 54-02"


response = MsgBox("¿DESEA AÑADIR OTRO REGISTRO?", _

vbYesNo)


If response = vbYes Then

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

TextBox8.Text = ""

TextBox9.Text = ""

TextBox10.Text = ""

TextBox11.Text = ""

TextBox12.Text = ""

TextBox13.Text = ""

TextBox1.SetFocus


Else

Unload Me

End If

If response = vbNo Then

Workbooks("CONTROL DE KILOMETRAJE_3.XLSM").Close SaveChanges:=True

End If



End Sub[/CODE]