Hola @Antoni Gusto en saludarte. En un Post anterior vi esto tuyo que lo pasa a JPG Sub Export() Dim oWs As Worksheet Dim oRng As Range Dim oChrtO As ChartObject Dim lWidth As Long, lHeight As Long Set oWs = ActiveSheet Set oRng = oWs.Range("B2:H11") oRng.CopyPicture xlScreen, xlPicture lWidth = oRng.Width lHeight = oRng.Height Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight) oChrtO.Activate With oChrtO.Chart .Paste .Export Filename:="Case.jpg", Filtername:="JPG" End With oChrtO.Delete End Sub Existe la manera de hacer lo mismo pero a PDF? Gracias.

Existe algún método para identificar la pestaña activa de la barra Ribbon ?

Saludos apreciados; Estoy realizando un codigo, donde tengo dos hojas En la Hoja "Relación", los datos que a partir del rango b4:c4 hasta abajo dentro de esas dos columnas (estos rangos varian, pueden ser 25 filas o 60 filas). se copien en la hoja denominada Bd_Bingo, en la ultima fila vacia, de la de la columna "A". De antemano gracias bingo ayuda 1.zip

Una buen día, les cuento que estoy diseñando un libro en excel con nómina de estudiantes y sus respectivas calificaciones, calificaciones y datos que extrae de las diferentes hojas del libro en excel. Tengo un problema al aplicar el código de Vba en excel para ordenar las calificaciones de acuerdo al nombre del estudiante, se ordena sin ningun problema, pero las formulas que se encuentran en las celdas también se mueven, cómo puedo ordenar los datos sin que se modifiquen las fórmulas y funciones que se encuentran en cada celda. Gracias

Estimados, buenas tardes y feliz año para todos Estoy lanzando un calendario desde un commandbutton y pasando la fecha seleccionada a un textbox. Se hace sin problema cuando están ambos controles en el cuerpo del formulario. El problema surge cuando los controles están dentro de un frame o multipage dentro de frame, en estos casos el control que toma es el frame Probé recorriendo los controles dentro del frame y también me da el error. La idea es que el calendario emergente se abra juntoal txt y no programar coordenadas independientes para c/u de los controles que puede traer problemas con distintas resoluciones de pantalla Tambien aqui dejo el a…

Buenas tardes familia Necesito ayuda en una data como puedo usar filtros en vba para que siempre me filtre el dia en curso. En la data quiero que la macro vaya para la columna CN y me filtre la fecha del dia en curso.

Buenos dias familia nuevamente necesito su ayuda. Tengo un reporte el cual consiste en una tabla lo que quiero es que me oculte la ultima columna y me desoculte la penultima columna como pueden ver en la imagen esta oculta de la colunma B hasta las Ti pero al dia siguiente cuando se carge la nueva data debe ocultarse la TI la cual tiene la fecha 12/24/2022 Y desocultarse la Vn 01/01/2023 que es la que sigue y que siga asi ocultando y desocultando columnas segun vayan pasando la fecha no se si me doy a entender recorte el archivo excel ya que solo se puede subir 100kb muchas gracias familia nuevamente y feliz año nuevo data foro.xlsx

Buenas noches amigos, Por favor, alguien podría ayudarme con esta duda. Este código que envía mensajes de información que esta en excel, a través de WhastApp, me funciona correctamente en windows, pero necesito adaptarlo para que funciones en un Excel de un ordenador MAC. Creo entender que el problema lo tengo en la ejecución de la función SHELL que inicializa la aplicación, pero no se que adaptación debo hacer para que sea operativo en MAC. De antemano agradezco su valiosa ayuda. Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As St…

Hola a todos! tengo una consulta que pareciera ser imposible... vengo investigando hace mas de un mes y no encuentro la forma de resolverlo.... Tengo una rutina que me crea una serie de shapes rectangulares como si fueran boton de un indice... la rutina recorre cada hoja, y crea en la hoja1 un shape por cada hoja que encuentre en el libro, ... logre que le ponga el nombre de cada hoja como texto al shape... pero lo que necesito agregar el action para cada shape, , ejemplo: si existe una hoja "X" creo el shape con texto "X" en la hoja 1. y el action debe ser : ir a la hoja X , si esta oculta, mostrarla. For Each Worksheet In ThisWorkbook.Wor…

