Input box con datos fijos
Buenas tardes expertos
Necesito hacer un input box con varios campos, uno de ellos es dni y quiero que me lo ponga en la celda b2 y después 4 botones ( trimestre 1) (Trimestre 2) (Trimestre 3) ( Trimestre 4 ) cuando pulse el botón de cualquiera de los cuatro me pegue un valor fijo en la celda c2 ejemplo <=31-03-2014.
1 Respuesta
Respuesta de Dante Amor
1
En un inputbox no puedes poner botones, en el inputbox sólo existen los botones Aceptar y Cancelar. Lo que puedes hacer es abrir un formulario, y poner algo así:
La macro para el formulario sería esta:
Private Sub CommandButton1_Click()
poner ">=31/03/" & Year(Date)
End Sub
Private Sub CommandButton2_Click()
poner ">=30/06/" & Year(Date)
End Sub
Private Sub CommandButton3_Click()
poner ">=30/09/" & Year(Date)
End Sub
Private Sub CommandButton4_Click()
poner ">=31/12/" & Year(Date)
End Sub
Sub poner(fin)
'Por.DAM
Sheets("Hoja2").Range("B2") = TextBox1
Sheets("Hoja2").Range("C2") = fin
End SubTe anexo mi archivo de pruebas para que lo revises y lo adaptes a lo que necesitas, si tienes dudas avísame y te ayudo.
https://www.dropbox.com/s/tt8rzffc1pp0djm/poner%20trimestre.xlsm
