Dante Amor

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("B:B")) Is Nothing Then Range("F1") = Cells(Target.Row, "C") End If End Sub Sigue...

H o l a: Te anexo la macro. En esta línea de la macro tienes que poner la ruta y nombre del programa Adobe Reader que tengas: pid = Shell("C:\Archivos de programa\Adobe\Reader 10.0\Reader\AcroRd32.exe /p /h """ & ruta & arch & """",...

H o l a: Si tus datos están ordenados, de la forma en que estás realizando la búsqueda, puede que funcione. Me refiero a que buscas el primer registro del combobox1 en la columna A, si lo encuentra, buscas el primer registro del combobox2 en la...

H o l a: Te anexo la macro para ordenar los datos en las 5 hojas Sub Macro2() ' Application.ScreenUpdating = False hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja4", "Hoja5") For i = LBound(hojas) To UBound(hojas) Set h = Worksheets(hojas(i)) With...

H o l a: Antes de esta línea: CODLOCATIVAS.List() = mtxlocat Pon esta línea: CODLOCATIVAS.ColumnCount = 3 O también puedes poner el 3 en las propiedades de tu listbox Tip: La carga de datos la puedes hacer directamente de la hoja al listbox, no es...

H o l a: Cambia esto: Application.Visible = False Por esto: Application.Windows("nombre libro.xlsm").Visible = False En lugar de "nombre libro.xlsm" pon el nombre de tu libro. ' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )

H o l a: No puedo descargar el archivo. Mejor envíame el archivo por correo. En el archivo me explicas con ejemplos, comentarios y colores lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “vicente...

Te anexo las macros actualizadas Private Sub ComboBoxCUENTA_Change() 'Por.Dante Amor ComboBoxSUBCUENTA.Clear If ComboBoxCUENTA = "" Then Exit Sub If ComboBoxCUENTA.ListIndex = -1 Then Exit Sub f = ComboBoxCUENTA.ListIndex + 10 'Fila desde donde va...

H o l a: Te anexo la macro para que la pongas en un botón. Sub SeleccionarHoja() 'Por.Dante Amor hoja = Range("C57") If hoja = "" Then MsgBox "Excribe el nombre de la hoja en la celda C57", vbExclamation Exit Sub End If existe = False For Each h In...

H o l a: No es necesario que selecciones la hoja, solamente tienes que hacer referencia a la hoja que vas a utilizar, por ejemplo, con esta instrucción le estoy indicando cuál hoja es la que voy a utilizar: With Sheets("Clientes" & n) La n es una...