Buenas noches estimados, Recurro nuevamente a ustedes para solicitar amablemente su ayuda, diseñé un formulario en Excel de consulta, que importa la información de una base de datos en Access, el cual tiene filtros que funcionan individuales o combinados, el problema es que el código que realiza la búsqueda se tiene que repetir en total 25 veces, todo exactamente igual, lo único que varía son las condicionales para la búsqueda, creen que se pueda reducir las líneas o hacerlo de otro modo que no requiera un código tan extenso?, esta es la imagen del formulario: Como pueden observar es sencillo, solamente los filtros de búsqueda son los que hacen que se repi…

Buenas noches comunidad! En esta instancia vengo a preguntar algo que quizá sería muy sencillo para algunos pero a mí me ha sacado canas verdes! Poseo una macro para fusionar/unir/agrupar o como más deseen llamarle! Varios libros de excel en un mismo libro! Esto lo requiero porque a partir de ahí luego extraigo los datos de los más de 400 libro por separado con otra macro que recorre luego cada hoja del ahora único libro y me saca un listado con los valores por columnas solo de la información que requiero. Aora bien mi inquietud es la siguiente! La macro siempre debo asignarle la ruta copiando y pegando en el código! Habrá una manera que pueda no tocar el códig…

Saludos a todos, tengo la variable ultimafila en una macro que me cuenta los campos en un rango para luego mostrar en un mensaje cuantos se van a generar, desde 1 hasta la variable, sin embargo el rango que está leyendo está formulado y me toma las formulas como campo aunque esté vacío. Necesito que solo me cuente las que tienen información así todas tengan la formula. Agradezco la ayuda 'la variable ultimafila está contando los campos con formula, así esté vacío, necesito que solo cuente los que tienen info ultimafila = Sheets("Tabla").Range("B" & Rows.Count).End(xlUp).Row Pregunta = MsgBox("Esta seguro de generar todos los recibos ?",…

Buenos dias, Tengo un modulo en VBA que me coge una tabla y me la exporta a txt por Tabulaciones. Funciona perfectamente siempre que la tabla empiexe en la celda "A1". El problema es que cuando quier por ejemplo que la tabla empieze a partir de "C10" y lo indico en la fila que cuenta filas y columnas no funciona. El codigo que uso es el siguiente: Sub ASM() Dim NombreArchivo, RutaArchivo As String Dim obj As FileSystemObject Dim tx As Scripting.TextStream Dim Ht As Worksheet Dim i, j, nFilas, nColumnas As Integer NombreArchivo = "pedidos" RutaArchivo = "C:\IMPORTA_PEDIDOS\IMPORTA_ASM" &amp…

Buenos dias Familia Nuevamente necesito su ayuda tengo un archivo en la cual quiero copiar los datos que estan en el sheet1 de la columna B en adelante sin el encabezado y pegarlo en la sheet2 debajo del ultimo registro que tenga esa hoja. Favor su ayuda muchas gracias anexare el documento tuve que acortar la data para poder subirlo data foro.xlsx

Buenas Familia Soy medio nuevo con esto de las macros necesito ayuda como puedo buscar y remplazar varios textos por un unico texto pero solo en la columna que quiero trabajar por ejemplo En la columna "S" quiero que me filtre los ADSL, DTH, VOZ PERSONA Y PSTN y luego que los filtre lo renombre por Multiplan Full pero solo en esa columna. Muchas gracias espero su ayuda.

Muy buenas. Y antes de nada, felices fiestas a todos. La duda que tengo es la siguiente. Ya se como abrir libros con VBA, pero lo que me preguntaba es si se puede hacer que sea el usuario el que elija que libro abrir. O sea, crear un botón, que al pulsarlo abra una ventana que nos permita buscar y elegir el archivo. No se si se puede hacer algo así o es mucho lio. Cualquier aclaración al respecto lo agradezco. Un saludo!

Hola a todos ! como estan! vengo a pedirles ayuda y apoyo estoy enloqueciendo con un codigo que dura casi 10 min en ejecutarse ... comparto archivo de ejemplo Tengo en mi archivo una hoja "BaseDatos" con mas de 30.000 filas. las cuales tiene datos de hospital, medico y pedido y tipo de pedido. Una segunda hoja "Analisis" donde extraje los unicos de (Hospital- Pedido- Usuario), con eso me quedan unas 5.000 filas... Lo que necesito que mi codigo haga es que por cada pedido que encuentre en Analisis, recorra todas las filas de Base Datos que tengan el mismo numero de pedido, y el mismo user, para evaluar que Tipo documentos tiene ese pedido , en la colu…

