วีดีโอ

Hola Santiago. Siempre hay que guardar la imagen. Si miras el siguiente video (Nº 82) lo verás 'en tiempo real'. En un userform se selecciona un item desde el combobox y 'casi inmediatamente' se obtiene la imagen del rango filtrado en un control Listbox, a pesar de que ese rango previamente se guardó como una imagen. Sdos!

Hola. Si, es verdad. Cada vez se ven más consultas por este tipo de hojas. Tienen sus pro y sus contra. Veremos cómo avanza esta competencia. 😉

Agradezco tus comentarios. Sdos!

Hola Claudio. Claro que sí. Si no se puede descargar desde el sitio solicitamelo a mi correo. Sdos!

@@ElsaMatildeGracias. Cuál es su contacto de correo

cibersoft.arg de gmail.com

Gracias por tus comentarios. Con respecto a tu consulta, recuerdo que en versiones bastante anteriores de Office teníamos una opción en Word ya que era un problema frecuente, algo como: Mostrar dibujos y cuadros de texto en pantalla. Debieras comparar las opciones de tu Excel en la laptop con las de la PC. Sdos!

Hola. Una opción sería quitar el filtro, hacer la búsqueda y volver a colocar el filtro. Dejo un pequeño ejemplo: Sub busca_con_filtro() 'dato a buscar en la col C dato = "mayo" 'se quitan posibles filtros If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData On Error GoTo noEncontrado Range("C:C").Find(what:=dato, LookIn:=xlValues, lookat:=xlWhole).Activate 'si encuentra el dato guarda la ubicación en una variable o mensaje MsgBox ubica 'opcional 'vuelve a colocar el filtro que tenía ActiveSheet.Range("$A$4:$D$26").AutoFilter Field:=1, Criteria1:="<>" & "COBRANZAS" Exit Sub noEncontrado: MsgBox "No se encontró el texto " & dato & " en la col C" 'vuelve a colocar el filtro que tenía ActiveSheet.Range("$A$4:$D$26").AutoFilter Field:=1, Criteria1:="<>" & "COBRANZAS" End Sub Otra opción es recorrer el rango con un bucle del tipo For... Next donde se incluyan las celdas ocultas: Sub busca_con_ocultos() 'dato a buscar en la col C dato = "OCT" For i = 5 To Range("A" & Rows.Count).End(xlUp).Row If Range("C" & i) = dato Then MsgBox "Dato encontrado en fila " & i Exit For End If Next i End Sub

@@ElsaMatilde muchísimas gracias por compartir su conocimiento. En mi caso prefiero la opción de quitar y poner los filtros para usar el Find dado que se trata de muchos registros a evaluar. Le saludo desde Costa Rica 🇨🇷.

Gracias por comentarlo ;) Sdos!

@@ElsaMatilde hola, espero estes bien Disculpa, intento configurar el código para que coja en la fila 8 con fila combinada desde las columnas de la C a la H , y no me realiza el auto ajuste Podrías por favor orientarme 🥹🙏🏼 depende de esto un informe importante que debo entregar 🙏🏼 gracias

@@jahsantos6635 Aquí en el Blog dejé otro ejemplo: elsamatilde.blogspot.com/2022/02/53-autoajuste-de-filas-en-celdas.html Si no te resulta tendrás que enviarme tu libro para verificarlo. Sdos!

@@ElsaMatilde también use el código del otro ejemplo pero tampoco me sirve Te enviaré correo y agradezco tu revisión 🥺

@@jahsantos6635 Claro, porque veo que tu necesidad no es recorrer un rango sino que son celdas específicas. Para estos casos los videos 1 y 3 podrían haber sido más apropiados. Ya te estoy devolviendo tu libro con la macro ajustada. Sdos!

Gracias por tu comentario. Sdos!

