Esteban RG

Yo usaría otra hoja parecida a esta, donde vayan listadas todas las preguntas y los textos de los botones de opción Al pulsar el botón "Siguiente pregunta" se presentará la pregunta que indique la casilla H4 Como ves en la celda H4 en cada línea...

Empieza diseñando tu formulario: En el ejemplo has puesto 5 botones de opción y dos botones, bien, estos controles tienen que ser activex, no controles de formulario. Para que los de la derecha funcionen como un grupo y los de la izquierda como otro...

Puedes minimizar la ventana justo antes de mostrar el formulario: y añadir a …..Show el modo "(0)" Quedaria asi: Application.WindowState = xlMinimized Private Sub BtnFormularioGastos_Click() Gastos_2020.Show(0) End Sub Para restaurar la vista al...

Puedes hacer estas modificaciones en el código. Observa que he definido Turno1, turno2 y turno3, así como suma1, suma2 y suma3 Private Sub CommandButton1_Click() Dim i, j As Integer Dim filas As Integer Dim turno1 As String Dim turno2 As String Dim...

Puedes copiarlo entero a una hoja aparte y el mismo macro a continuación lo filtra y pasa a tu hoja los datos que te interesen. Por ejemplo las líneas que empiecen con un número. A continuación borra la hoja borrador.

Sin entrar en que criterio has utilizado para superponer las gráficas. Veo que una escala va de 0 -30000 y la otra de 0-30, o sea que para comparar valores sólo tienes que multiplicar por 1000. Puedes encontrar los intervalos donde hay un corte...

Puedes utilizar el evento ON_TIME

James Bond respondió: Esta es una macro sencilla que hace lo que buscas, si el nombre existe en cualquiera de las 2 hojas te lo mostrara en un mensaje y terminara el programa, en caso contrario hara la captura solo especifica antes de range("a:a") del with la hoja donde...

Puedes usar esta macro: Te irá añadiendo líneas a la Hoja2 Sub copiando() With Hoja2 ufila = .Cells(Rows.Count, 1).End(xlUp).Row 'busca la ultima fila con datos en la columna 1 ("A") ufila = ufila + 1 lin = 1 Do Until Cells(lin, 1) = "" 'bucle para...