Hola a todos; Tengo un formulario con un comboBox y varios frames. Desde el combobox selecciono el frame y lo posiciono mas o menos al centro del formulario. El problema erradica que si hago la llamada a otro frame este queda oculto detrás del primero Se como mover uno a uno pero me gustaría usar un mismo procedimiento para todos. He grabado un video explicando un poco el tema. Video frames Si se os ocurre algo me comentáis. MFrames.xlsm

buenas tardes, tengo una macro que me abre hipervínculos en celdas seleccionadas Sub abrirenlaces() For Each celda In Selection If celda.Hyperlinks.Count > 0 Then celda.Hyperlinks(1).Follow NewWindow:=False Application.Wait (Now + TimeValue("00:00:01")) Next celda End Sub el problema que tengo es que, al tratar de abrir gran cantidad de enlaces, la macro solo abre un máximo de 10 y luego me da error, he probado de varias formas y distintas macros que he encontrado en la web, pero todas me dan el mismo problema muchas gracias por el apoyo y felices fiestas a todos!

La Pocha es un juego de cartas en el que como en casi todos los juegos hay un turno de salida, es un juego parecido a la brisca, donde en cada mano, después del reparto correspondiente, se saca una carta más que es la vira y cuyo palo tiene más valor que los demás palos de la baraja. Para cada ronda que se juga se va rotando el jugador que sale, así, mi problema está en conseguir que cada ronda se siga el orden. En la primera juegan en el siguiente orden 1, 2, 3 y 4, en la segunda ronda, sale el jugador 2, 3, 4, y 1, en la tercera el jugador 3, 4, 1 y 2, en la cuarta ronde será: 4, 1, 2 y 3, en la quinta ronda será 1, 2 , 3 y 4 y asía hasta la ronda 17. Este ord…

Saludos cordiales, apreciados foreros les presento un archivo, en este tengo un formulario donde tengo una base de datos de todos los trabajadores, al buscar el trabajador requiero me traiga tres imagenes, que son la foto de perfil, dni y el dorso. Estas son las rutas: C:\Users\User\Documents\Mis archivos de origen de datos\EMPLEADOS\FOTOS C:\Users\User\Documents\Mis archivos de origen de datos\EMPLEADOS\dni C:\Users\User\Documents\Mis archivos de origen de datos\EMPLEADOS\dorso ... pero cuando le doy a buscar el codigo del trabajador ejemplo el 10, me carga la informacion que requiero excepto las imagenes. si pudieran por favor ver donde esta mi …

tengo un proyecto amigos de filtrado Sub filtro_prueba() Range("A9").CurrentRegion.AutoFilter Field:=12, Criteria1:=Sheets("anexo").Range("b10").Value 'estatus es un texto Range("A9").CurrentRegion.AutoFilter Field:=9, Criteria1:=Sheets("anexo").Range("b12").Value 'es una fecha end sub desde la fila 9 inician mis datos los cuales tienen un encabezado , lo que pretendo hacer es filtrar dos condiciones una de estatus y la otra es de fecha solo que no me funciona ojala me puedan ayudar

Hola a todos; En un formulario cargo manualmente los datos de en el ListBox. Tengo un botón que me sirve para añadir registros a este ListBox Los registros son fechas. Entonces la pregunta es, ¿si yo añado un nuevo registro hay posibilidad de que se ordenen los items por fecha? Imagino que me la solución que me vais a dar pasará por pasar los datos a la hoja y ordenarlos desde ahí. Esta opción para el caso no me serviría. Buenos días a todos. MOrdenarList.xlsm

Hola de nuevo, He buscado en foro pero no encuentro Gracias a la ayuda de @JasallBcn pude avanzar en lo que es mi primer formulario que he ido realizando de manera autodidacta a través de ejemplos encontrados en el foro y tutoriales diversos. He ido creando lo que será el formulario final en otro archivo que no he subido por tema de datos....pero ahora me encuentro con un nuevo problema que no consigo dar con ello, intento explicar de forma resumida: Se trata de los combobox, si doy a grabar sin más de primeras pues me realiza la acción dejando las celdas sin datos. Bien, al dar siguiente pues veo que si elijo un item de alguno de los combos y dejo el rest…

Estoy usando una macro de button y otra de un textbox, al momento de proteger la hoja no me deja ejecutar ninguno de los dos