Elsa Matilde

La función BUSCARV te halla el registro tanto si se llenó manualmente como por concatenación de datos. Quizás no esté bien escrita o te esté faltando el último argumento que realiza una búsqueda exacta. Observa en la imagen que llené la col B...

Podés utilizar esta otra: Sub listaHojas() 'x Elsamatilde 'arma lista de hojas excluyendo las primeras 4 x = 10 For i = 5 To Sheets.Count Sheets("Hoja3").Range("C" & x) = Sheets(i).Name x = x + 1 Next i End Sub O esta otra cuando sepas el nombre de...

Es así como te respondió Icue. Y si una macro debe ejecutarse con el valor de algunas variables la llamarás de este modo, suponiendo que sea con el Select Select case x Case is = 1 Call primerMacro(variable1, variable2.... las que tengas) Case is = 2...

Lo que se hace en estos casos es desproteger la hoja al inicio de tu macro de pase de datos y volverla a proteger al finalizar. Suponiendo que el botón sea un comandbutton1 así tendrías las instrucciones: Private Sub CommandButton1_Click() 'x...

Te explico lo que haces con tu código para que puedas resolverlo: Solo mira el valor de h1 en h2 según j... pero luego incrementas j cuando se pasa un valor a h3... Esto significa que para el siguiente valor de i se busca a partir de j+1 porque...

Depende de lo que intentas marcar, o mejor dicho del valor que tenga ese campo del listbox. Por ejemplo: If ListBox1.List(cargar, 6) = "SI" Then frame_estado.value = True else frame_estadoOtro.value = True End if Si hay 2 option en un mismo frame y...

Creo entender que desde una macro llamas a un formulario para el ingreso de una contraseña, y a continuación se envía la impresión. Imagino algo como esto. Donde se consulta el valor de una variable pública. Public impre As Byte 'se declara variable...

Si necesitas resolverlo con macro, entra al Editor, inserta un módulo y allí copia este código. Debes ajustar el rango que asumí se inicia en A2. Sub buscaMax() 'x Elsamatilde 'fin de rango según col A x = Range("A" & Rows.Count).End(xlUp).Row 'se...

Así quedaría el orden de instrucciones, agregando las que dejo en negrita. Set h1 = Sheets("Proyectos") For i = 10 To h1.Range("K" & Rows.Count).End(xlUp).Row If h1.Rows(i).Hidden = False Then If h1.Cells(i, "K") <> "" Then 'tus instrucciones End If...

Entra al Editor de macros e inserta un módulo. Allí copia el siguiente código. Luego para ejecutarlo hay varias opciones (botón, atajo de teclado, etc). Estos temas los explico en la sección Macros de mi sitio que dejo al pie. Imaginé que tendrías...