Un saludo a todos y de antemano, gracias Tengo una hoja (Detalle) que es mi base de datos pero tengo que realizar con macro un Resumen en donde por periodo me de los días que visitaron una tienda, ya realice una macro que lo hace solo que lo hace por cada registro por separado que tengo en la base de datos Y lo que quiero es que cada registro (representante, promovendedora, ciudad, farmacia) saque la fecha de trabajo y ponga sus datos en las diferentes semanas pero en el mismo renglón por registro que sea igual. en el archivo esta un ejemplo de como debe de quedar basándose en la hoja Detalle y en resultado en la hoja Resumen. ojala y me puedan ayudar a definir …

Hola, pretendo agrupar y sumar los artículos dentro del mismo listbox, pero sin tener hoja secundaria donde realizar las operacines. En el archivo adjunto pongo un pequeño ejemplo. Prueba.xlsb

Hola a todos, gracias de antemano. Adjunto archivo donde explico en lo que deseo me ayuden. En la hoja inicial tengo una tabla con encabezados y cantidades. Lo que deseo es que en las celdas donde haya cantidades, estas sean sustituidas por el encabezado. Y por último, en la hoja "Resultado esperado", está la tabla a como deseo obtenerla. Las celdas vacías sean eliminadas y ocupadas por la siguiente celda con dato a la derecha, o lo que es lo mismo, correr las celdas con datos hacia la izquierda, sustituyendo las celdas vacías. Gracias de nuevo por su acostumbrada ayuda agrupar celdas con datos.xlsx

Buenas tardes.Alguien me pueda ayudar a indicarme el código para desplegar la ventana de adjuntar elemento de outlook. No archivo adjunto, sino correo adjunto.anexo una PDF de la ventana que quiero desplegar para el usuario. la ruta "por decirlo así­" es: cuando estas en una nuevo correo en la ficha archivo, esta el grupo incluir, luego adjuntar elemento y por ultimo elemento de outlook.de antemano muchas gracias.excelente foro

Hola! Necesito una macro para ajustar celdas combinadas de manera automatica. Ojala me puedan ayudar. Adjunto un archivo con lo que necesito. La informacion es ingresada a las celdas combinadas desde un formulario. pero al abrir el archivo no logro ver toda la informacion ya que la informacion ingresada tiene varias lineas. Gracias de antemano. Ajustar_Celdas_Combinadas.rar

[ATTACH]38602.vB[/ATTACH][ATTACH]38603.vB[/ATTACH] Un buen dia para toda la comunidad, he buscado entre los inumrables temas solucionado pero no he encontrado ninguno el cual me pueda dar solucion al siguiente tema o si en otro caso seria posible. Tengo plantillas en el siguiente archivo, lo siguiente que deseo es que al momento de buscar con la macro las celdas se adecuen de acuerdo al contenido que ellas tengan automatico, sin necesidad de hacerlo manualmente como muestro en las imagenes, sin que se pase el contenido de la hoja 2 a la hoja 1.. espero me halla dejado entender y me puedan dar una mano. si en caso no se pudiera realizar lo pedido, como hacer una macro que…

Hola Amigos del foro me gustaría saber como puedo hacer para que el formulario se ajuste a la resolución del monitor donde lo trabaje, el problema esta que cree mi proyecto en un monitor de 1280 x 1024 y cuando abro el formulario en un monitor mas pequeño no se puede ver todo, es posible hacer una macro para solucionar esto esto??? Encontré algo de usar el evento GetSystemMetrics pero no se como usarlo... Muy agradecido por sus aportes...

He intentado ajustar la macro de la hoja 1 a los datos de la hoja 3 que es algo diferente, para conseguir transponer los datos de la columna 1 de la hoja 3, de modo que queden como indico, pero no logro adaptar la macro de la hoja 1 a la hoja3. ¿Alguien puede ayudarme? Gracias al foro Borja transponer tasas_BORJA.zip

Buenos días, de nuevo molestando, tengo un formulario VBA y esta trabajado en resolución de 1440*990, mi pregunta es saber si hay alguna manera de que el formulario se adapte de acuerdo a la resolución de pantalla de la computadora en donde se ejecute el formulario. Gracias de antemano por la ayuda

Hola amigos, ¿se puede autoajustar el alto de las filas en un listview o en un listbox?. Quiero mostrar unos datos tipo comentarios en un listbox o listview, y quiero que estos se vean completos, sin tener que modificar el ancho de las columnas. Adjunto archivo que encontre. no es mio, es solo de ejemplo para ver si es factible aumentar el alto de las filas gracias listview.rar

