Dante Amor

H o l a: Envíame tu archivo, la hoja "N1" deberá venir vacía, es decir, solamente con el formato. En otra hoja "x" me pones cómo debería quedar después de presionar el botón. Mi correo [email protected] En el asunto del correo escribe tu nombre de...

Ejecuta la siguiente macro Sub oculta_menu() ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") End Sub Para mostrar el menú Sub mostrar_menu() ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)") End Sub

H o l a: Entra a VBA, selecciona la hoja BD_Perfiles del lado izquierdo, en las propiedades de la hoja, selecciona la propiedad Visible, cambia a XlsheetVisible. Repite los pasos para la hoja BD_Accesos

H o l a: Cambia esto: Set rBuscado = Range("B1:B17200").Find(strDato) Por esto: Set rBuscado = Range("B1:B17200").Find(strDato, lookat:=xlWhole)

H o l a: En el código de Loading pon lo siguiente: Loading2 ie, READYSTATE_COMPLETE En la subrutina pon lo siguiente: Sub Loading2(ie, READYSTATE_COMPLETE) Do DoEvents Loop Until ie.ReadyState = READYSTATE_COMPLETE End Sub

H o l a: Realiza los siguientes pasos: 1. Crea un formulario con un Label, un Textbox, y 2 commandbutton: 2. Pon el siguiente código dentro del formulario: Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "" Then MsgBox "Escribe el...

H o l a: Sí, envíame tu archivo de excel y me explicas qué quieres comparar y qué esperas como resultado, todo explicado con ejemplos reales. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Carlos Martin” y el título...

Pon la siguiente fórmula en la celda D2 =SI(A2="MEMORIA",SI(C2=C1,D1+1,1),"") Arrastra la fórmula hasta el final de tus datos.

H o l a: Prueba con lo siguiente, si no es lo que necesitas, podrías explicarme con ejemplos lo que deseas para actualizar la macro. Sub CopiarColumnas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' 'copia las columnas A y B de...

Intenta en lugar de: .Item.SendUsingAccount = "[email protected]" Con: .Item.SentOnBehalfOfName = "[email protected]" Sal u dos