Hola Camila. Si cambias de nombre al libro del ejemplo, que tiene la lista con los vínculos, éstos se mantienen. Ahora, si tus hipervínculos se dirigen a un libro (digamos Libro1) y ahora le cambias ese nombre por 'Nuevo_Libro', tendrás que modificar el argumento 'Address' en la macro, manteniendo el resto de los argumentos sin cambios. Sub Mod_libroVinculado() 'nuevo nombre del librovinculado nvaDire = "Nuevo_Libro.xlsm" 'modifica el rango de la col A, a partir de la fila 4 'se mantienen los argumentos SubAddress(hoja y rango)y Screentip del vínculo For x = 4 To Range("A" & Rows.Count).End(xlUp).Row Range("A" & x).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=nvaDire, _ SubAddress:=Range("A" & x).Hyperlinks(1).SubAddress, _ ScreenTip:=Range("A" & x).Hyperlinks(1).ScreenTip, _ TextToDisplay:=ActiveCell.Text Next x End Sub Si el nuevo libro se ubica en una 'subcarpeta' de la carpeta activa tendrás que agregarla en el nombre, por ej: Pruebas\Nuevo_Libro.xlsm O de este modo si se encuentra en otra ubicación: ..\..\Pruebas\Nuevo_Libro.xlsm Sdos!

Gracias!

Me da gusto que así sea. Sdos!

Las demoras en los procesos tienen que ver con la memoria disponible y los recursos del sistema (versión Windows, versión Office, tamaño del libro, etc). Tendrás que realizar alguna prueba y verificarlo. Sdos!

Hola. Entiendo que este comentario se resolvió en la respuesta anterior. De todos modos te dejo el enlace del último video donde publico 3 ejemplos con un ListBox dentro de un Userform: th-cam.com/video/3OTXGkyaREo/w-d-xo.html Sdos!

Gracias por comentarlo. ❤

Gracias por comentarlo.❤

Hola. Te podría recomendar que utilices variables para indicar que la mesa está ocupada y cuando el cliente paga, quitarle la marca. De este modo se puede evaluar a la salida del módulo el estado de las variables, que debieran ser declaradas como Públicas para ser consultadas en diferentes procesos. Si no logras resolverlo tendrás que enviarme tu libro para revisarlo. Los correos aparecen en la sección Contactos de mi sitio AplicaExcel. Sdos!

Hola. Entiendo que se trata del video Nº 36 ya que allí vimos un ejemplo con formularios. Entonces, si el Userform se abre en otra hoja, la búsqueda se ejecuta correctamente porque se menciona que debe ser realizada en Sheets("Hoja1"). Pero para el pase de datos al ListBox debes anteponer la hoja. Por ejemplo: Listbox1.List(i,1) = Sheets("Hoja1").Range("B" & fila). Te recomiendo el video nº 66 (Cinco maneras de nombrar a las hojas). En tu userform podrías declarar Set hoX=Sheets("Hoja1") y luego anteponer en todas las instrucciones de pase esa referencia. Sdos!

Hola. Haces un filtro en una base y quieres saber si ese dato también está en la segunda base....antes de filtrarla..... ? Envíame por favor algo más de información a mi correo y con mucho gusto revisaré tu macro. Sdos!

Hola. Los correos aparecen en la sección Contactos de mi sitio AplicaExcel. Quedo atenta. Sdos!

Gracias por comentarlo. Veré de mejorar el Blog. Sdos!

Estimado Juan. Le cambié el tamaño de letra a las últimas 3 entradas del Blog. Coméntame si ahora permite una mejor lectura. Gracias. Sdos!

Gracias por comentarlo. Sdos!

Gracias por comentarlo. Sdos!

Gracias por comentarlo. Sdos!

Gracias Benito. Sdos!

Qué raro lo que me comentas. Acabo de descargar el libro con el ejemplo y veo que sí ajusta bien (en 365). Quizás tu problema sea otro. Si deseas enviarme tu libro para revisarlo, los correos aparecen en la sección Contactos de mi sitio AplicaExcel. También te invito a visitar el Blog. Allí dejé otros ejemplos con otras combinaciones de columnas que quizás quieras evaluar. Sdos!

Gracias por comentar ;) Sdos!