buenos días, espero que todos se encuentren bien en estos tiempos de pandemia actualmente estoy investigando como poder realizar lo siguiente, tengo varias celdas con texto, en las cuales debo ajustar el tamaño del texto al tamaño de la celda, las celdas pueden estar concatenadas o no, con diferentes tamaños, estoy tratando de buscar la forma de hacerlo de manera masiva, ya que básicamente debo realizar esta acción cientos de veces, por otra parte también agregar un marco solo a las celdas que contienen texto espero se pueda entender mi duda desde ya muchas gracias

Hola buenas, soy un poco novato pero he estado buscando y no encuentro nada en la red. Lo que yo quiero es ajustar un texto a una celda (combinada). Ojo, no ajustar la celda al texto. Esto es porque ele tamaño de la celda combinada varía y quiero que el texto ocupe toda la celda. Os enseño hasta donde he llegado: Dim rango as range Dim variable as byte Sheets("Sheets1").Range("B2").Value = "TEXTO" Set rango = Range(Cells(2, 2), Cells(3, Variable + 3)) rango.Merge rango.HorizontalAlignment = xlCenter rango.VerticalAlignment = xlCenter rango.Interior.ColorIndex = 41 'AQUÍ QUIERO AJUSTAR EL TEXTO PARA QUE ME OCUPE TODO EL rango …

Buenos dias. Estoy trabajando con un archivo que contiene macros y muchas celdas que estan combinadas y centradas y al momento de ejecutar algunas macros me esta generando errores que me descuadran el formato sobre el cual estoy trabajando. investigando me he enterado que es por el uso de la funcion combinar y centrar. asi que quisiera saber como puedo ajustar un texto un poco extenso pora el cual estableci un espacio de las celdas A8:AD10. he probado con centrar en la seleccion, pero esto solo me sirve para una fila y no con filas y columnas.

Hola y muy buena tarde foreros, espero puedan ayudarme por favor!!! , tengo un código que he ido puliendo, pero falta un ajuste mínimo creo, ya que no está funcionando algo, que es guardar los cambios antes de cerrarse el o los archivos de formato CSV. El proceso es el siguiente: 1ro. Exporto desde otra plataforma muchos archivos en formato csv (separados por coma) que inician con el prefijo "Mapeo", ejemplo : Mapeo_Sistema1, Mapeo_Sistema2, etc) 2do. Ejecuto el código que pegaré más abajo, éste está guardado en mis macros "PERSONAL.XLSB" y la ejecuto de un botón. 3ro. Se ejecuta la macro, funciona bien, excepto la instrucción donde debe guardar cada uno …

HOLA NENES, NECESITO AJUSTAR DISTINTOS ESPACIOS DE 3 COLUMNAS EN UNA MACRO, GRACIAS! BESOS A TODOS:mushroom::mushroom::mushroom:

hola amigos del Foro, tengo unas dudas, estoy realizando unos formularios en Excel VBA y estoy buscando como ajustarlos a la pantalla de la computadora, ya que estos formularios se van a ejecutar en diferentes equipos y lo que pretendo es que se ajusten en automatico de acuerdo al monitor... espero y me puedan apoyar en darme una idea...no subo un archivo ya que solo es un formulario normal..... gracias por su gran ayuda y apoyo.... Saludos amigos....

Saludos amigos espero estén bien En la actualidad los datos provenientes de los TextBox 5, 6 y 7 se guardan en las Columnas H, I y O de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) sin embargo cuando el texto es abundante no se visualiza completamente en las celdas correspondientes de allí que necesito que cada fila se ajuste al tamaño de la celda que contenga mayor cantidad de texto para lo cual he probado con la siguiente macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireRow.AutoFit End Sub Sin embargo, dicha macro coloca todas las filas del tamaño del texto que contengan y lo que en realidad necesito es que dicha macro solo se a…

horarioexel24.xlsmbuenos dias. tengo una hoja de calculo con una columna con las fechas de todo el año. La intencion es que al abrirla busque la fecha del dia y quede activa y visible. agradeceria un poco de luz sobre este tema ya que soy incapaz de encontrar referencias a esto. un saludo y gracias

