Copiar valor TxtBox de un UserForm en una celda como número.
Publicado por Rafael (83 intervenciones) el 15/05/2024 13:09:56
Mediante el código que copio a continuación copio en la Hoja Activa de un xlsm el valor de un TxtBox de determinado UserForm.
El código es correcto ¿pero cómo hago que el valor se copie en la hoja de "INGRESOS" como número y no como texto?
Estoy añadiendo al código anterior una línea tipo: Worksheets("INGRESOS").ActiveCell.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"... y distintas variantes de ella, pero no consigo lo que pretendo.
1
2
3
4
5
6
7
' HAGO ACTIVA LA CELDA SIGUIENTE A LA ÚLTIMA CON DATOS DE LA COLUMNA "A" DE LA HOJA DE "INGRESOS":Sheets("INGRESOS").Select
Range("A1000000").End(xlUp).Offset(1, 0).Select
' EMPIEZO A COPIAR LOS DATOS DEL USERFORM 'FRM_INGRESO'':ActiveCell.Offset(0, 0) = Me.IdIngreso
El código es correcto ¿pero cómo hago que el valor se copie en la hoja de "INGRESOS" como número y no como texto?
Estoy añadiendo al código anterior una línea tipo: Worksheets("INGRESOS").ActiveCell.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"... y distintas variantes de ella, pero no consigo lo que pretendo.
Valora esta pregunta
0
