No detecta mi escritura
Una pregunta más.
Respecto a mi formulario en la hoja base Gas, introduce bien los datos, lo malo es que en
algunas celdas no me reconoce que están ahí es decir el formato de la celda si es moneda no lo reconoce hasta dar F2 y enter, por lo cual al dar la búsqueda en ocasiones no me lo reconoce o bien no me respeta el formato que deseo que se vea, numero, moneda, ¿fecha etc. Es decir si hago la consulta de un dato que
que puedo hacer para que mi form lo inserte como si lo hiciera manual?.
Respecto a mi formulario en la hoja base Gas, introduce bien los datos, lo malo es que en
algunas celdas no me reconoce que están ahí es decir el formato de la celda si es moneda no lo reconoce hasta dar F2 y enter, por lo cual al dar la búsqueda en ocasiones no me lo reconoce o bien no me respeta el formato que deseo que se vea, numero, moneda, ¿fecha etc. Es decir si hago la consulta de un dato que
que puedo hacer para que mi form lo inserte como si lo hiciera manual?.
1 Respuesta
Respuesta de ma_ramirez_r
1
Como estás insertando un nuevo dato puede ser que la celda no esté formateada
por lo que te sugiero que a través de la macro le des formato a la celda
y también al momento de ingresar el valor le des el mismo formato.
Por ejemplo si desea pegar una fecha en la linea actual y la columna 2
debes hacer lo siguiente:
Cells(ActiveCell.Row, 2).NumberFormat = "dd/mm/yy"
Cells(ActiveCell.Row, 2).Value = Format(txtfecha.Value, "mm/dd/yy")
Ahora si quieres pegar valores debes hacer lo mismo pero cambia el formato
entonces quedaría así:
Cells(ActiveCell.Row, 2).NumberFormat = "#.#00"
Cells(ActiveCell.Row, 2).Value = Format(txtValor.Value, "#.#00")
por lo que te sugiero que a través de la macro le des formato a la celda
y también al momento de ingresar el valor le des el mismo formato.
Por ejemplo si desea pegar una fecha en la linea actual y la columna 2
debes hacer lo siguiente:
Cells(ActiveCell.Row, 2).NumberFormat = "dd/mm/yy"
Cells(ActiveCell.Row, 2).Value = Format(txtfecha.Value, "mm/dd/yy")
Ahora si quieres pegar valores debes hacer lo mismo pero cambia el formato
entonces quedaría así:
Cells(ActiveCell.Row, 2).NumberFormat = "#.#00"
Cells(ActiveCell.Row, 2).Value = Format(txtValor.Value, "#.#00")
