Dante Amor

Te anexo la macro actualizada, cambia en esta línea el nombre del libro destino Set l2 = Workbooks("libro destino.xlsx") Entiendo que tienes diferentes libros con la "hojaY" entonces deberás poner la macro en cada uno de ellos. Cuando ejecutes la...

Pon lo siguiente en los eventos de tu hoja Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$Q$5" Then Call RegresarRepRet If Target.Address = "$R$5" Then Call RegresarRepRet2 End Sub En un módulo...

Te anexo la macro para versión excel 2010+ Sub Enviar_Correos() '--- ' Por.Dante Amor '--- '***Macro Para enviar correos col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam =...

Te anexo la macro Private Sub Workbook_Open() Application.Windows(ThisWorkbook.Name).Visible = False ThisWorkbook.Activate UserForm2.Show End Sub . 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias . Avísame cualquier duda .

Prueba con lo siguiente: Private Sub cmd_Imagen_Click() ' On Error Resume Next ArchivoIMG = Application.GetOpenFilename("Imágenes jpg,*.jpg,Imágenes bmp,*.bmp", 0, "Seleccionar Imágen para Reegistro de Clientes") fotografia.PictureAlignment =...

Te anexo la fórmula: =SI(A1<1;"ALTO";SI(A1<1.5;"MEDIA";SI(A1<2.01;"BAJA"; "El valor es superior a 2"))) Entre 0 y .99 Alto Entre 1 y 1.49 Media Entre 1.5 y 2 Baja Mayor a 2 "El valor es superior a 2" . 'S aludos. Dante Amor. Recuerda valorar la...

Para saber cuál registro seleccionaste en el listbox, tienes que resolverlo desde el momento en que cargas los registros en el listbox. Te explico, suponiendo que en la hoja "refacciones", en la columna A tienes los nombres de las partes y en las...

Cuáles columnas vas a cargar en el listbox. Máximo son 10 columnas, pero en este caso necesitamos reservar una columna para poner el número de registro. Entonces si necesitas 9 columnas, dime cuáles.

Cambia Application.Visible = False Por Application.Windows("nombre libro").Visible = False En la parte de "nombre libro" escribe el nombre de tu libro que quieras ocultar O puede ser así: Application.Windows(ThisWorkbook.Name).Visible = False Para...

Pon la siguiente macro en un módulo y ejecuta la macro Cancelar_F11 Sub Cancelar_F11() Application.OnKey "{F11}", "Mensaje" End Sub ' Sub Mensaje() MsgBox "no es posible ejecutar f11" End Sub Pon esto en el evento Open de thisworkbook para que se...