en el forms que hice tengo un texbox que se llama txtlockers y carga datos en la planilla excel en la columna 5 pero me lo carga como si fuera texto y quiero que sea pesos.

No me deja subir el archivo porque me dice que es muy grande

que alguien me ayude, muchisimas gracias

Juan

Range("A1").Value = CCur(txtlockers).Value

Gracias Macro

Lo que pasa es que mi formulario va agregando filas, toda la columna 5 tiene que ser $

como hago

Si subieses un archivo sería de gran ayuda.

no se porque no me deja subirlo, pero te paso el codigo.

la idea que el txtlockers me ponga en la hoja excel valores pesos

Private Sub cmdinsertar_Click()

For I = 5 To 500

If Cells(I + 1, 3).Value = "" Then

Cells(I + 1, 1).Value = TXTFECHA

Cells(I + 1, 2).Value = txtmes

Cells(I + 1, 3).Value = txtvendedor

Cells(I + 1, 4).Value = txtlockers

Cells(I + 1, 5).Value = txttoallas

Cells(I + 1, 6).Value = txtsuplementos

Cells(I + 1, 7).Value = txtbebidas

Cells(I + 1, 8).Value = txtcarnets

Cells(I + 1, 10).Value = txtptrainers

Cells(I + 1, 12).Value = txtjudo

Cells(I + 1, 13).Value = txtkarate

Cells(I + 1, 17).Value = txtpaselibre

Cells(I + 1, 18).Value = txtpagare

Cells(I + 1, 22).Value = txtn1peso

Cells(I + 1, 26).Value = txtn4peso

Cells(I + 1, 27).Value = txtn10peso

Cells(I + 1, 28).Value = txtr1peso

Cells(I + 1, 32).Value = txtr4peso

Cells(I + 1, 33).Value = txtr10peso

Cells(I + 1, 34).Value = txtn1c

Cells(I + 1, 38).Value = txtn4c

Cells(I + 1, 39).Value = txtn10c

Cells(I + 1, 40).Value = txtr1c

Cells(I + 1, 44).Value = txtr4c

Cells(I + 1, 45).Value = txtr10c

Cells(I + 1, 46).Value = txtrem1peso

Cells(I + 1, 50).Value = txtrem4peso

Cells(I + 1, 51).Value = txtrem10peso

Cells(I + 1, 52).Value = txtrem1c

Cells(I + 1, 56).Value = txtrem1c

Cells(I + 1, 57).Value = txtrem1c

Cells(I + 1, 58).Value = txtvisitantes

TXTFECHA = Empty

txtmes = Empty

txtvendedor = Empty

txtlockers = Empty

txttoallas = Empty

txtsuplementos = Empty

txtbebidas = Empty

txtcarnets = Empty

txtptrainers = Empty

txtjudo = Empty

txtkarate = Empty

txtpaselibre = Empty

txtpagare = Empty

txtn1peso = Empty

txtn4peso = Empty

txtn10peso = Empty

txtr1peso = Empty

txtr4peso = Empty

txtr10peso = Empty

txtn1c = Empty

txtn4c = Empty

txtn10c = Empty

txtr1c = Empty

txtr4c = Empty

txtr10c = Empty

txtrem1peso = Empty

txtrem4peso = Empty

txtrem10peso = Empty

txtrem1c = Empty

txtrem4c = Empty

txtrem10c = Empty

txtvisitantes = Empty

TXTFECHA.SetFocus 'va al primer registro

Exit For

End If

Next

End Sub

Cells(I + 1, 4).Value = CCur(txtlockers.Value)

Por supuesto, debes dar formato de moneda a la columna 4.

biennn andubo, muchas gracias

una mas

que comando uso, para que ni bien abra mi archivo excel se me abra el formulario, sin necesidad de una macro

.

En Thisworkbook, en el evento Workbooks_Open y suponiendo que tu formulario se llame Userform1:

Userform1.Show

.

muchisimas gracias, SOLUCIONADO