Si no podrás establecer de antemano cuáles serán las col a combinar (en el video son D:E) , tendrás que seleccionar alguna celda 'combinada' . Podría ser la del TITULO o no. De esa manera la macro sabrá de cuántas columnas dispone para la combinación. Acabo de publicar la macro en el Blog con la imagen del ejemplo: elsamatilde.blogspot.com/2022/02/53-autoajuste-de-filas-en-celdas.html Sdos!

Hola: Entiendo que no necesitas el InputBox para SELECCIONAR una celda/rango de la hoja sino para INGRESAR UN TEXTO que luego lo vas a buscar en el rango. Comentame si de esto se trata. Sino, enviame en una hoja Excel una pequeña muestra con las aclaraciones al correo cibersoft.arg de gmail. Sdos!

Hola Abraham. Si, debes sumar el ancho de todas las columnas de cada fila. Por ejemplo desde B:G sería: 'se declaran todas las columnas involucradas en el rango Set B = Cells(y, 2): Set C = Cells(y, 3): Set D = Cells(y, 4): Set E = Cells(y, 5): Set F = Cells(y, 6): Set G = Cells(y, 7) anchocol = B.ColumnWidth + C.ColumnWidth + D.ColumnWidth + E.ColumnWidth + F.ColumnWidth + G.ColumnWidth Pero, como le comenté a 'user-pw' unas semanas atrás, el resultado del cálculo depende de la cantidad de columnas, pero también de la fuente (tamaño, tipo de fuente, negrita o no) por lo que en las instrucciones de ´cálculo' tendrás que ir probando y ajustando. Por ejemplo: para fuente normal (calibri 11) y 6 columnas. If dif <= 1.5 Then 'si son muchas columnas probar con <= 1 If dif <= 0.4 Then 'si es fuente muy pequeña y mayor nro de columnas probar con 0.5 resulta = 1 Else resulta = 2 End If Else resulta = dif + 2 End If 'se asigna el alto obtenido If resulta > 0 Then Range("A" & y).RowHeight = (alto * resulta) Si te presenta algún inconveniente adaptar esta macro a tu modelo de datos, podrás enviarme tu libro a mi correo con la macro para ajustarla. Sdos!

@@ElsaMatilde muchísimas gracias!

Enviame tu libro con un pequeño ejemplo para que pueda apreciar cuáles son las celdas combinadas (1 o más columnas, 1 o más filas). Mis correos aparecen aquí: aplicaexcel.com/contactos Sdos!

Leandro: Ya te devolví el libro con la macro ajustada. Revisa tu carpeta Spam por si no lo encontraste aún ;)

Gracias a tí por comentarlo. Sdos!

Hola, gracias por tu comentario. Para obtener un resumen debieras mirar los videos de Filtros. Nº 35 (Filtro avanzado) y Nº 36 (Filtro dinámico) desde un Userform. Sdos!

Hola José. Si, podés acceder a más detalles en el Blog, buscando la entrada del 2020, Enero. Para descargarlo directamente: aplicaexcel.com/Blog/Mod-Elim_Base.xlsm Si te presenta alguna dificultad contactame a mi correo (aparece en mi web) y te lo envío x mail.

En este ejemplo se combinan 2 col. Si vas a necesitar alguna más (digamos 3) podrías agregar esa nueva columna en estas instrucciones, a partir de la instrucción: Set D Set D = Cells(i, 4): Set E = Cells(i, 5): Set F = Cells(i, 6) anchocol = D.ColumnWidth + E.ColumnWidth + F.ColumnWidth Pero si vas a tener varias más, te conviene recorrer el total de col y sumar sus anchos, de este modo (a partir de la instrucción Set D) Set D = Cells(i, 4) 'ancho de cada col anchotexto = Len(D) 'suma de varias col For j = 4 To 7 'col D:G anchocol = anchocol + Cells(i, j).ColumnWidth Next j 'aquí sigue el resto sin cambios: If anchotexto > anchocol Then Sdos!

Hola Rubén. El enlace está correcto, solo actualiza la página del Blog. De todos modos ya te lo envié a tu correo. Sdos!