............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

vsFlexArray – Guardar en la Hoja como número y no como texto

Ver el tema anterior Ver el tema siguiente Ir abajo

vsFlexArray – Guardar en la Hoja como número y no como texto

Mensaje por Roberto2010 el Miér Dic 14, 2011 12:05 am

Buenas! Cómo están?
Aquí les dejo un código que recogí de la web.
Al clickear el CommandButton1; los datos que contiene el FlexArray se guardan en la Hoja1.
El FlexArray lo tengo con la propiedad Editable en True para poder ingresar manualmente datos.
Funciona fenómeno.
Si digito 5 se guardan en al hoja como número, pero si digito 5,00 o 5,55 éstos se guardan en la hoja como texto, esto pasa cuando digito la coma.
¿Se podría arreglar este pequeño inconveniente?
Aclaro: el código que carga, da formato numérico al FlexArray con: .ColFormat(3) = "#,0.00"
Por otro lado, creo que la clave estaría en esta línea:
Range("A" & xRow.Row).Offset(j, Columna - 1).Value = .TextMatrix(Fila, Columna)
Desde ya muchas gracias.

Private Sub CommandButton1_Click()

Dim xRow As Range
Dim j As Integer
Sheets("Hoja1").Activate
j = 0

With Sheets("Hoja1")
Set xRow = .Cells(.Rows.Count, 1).End(xlUp)
With vsFlexArray1
For Fila = 1 To .Rows - 1
.Col = 0
.Row = Fila
j = j + 1
For Columna = 1 To .Cols - 1
Range("A" & xRow.Row).Offset(j, Columna - 1).Value = .TextMatrix(Fila, Columna)
Next Columna
Next Fila
End With
End With

End Sub
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 40
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: vsFlexArray – Guardar en la Hoja como número y no como texto

Mensaje por Roberto2010 el Miér Dic 14, 2011 11:04 pm

Private Sub vsFlexArray1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
With vsFlexArray1
Worksheets("Hoja1").Cells(.Row + 1, .Col + 1).Value = CDbl(vsFlexArray1.TextMatrix(.Row, .Col))
End With
End Sub

Ya lo arreglé, así funciona bien.
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 40
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: vsFlexArray – Guardar en la Hoja como número y no como texto

Mensaje por joseA el Vie Dic 16, 2011 9:18 am

Necesito adjunto archivo...

joseA

Masculino Cantidad de envíos : 1
Edad : 31
Ciudad - Pais : Coronel Fabriciano - Brasil
Version de Excel : 2007
Fecha de inscripción : 19/11/2011

Volver arriba Ir abajo

Re: vsFlexArray – Guardar en la Hoja como número y no como texto

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.