Dante Amor

H o l a : Vamos a configurar tu archivo de excel de la siguiente forma: 1. Crea una hoja nueva en tu archivo y le pones por nombre "usuarios". 2. En la columna A vas a poner los nombres de equipo que van a ocupar el archivo. Para ver el nombre del...

H o l a : Las fechas se declaran como tipo fecha cuando tienes un texto y lo pasas a fecha. En este caso, supongo que en las celdas XEY3 y XEY4 tienes una fecha, es por eso que al pasar la fecha a la variable ya no es necesario declararla como date....

H o l a : Tengo algunas dudas. Déjame resumir lo que entendí: 1. En el libro "Bitácora" tienes la macro. 2. La macro abre el libro "Reporte" 3. En el libro "Reporte", en la primera hoja, en la celda D5 hay un número. 4. La macro debe tomar ese...

H o l a : Para cambiar el valor de la variable contra, tendrías que poner el valor en otro lado, por ejemplo en una celda, si pones el valor en el código del formulario no podrás cambiarlo. Cambia esta línea: contra = "1234" Por esta: contra =...

H o l a : Podemos poner una pausa de tiempo, para esperar a que termine la macro1. Por ejemplo, en la siguiente instrucción, la pausa es de 5 segundos: Sub Macro3() Call Macro1 ' DoEvents Application. Wait Now + TimeValue("00:00:05") DoEvents ' Call...

Tienes pendiente valorar esta respuesta: Como hacer una macro de la función buscarv entre 2 libros

H o l a: Envíame tu archivo para revisarlo, escribe cómo se llama el userform y qué pasos realizas cuando es muy lento. Si tiene alguna clave para entrar, también me la envías. Mi correo [email protected] En el asunto del correo escribe tu nombre de...

H o l a : Se puede realizar con una macro. Te anexo la macro. Cambia en la macro "M" por la columna en donde tienes los datos de la lista desplegable; cambia "C3" por la celda en donde vas a poner cada dato. Sub ImprimirHoja() 'Por.Dante Amor col =...

H o l a: Te anexo el código Private Sub CommandButton1_Click() 'Por.Dante Amor 'Guardar datos If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then MsgBox "Selecciona una hoja" Exit Sub End If ' If MsgBox("Son correctos los datos?" + Chr(13) + "Desea...

Utiliza lo siguiente Dim variable As Date variable = DateSerial(Year(Date), Month(Date), 1) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias