excel

[sergio1973]

hola a todos, envio una cantidad con formato desde un textbox a una celda en excel, pero cuando quiero ver esa cantidad de esa celda en otra celda con la siguiente formula "=SUBTOTALES(9;C:C)" no la reconoce.

el codigo del textbox es:

'toda cantidad que escriba en este textbox se guarda en la celda C2:

Private Sub txtDebe_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtDebe.Value = Format(Val(txtDebe), "$ #,##0.00")
Range("C2").Select
ActiveCell.FormulaR1C1 = txtDebe
End Sub

y la formula de la celda F4 es:
=SUBTOTALES(9;C:C)

[karolanet]

Lo que tenés que hacer es darle formato moneda a la celda y luego poner el valor sin formato.

Si no sabés cómo hacerlo, podés grabar una macro en excel mientras lo hacés a mano. Luego mirás el código de VBA que te generó excel y listo.

O sea, sobre excel, ir a: Tools -> Macro -> Record New Macro -> Aceptar
Aparecerá una barra de herramientas flotante.
Poner el formato a la celda y escribir a mano el valor sin formato
Poner Stop en la barra de herramientas flotante que apareció
Ir a Tools -> Macro -> Visual Basic editor -> Abrir Modules -> Module1 y ahí tendremos el código.

A mí me generó este código:

Range("F4").Select
Selection.NumberFormat = "$#,##0.00"
ActiveCell.FormulaR1C1 = "55"

Para pegarlo en visual, deberías tener un par de variables ...

Dim obExcelApp As excel.Application
Dim obExcelWorkbook As excel.Workbook
Dim Sheet As excel.Worksheet

Set obExcelApp = New excel.Application
obExcelApp.Workbooks.Open AppPath & XLS
Set obExcelWorkbook = obExcelApp.Workbooks(XLS)
Set Sheet = obExcelWorkbook.Sheets(1)
Sheet.Activate

Sheet.Range("F4").Select
obExcelApp.Selection.NumberFormat = "$#,##0.00"
Sheet.ActiveCell.FormulaR1C1 = "55"

Si no usás esas variables, a veces te va a funcionar el código pero a veces no.

Espero que esto resuelva tu problema.
Saludos.
Caro.