Elsa Matilde

Si se puede. Entra al Editor, selecciona con doble clic el objeto ThisWorkbook y allí inicia una macro para el evento Open: Ahora, para escribir las instrucciones de control de vto, se necesita saber qué evaluar... y allí ya no dejaste ninguna idea...

Intentá colocando la propiedad Silent en True: Private Sub CommandButton1_Click() WebBrowser1.Silent = True WebBrowser1.Navigate "https://portalcfdi.facturaelectronica.sat.gob.mx/" End Sub

Dejo las instrucciones para un control cualquiera, donde al entrar se le asigna un color y al salir se lo vuelve a blanco. (En tu libro van las subrutinas completas ya que además realizan otras tareas como concatenar textos) Private Sub...

Si los frames están todos habilitados con su propiedad Enabled en True y el textbox es el del 1er frame, no es necesario ni siquiera darle ninguna instrucción al evento Initialize que se ubicará solo. El UF y cada control tiene una serie de...

No queda claro si tu columna está ordenada, pareciera que sí por eso la recorres con DO hasta encontrar una celda <> u1 La expresión: End(xlDown). Offset(1, 0) te dará error cuando aún esa col no tiene datos, porque con End(xlDown) se va hasta el...

Según tu muestra, el código se encuentra en a col B y el control se llama TextB_Codigo. Entonces en el botón Guardar primero se evaluarán contenidos: Private Sub Btn_Reg_Click() 'botón guardar 'control de contenidos Set busco =...

Entiendo que necesitas trabajar con listas relacionadas. Tengo un ejemplo desarrollado que podés descargarlo desde la sección Guias de mi sitio. La Guía es la N° 2: Listas desplegables. Luego me comentas. Sdos. Elsa

Recibida la consulta. En breve te enviare el modelo. Sdos. Elsa

Con el buscador del foro ingresa el texto: Set busco = Deje cientos de códigos para realizar este tipo de búsquedas. También en la sección Macros o Ejemplos de mi sitio encontraras ejemplos listos. Si luego necesitas ayuda para adaptarlos a tu hoja...

Si tu inquietud es la línea que dice: Set wsOrigen = Worksheets("hoja variable") Alli debes dejarla de este modo: Set wwsOrigen = Worksheets(Activesheet.Name) Sdos. Si esto resuelve tu consulta no olvides valorarla sino comenta para continuarla.