userform que se repita

15/06/2007 - 04:38 por alexandra | Informe spam
hola, espero puedan ayudarme con lo siguiente:
estoy haciendo una poliza de cheques, donde puse un userform para que se
vayan rellenando los espacios, y una vez que quede llena, se mueva hacia
abajo y de paso a otro formato igual con el mismo userform. La forma que
encontré de hacer lo anterior es:

Private Sub llenar_Click()

fecha = Empty
nombre = Empty
cant = Empty
concepto = Empty
factura = Empty
cheque = Empty
folio = Empty
tarjeta = Empty
Range("a1").Select
fecha.SetFocus

Range("A1:G18").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
Selection.Insert Shift:=xlDown
Range("H19").Select
ActiveWindow.SmallScroll Down:


End Sub


Private Sub fecha_Change()
Range("f2").Select
With Selection
Selection.NumberFormat = "dd/mm/yy;@"
ActiveCell.FormulaR1C1 = fecha
End With
End Sub
Private Sub nombre_Change()
Range("b4").Select

ActiveCell.FormulaR1C1 = nombre
End Sub

Private Sub cant_Change()
Range("f4").Select
With Selection
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($*
""-""??_);_(@_)"
End With

ActiveCell.FormulaR1C1 = cant

End Sub




Private Sub cantidad_Change()
Range("b5").Select

ActiveCell.FormulaR1C1 = cantidad
End Sub

Private Sub cheque_Change()
Range("g15").Select
ActiveCell.FormulaR1C1 = cheque

End Sub

Private Sub concepto_Change()
Range("a7").Select
ActiveCell.FormulaR1C1 = concepto

End Sub

Private Sub factura_Change()
Range("b16").Select
ActiveCell.FormulaR1C1 = factura


End Sub

Private Sub folio_Change()
Range("G16").Select
ActiveCell.FormulaR1C1 = folio


End Sub

Private Sub tarjeta_Change()
Range("G17").Select
ActiveCell.FormulaR1C1 = tarjeta

End Sub

1.-ahora el problema que tengo es que por algún motivo, en cuanto pulso el
boton de comando (llenar) borra todo el contenido y no se como hacer para que
este quede escrito en la hoja de cálculo.

2.-quisiera saber como agregarle algún código que al mismo tiempo que copia
el formato me inserte un salto de pagina, para que cada formatito de poliza
quede independiente en una página

3.-como puedo hacer para que el userform no aparezca a la mitad de la hoja,
sino por un lado

tengo este formato en http://lzcorp.no-ip.com/~alexandra/ el archivo
llamado poliza

les agradecería mucho su ayuda lo más pronto posible

Preguntas similare

Leer las respuestas

#6 alexandra
19/06/2007 - 03:59 | Informe spam
"Héctor Miguel" escribió:


> 1... si en el text box pongo 1/5/7... quiero que lo traslade a la hoja de calculo como 01/05/07, lo mismo si pongo 10/5/7... etc.

p.e. ActiveCell = CDate(TextBox1)
o... ActiveCell = CLng(CDaet(TextoBox1))


estableciendo su propiedad 'MultiLine' en True [opcionalmente puedes mostrar sus 'ScrollBars'
y seria necesario combinar {ctrl}+{enter} si quieres 'forzar' la siguiente linea [o manejar los eventos '_key...' del textbox]




como siempre tan acertado, todo me ha funcionado muy bien, solo en la fecha
no he logrado que me acepte el código, creo que es porque no he sabido donde
o como colocarlo, también aprovecho para pedirte como puedo hacer también
para dar formato a número, (cantidad), intenté hacerlo grabando un macro y
copiando los códigos en el userform, pero pienso que no lo hice bien, y no me
ha dado resultado
en cuanto a la multilinea, todo está bien, solo en la hoja me aparece un
cuadrito pequeño con un signo de interrogación donde cambia la línea
(ctrl+enter)

para otras dudas sobre el userform, tengo que exponer otro post o se pueden
seguir en este mismo?
Respuesta Responder a este mensaje
#7 Héctor Miguel
19/06/2007 - 04:20 | Informe spam
hola, alexandra !

solo en la fecha no he logrado que me acepte el codigo
creo que es porque no he sabido donde o como colocarlo
tambien aprovecho para pedirte como puedo... dar formato a numero, (cantidad) [...]



usando los ejemplos de tu consulta inicial:

Private Sub fecha_Change()
Range("f2").NumberFormat = "dd/mm/yyyy"
Range("f2") = CDate(fecha)
End Sub

en cuanto a la multilinea... en la hoja me aparece un cuadrito... con un signo de interrogacion
donde cambia la linea (ctrl+enter)



es *normal*... es como si usaras {Alt}+{Enter} para usar mas de una linea de texto en la misma celda
podrias aplicar formato de *ajuste* de linea en esa/s celda/s -?-
o dejar que el texto *avance* solito de lineas [SIN usar el {ctrl}+{enter} ?]

para otras dudas sobre el userform, tengo que exponer otro post o se pueden seguir en este mismo?



[creo que] esta conversario ya se merece un hilo aparte :))

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida