Validacion para no ingresar datos en la misma linea vb

publicado el 24 de febrero11 años

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.

publicado el 24 de febrero11 años

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

publicado el 24 de febrero11 años

Autor

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

saludos.

publicado el 24 de febrero11 años

Autor

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

publicado el 24 de febrero11 años

Autor

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

publicado el 24 de febrero11 años

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

Salu2

publicado el 24 de febrero11 años

Autor

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

publicado el 24 de febrero11 años

Autor

:bump:

publicado el 24 de febrero11 años

Autor

:bump:

publicado el 24 de febrero11 años

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??

publicado el 24 de febrero11 años

Autor

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

saludos...

publicado el 24 de febrero11 años

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

Salu2

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

publicado el 25 de febrero11 años

Autor

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

publicado el 25 de febrero11 años

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

publicado el 25 de febrero11 años

Autor

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]

me puedes hacer el favor de integrarmelo a este

saludos

publicado el 26 de febrero11 años

Autor

excelente mil gracias por tu apoyo Riddle @[uSER=143023]Riddle[/uSER]

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

193 Archivos
99 Comentarios
30 Revisiones
Última descarga

Agenda Calendario Vintage
- 2

Fechas Móviles

Saludos amigos espero estén bien
Nuevamente acudo a ustedes para que me ayuden con lo siguiente inconveniente, con la ayuda de este tutorial https://youtu.be/LFCT9xU4alc?si=gVeIDHcKwCUmO0sM configure el archivo adjunto para obtener los resultados requeridos coincidentemente dos de las fechas que necesito cumplen con los parámetros utilizado en el tutorial es decir el tercer viernes de un mes, sin embargo cuando intento determinar otra fecha con el mismo metodo no me arroja resultados congruentes ejemplo el cuarto lunes de octubre o el segundo martes de febrero y así sucesivamente
Mucho les sabre agradecer la ayuda que me puedan brindar

Feriados Moviles.xlsx

Por jues, · publicado hace 10 horas 10 hr
Sumatoria en función de un año y con conversión de valores

Hola a ambos,
Por si te interesa un total detallado por cada divisa, te adjunto archivo con los detalles...
Saludos,

Sumar Tipo de cambio (G).xlsx

Por Victor7, · publicado el 4 de octubre4 oct
Sumatoria en función de un año y con conversión de valores

Muchas gracias John por tu respuesta, me sirvió de gran ayuda!.

Saludos

Por Matías86, · publicado el 1 de octubre1 oct
Sumatoria en función de un año y con conversión de valores

¡Saludos, @Matías86 !
Prueba en F4 con la siguiente fórmula:
=SUMA((0&C2:C199)*BUSCARV(B2:B199;E10:H11;COINCIDIRX(AÑO(C1);E9:H9);)*(AÑO(A2:A199)=AÑO(C1)))
¡Bendiciones!

Por John Jairo V, · publicado el 1 de octubre1 oct
Sumatoria en función de un año y con conversión de valores

Estimados,
Junto con saludar, tengo la siguiente consulta:
Cree esta formula en F4, =SUMA(FILTRAR(C2:C199;AÑO($A$2:$A$199)=AÑO(C1))) que suma valores de una tabla en función del AÑO ubicado en C1 y ubicado en A2:A199 (ver excel adjunto).
Lo que necesito ahora, es que los valores contenidos en C2:C199 que tienen una Moneda en la columna B2:B199 que puede ser EUR o USD, tenga conversión de valor en función de una tabla auxiliar ubicada en E9:H11.
El resultado esperado sería 160.000.

Saludos y de antemano, muchas gracias!Ejemplo sumar con Tipo de cambio.xlsx

Por Matías86, · publicado el 29 de septiembre29 sep

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Validacion para no ingresar datos en la misma linea vb

Featured Replies

Archivado

Archivos

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Estadísticas de descargas

Mensajes

Fechas Móviles

Sumatoria en función de un año y con conversión de valores

Sumatoria en función de un año y con conversión de valores

Sumatoria en función de un año y con conversión de valores

Sumatoria en función de un año y con conversión de valores

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)