Forms que sean numerico un textbox

[Juangiraud]

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

[Antoni]

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

[Juangiraud]

Gracias Macro

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

como hago

[Antoni]

Si subieses un archivo sería de gran ayuda.

[Juangiraud]

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

[Antoni]

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

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

[Juangiraud]

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

[Antoni]

.

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

Userform1.Show

.

[Juangiraud]

muchisimas gracias, SOLUCIONADO