Boton en excel
Quiero hacer un botón que salga una ventana con un único campo para rellenar con texto y se coloque por ejemplo en la casilla A1 esa ventana ademas debe tener otro botón que sirva para continuar repitiendo el proceso y el texto se coloque en A2 y así sucesivamente y otro botón dentro de la ventana para salir y se muestre la hoja.
Gracias. No se si queda claro.
Gracias. No se si queda claro.
1 Respuesta
Respuesta de calvuch
1
¿Te refieres a confeccionar un formulario con dos botones (3 no tiene propósito para la acción que indicas) y un textbox que agregue texto en forma secuencial desde A1 hacia Abajo?
¿Deseas qué la hoja en donde alojaras el dato este oculta mientras cargas el dato y se muestre al descargar el formulario?
¿Es eso?
¿Deseas qué la hoja en donde alojaras el dato este oculta mientras cargas el dato y se muestre al descargar el formulario?
¿Es eso?
Exacto eso es lo que quiero calvuch lamento no haber sabido expresarme
Ok este es el código:
Option Explicit
Dim I As Long
Dim H As Integer
Private Sub CommandButton1_Click()
I = (I + 1)
Sheets(H).Range("A" & I).Value = Trim(TextBox1)
End Sub
Private Sub CommandButton2_Click()
Unload Me
Sheets(H).Visible = True
Sheets(H).Activate
End Sub
Private Sub UserForm_Activate()
H = ActiveSheet.Index
TextBox1 = "Oportunity"
Sheets(H).Visible = False
End Sub
Debes crear un formulario y poner un textbox y un 2 botones ( solo insertalos y no le cambies los nombres)
Bye
Option Explicit
Dim I As Long
Dim H As Integer
Private Sub CommandButton1_Click()
I = (I + 1)
Sheets(H).Range("A" & I).Value = Trim(TextBox1)
End Sub
Private Sub CommandButton2_Click()
Unload Me
Sheets(H).Visible = True
Sheets(H).Activate
End Sub
Private Sub UserForm_Activate()
H = ActiveSheet.Index
TextBox1 = "Oportunity"
Sheets(H).Visible = False
End Sub
Debes crear un formulario y poner un textbox y un 2 botones ( solo insertalos y no le cambies los nombres)
Bye
Gracias lo probare. Muchas gracias, tengo que buscar un buen libro o manual para aprender lo básico. Gracias de nuevo
Ok, cuando lo hayas probado y si estas conforme o no, por favor da tu puntuación y cierra la pregunta.
Éxito
Éxito