[sOLUCIONADO] Al abrir libro de excel, en un cuadro de texto, el usuario elija entre dos opciones Hola, Me gustaría hacer lo siguiente con un archivo de excel: Cuando se abra el archivo, antes de que abra las hojas aparezca un cuadro de texto con dos opciones ("proveedores" y "clientes") y dependiendo de la opción que elija el usuario se abran los formatos que corresponden. Pensaba poner un cuadro con botones como el que se usa cuando te pregunta excel al cerrar "¿Desea gaurdar lo cambios?" Alguien tiene alguna idea si se puede hacer esto y cómo??? Espero que me haya explicado bien Muchas gracias por sus ideas y su ayuda

Buenas tardes; Estoy desesperado, no sé que le ha pasado a mí Excel. Al abrir una macro guardada de ayer el Excel no tarda nada en abrirse pero......si ese Excel que abro ( guardado ayer ) le guardo con otro nombre, le cierto y le vuelvo a abrir, se queda en la pantalla de iniciando durante 2 minutos (aprox.) Y luego se abre. Que puede pasar, me pasa con todas las macros que guarde. No he probado con Excel sin macro, luego probare. Sabéis cómo solucionarlo??. Muchas gracias.

Estoy trabajando en el libro de "Desing Mode Error Rev1.xlsb", y cuando uso el siguiente código para abrir el otro libro..., ya no me ejecuta la linea de "Range("C5").Select"... Lo que he visto es porque se activa la opción de "Design Mode", en el "Desing Mode Error Rev2.xlsb" ..., ya que si no estuviera activada esa opción si se sigue ejecutando el código... Así que pienso que posiblemente esa sea la causa para que no siga ejecutándose el código..., pero sino fuera esa..., les agradecería me indicaran donde tengo el error. a = Application.ActiveWorkbook.Path e = Left(Application.ActiveWorkbook.Name, 21) Workbooks.Open (a & "\" & e & "2.xlsb") Range("C5")…

Hola buenas tardes: estoy creando un formulario para registrar datos pero en diferentes hojas. Dentro del formulario ya he agregado un campo para la seleccion del nombre (nombre de la hoja donde debo ingresar los datos capturados) y funciona bien pero dentro de cada hoja en la columna A tengo los consecutivos actuales, este corresponde al ultimo registro. con la funcion de: Me.txtCons = Application.WorksheetFunction.Max(Range("A:A")) + 1 , puesto en: UserForm_Activate me mostraba el ultimo consectivo de una sola hoja. Pero ahora que he agregado el cambio de hojas ya no lo toma. Mi necesidad seria que al cambiar el nombre de la hoja me diera e…

Hola a todos. Tengo un libro de excel con varias hojas (por ahora son 33, pero si todo va bien llegará a tener cientos de hojas). El libro comienza por tres hojas, que son Resumen, Relación y Recibos. Luego comienza una serie de hojas, que son 001, 002, 003, y así hasta la penúltima, que es la 029 y la última, que es la 999. Lógicamente, las hojas irán aumentando a lo largo del tiempo, o lo que es lo mismo: dentro de un mes, probablemente la penúltima hoja no será 029, sino, por ejemplo, 032. Y así sucesivamente. Dentro de esas hojas, tengo cuatro celdas que normalmente devuelven el valor NO, pero que cuando ocurren ciertos cambios devuelven el valor SI. Pues bien: l…

Tengo un botón BUSCAR que me llena los datos de mi formulario, los 3 primeros datos van en textbox y los otros 3 en combobox dependientes. Me llena bien los datos pero cuando quiero modificar los datos de los combobox no me trae del combobox3…<br>Solo cuando hago llenar los datos con el botón BUSCAR y quiero modificar dichos datos lo que no me trae el tercer combobox, sin buscar ningún dato funciona todo bien, como puedo hacer para que me funcione mi combobox dependiente en su totalidad aun cargando los datos con el botón BUSCAR..?<br> adjunto mi archivo. Excel.zip

hola he creado un a aplicacion y en uno de los modulos abre y cierra otro libro de excel dependiendo los cambios que se le hagan guarda y cierra pero al terminar de usar la aplicacion quedan muchas ventanas vacias abiertas tantas como capturas o modificaciones que hice este es mi codigo Private Sub MultiPage2_Click(ByVal Index As Long) If MultiPage2.Value = 0 Then Application.Visible = False Application.ScreenUpdating = False Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "server.xlsx" Worksheets("MATERIALES").Activate Worksheets("MATERIALES").AutoFilter.Sort.SortFields.Clear Worksheets("MATERIALES").AutoFilte…