Buenas a todos, este es mi primer post, y lo primero decir que me parece un gran foro, con gente que controla mucho y tienes ganas de ayudar. Por eso, enhorabuena a toda la comunidad. Al grano con un problema que me tiene un poco loco: Primero decir que soy totalmente novato en vba y estoy haciendo una aplicacion simple para gestionar una tabla con datos, a modo de base de datos, para consulta con filtros predefinidos y posiblidad de impresion de reportes. Mi problema es con las fechas...tengo un listbox para las busquedas y desde esos datos filtrados saco el reporte (son 11 columnas), todo funciona correcto y me lo muestra dentro del control listbox perfectamente, p…

Hola amigos de excel tengo un inventario que el sr. antoni me ayudo con el codigo para hallar el stock. estaba modificando para hallar el resultado deseado pero no he podido ya que mis conocimientos de vba son limitados. yo lo hago con formulas, pero me gustaria que sea automatico ya que estar copiando y pegando formulas es algo estresante ya que varia los rangos y puse 4 de ejemplo pero en realidad es mucho mas. deje el antes y despues de como quedaria lo que busco espero que se entienda. muchas gracias por su gentil ayuda de antemano. PRUEBA.xlsm

Buenos Días Soy Nuevo En El Foro Y Quisiera Saber Si Me Pueden Ayudar Con Esta Barra De Estado Que Necesito Que Se Actualice Con Un Textbox al escribir Me Gustaría Que Me ayudaran el formulario esta en el apartado desarrollador de macros. Barra de Progreso.xlsm

Hola; llevo unos dias intentando transponer unos datos pero no consigo hacerlo, he probado con la función transponer, pero no es exactamente eso lo que quiero. Tengo los valores ordenador como estan en la hoja "Datos iniciales", y los quiero poner como estan en la hoja "Pasar Datos". En el ejemplo hay 10 empleados, y 5 conceptos distintos ,pero normalmente ese proceso tiene 500 empleados con unos 15 conceptos. Si os preguntais como se hace ahora, pues, se hace uno a uno , la intencion que tengo, y he probado es pasar los datos mediante access (tabla vinculada), a una tabla oracle, que es donde lo necesito. pero lo que no consigo es dejar los datos como estan en la …

Hola a todos. Después de una larga ausencia recurro a los que saben con la seguridad que encontraré la solución a mi consulta, como siempre ha sido. En esta ocasión me gustaría que alguien me ayude en lo siguiente: Tengo una macro con la cual numero y guardo un libro de Excel que contiene una factura. El caso es que al guardar el libro, en el nombre me devuelve el número de la factura en formato simple y quisiera que la devolviera en un formato personalizado. Me explico mejor: la macro me devuelve el número de la factura que se encuentra en la celda I2 pero este número quisiera que lo devolviera anteponiéndole tres (3) ceros (0), o más si fuere el caso. Por ejemplo, si e…

Buenas llevo días trabajando sobre una macro la cual realiza varios calculos, obtiene datos, etc. El problema es que cuando la ejecuto excel aparece como no responde. Tarda bastante y no veo que coja todo los recurso del pc. Dicho esto lanzo mis dudas. *Viendo esta programación creéis que es normal no espero que la entendáis, la idea es daros una visión del volumen . Private Sub CommandButton2_Click() Dim variable As String Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False numero_de_cables = Application.CountA(Worksheets("Cable list ").Ra…

Muy buenas tardes estimada comunidad Me podrían ayudar con esta macro, Tengo una macro que me genera un reporte de inventario en un archivo excel, el archivo tiene códigos y formulas para la descripción de cada código, Ejemplo. Código - Descripción 001 Zanahorias. 002 Cebollas. 003 Tomates. 004 #N/A. La macro continua después de llenar los campos de "descripción por medio de formulas, lo que necesito es que, la macro me muestre un mensaje cuando no encuentre un código en la base de datos por ejemplo el código #N/A cuando encuentre este valor que me de un mensaje que me diga "Por…

Hola soy nuevo en esto pero tengo un problema con una macro que estoy corriendo, la macro se corre al momento de hacer un cambio en la celda (A1) y si funciona la macro pero me aparece el mensaje de Run-time error '13': Type mismatch y pues no se a que se deba esto, si me pueden ayudar se los agradeceria mucho les dejo el codigo y marcado en rojo donde me aparece el error cuando le doy debug: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = Range("A1") Then Call prueba End Sub Gracias!! pivottable filters (test)01.zip

buenas tardes saludos Expertos, queria comentarles que estaba creando un codigo en el cual despues de una cantidad de datos (revisando que sea un producto y de ahi vaya a otra columna y ponga su nombre ) llega a un numero y busque el nombre de otro vendedor y continue haciendo lo mismo, pero da la casualidad que estaba creando el codigo de acuerdo a la base de datos, pero realmente si la distribucion de nombres seria distinta (x lo que se aprecia es orden alfabetico, pero si cambia) mi codigo genera error podrian ayudarme adjunto archivo no puedo mostrar el código porque es muy grande. gracias Saludos Brian ayudaDatos.zip

Buenas tardes, Tengo un excel con condicionales de colores y que por filtrar han acabado por estropearse. Me gustaría hacer lo mismo con VBA. Lo que necesito es algo que seguramente esté más que publicado, pero no hay forma de encontrarlo. Se trata de como ejemplo 5 columnas y que la columna tiene un valor especifico string "Cerrar" y otros "Abierto". Lo que busco es que cuando la columna 1 contanga "Cerrar" la fila hasta la columna 5 se ponga en rojo, y si es "Abierto" sea del color verde. Realmente sólo necesito el codigo base o una idea de como hacerlo. Saludos,

Hola, saludos a todos. Necesito ayuda (he empezado hace poco con VBA), quiero extraer el valor de la celda de una tabla que tiene en la fila superior nombres y en la columna izquierda numeros. Como ejemplo la imagen Busco la letra B1 y el numero 6 y me tiene que devolver el valor 48. Muchas gracia por vuestra ayuda.

Hola a todos y todas. Como otras veces hice, acudo a este foro para solventar una duda, porque hasta ahora, me habéis ayudado rápidamente y siempre dando en el clavo. Tengo un libro de excel y quiero que con una macro se copie la hoja en el mismo libro y con el nombre de unas celdas en concreto. La hice y hasta ahí todo bien. La dificultad se presenta cuando vuelvo a ejecutar la macro. Al intentar crear otra hoja con el mismo nombre, me da un error. Si le doy a depurar me resalta lo que sigue: **************************************************** Sub Guardar_copia_convalor_celda() ' ' Guardar_copia_convalor_celda Macro ' ' Sheets("Hoja1").Select Sheet…

¡Hola! Estoy intentando hacer una macro para que pida dos fechas (una de inicio y una de fin) y filtrar según esos valores en la columna "fecha de cierre de recomendación". La cuestión es que no sé si es necesario que a las Inputbox les especifique que están recibiendo fechas. Lo digo porque no me funciona bien y no logro atinar por qué. Os pongo a continuación el código: Sub Filtrar_fecha() fecha_inicio = Application.InputBox("Introduzca fecha desde la que quiere ver las recomendaciones. Por favor, asegúrese de que el formato introducido es dd/mm/yyyy") fecha_fin = Application.InputBox("Introduzca fecha hasta la que quiere ver las recomendaciones. …

Hola amigos De nuevo solicitando su apoya para resolver un tema, al filtrar ciertos datos y requiero copiar la información para procesarla solo que cuando no hay datos se produce un error 1004 como podria condicionarla con un if thense Sub copiar_filtro() ActiveSheet.Range("$A$5:$D$11").SpecialCells(xlCellTypeVisible).Copy End Sub Sub filtro() Range("A5").CurrentRegion.AutoFilter Field:=4, Criteria1:=Sheets("base").Range("c4").Value End Sub filtro vacias.xlsm de antemano gracias

Hola a todos, tengo una macro que inserta imágenes la cual me funciona excelente, lo que hace es que en la columna B tengo el nombre de un modelo y si existe pone la imagen en la columna A que la jala de una carpeta y cuando no exista la imagen se salta a la que sigue. La duda que tengo es cómo decirle a la macro que cuando no exista la imagen no se salte a la que sigue sino que me ponga una imagen titulada "no hay imagen" que está dentro de la misma carpeta. Esta macro funciona con un On Error Resume Next. Cuál sería el código fuente para que en vez que se salte a la que sigue me ponga esa imagen llamada "no hay imagen"? Agradezco mucho su apoyo.

Buenas tardes, Tengo, en una columna datos del tipo xxxxxxxx/6/3. Necesito recorrer esa columna y modificar esos datos para eliminar todo aquello que esté a la izquierda de la primera barra. Es decir, en el ejemplo quedaría ésto: 6/3. A veces la celda en cuestión no contiene una barra, solo texto o números, en ese caso no hay que tocarla. Lo que necesito es un método rápido para recorrer esa columna y no se cual sería el mejor método pues hay días en los que la hoja tiene muchas filas de datos (cerca de 20.000) y no quiero eternizarme con este proceso. Adjunto fichero en el que muestro un ejemplo más amplio. Gracias por vuestra ayuda y vuestro tiempo…

Buenas a todo el foro. En una macro adjunto un archivo para enviar por correo de esta forma: adjunto = ActiveWorkbook.Path & "\" & Hoja1.[M3] & "\" & Hoja1.[M2] & "\CS_report.pdf .Attachments.Add adjunto Como lo haría para insertar todos los pdf que empiecen por "CS"? Gracias por adelantado.

Hola, Quisiera saber si es posible guardar el archivo con un Userform en el BeforeSave?, Tengo el siguiente codigo:<br><br>BeforeSave:<br><br> Private Sub workbook_beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)<div>Contraseña1.Show</div><div>End Sub</div><div>[/CODE] </div><br>Userform(Contraseña1):<br><br> [CODE]Private Sub Guardar_Enter()<div>CommandButton1.default = True</div><div>Pass = TextBox1</div><div>If Pass = "s" Then</div><div>TextBox1.Text ""</div><div>Contraseña1.Hide</div><div>MsgBox "Se guardo correctame…

Estimados/as buenos días, Ejemplo.xlsx Necesito su ayuda para concatenar celdas de una columna. Estos datos se agrupan de 1 hasta 5 celdas. El problema que tengo, es que en el principio y fin de esta celda hay un dato que no me sirve. También tengo el problema de que hay un espacio en medio de cada grupo. Adjunto el archivo como ejemplo para que se entienda mejor, dentro hay instrucciones. Saludos!

Que tal amigos del foro, detallo mi consulta: Tengo un rango por ejemplo B5:d20 el cual quiero que en ninguna otra celda se pueda referenciar hacia este rango. Por ejemplo si estoy en la celda E30 se pueda referenciar a =A10, pero no se pueda referenciarse hacia =B5 o =E12 ya que estas dos últimas están en el rango que se ha establecido como celdas a no referenciar, espero me puedan ayudar, gracias.

Buenas tardes expertos, tengo un problema con el formulario presisamente al momento de seleccionar el desplegable de la hora me muestra bien lista de hora pero cuando selecciones una de ellas se convierte en decimales. muchas gracias por ayuda , los adjunto el archivo. BASE DE DATOS GESTION HUMANA (SERTOCON24).xlsm

hola amigos del foro nuevamente despues de mucho tiempo es un gusto estar por aca de nuevo, en macros anteriores busque una macro que tuve que adecuarlo y practicamente me sirve como buscardor por medio de un useform pero tiene un problema la macro corre perfectamente bien hace su funcion correcta pero despues de buscar la informacion requerida al querer buscar otra informacion nueva la macro ya no funciona por lo que tengo que cerrar toda la hoja y volver abrirlo para que funcione les adjunto la macro saludos y como siempre agradesco anticpiadamente su aporte para esta macro busqueda.xlsm

Buenas noches. Por favor requiero ayuda para dar formato condicional a una celda de entre 10 celdas, debe ser fondo negro y letra roja. (Las celdas tienen ya diferentes colores CON FORMATO CONDICIONAL que configuré con una macro, pero requiero señalar la celda con un color especial que resalte la ubicación. La celda a11 indica dónde estará ubicada la CELDA que deberá tener ese formato diferente. Ejemplo: a1 6 3 5 0 9 2 8 7 1 4 a11 3 Agradecería la ayuda que se me brinde. Marco Porras. PD: Publiqué en dos

Soy nuevo en esto de las macros, me he puesto con el grabador y aquí estoy haciendo lo que puedo. La cuestión es que he hecho unas macros, que más o menos me funcionan, pero siempre viene una parte que desconoces. Quisiera escribir en la siguiente linea vacia, ¿como se lo tengo que decir a la macro? Tengo en una hoja el problema que siempre que voy allí me manda al principio de la hoja. Que se puede hacer para corregir éste problema, para que me envié donde está el último dato. Como no puedo subir el archivo porque es muy grande, os pongo la macro para que me digais. Gracias y un saludo a todos. Pablo Sub MacroIberdrola() ' ' MacroIberdrola Macro ' ' Sheets…

Buen día estimados expertos, acudo a ustedes solicitando su valiosa colaboración con la finalidad de poder resolver esta tématica: tengo un formulario en el cual existen 3 combobox dependientes unos del otro, lo que pretendo hacer es que dependiendo el pais que se coloque en el textbox1 sea como ponga la nacionalidad en el textbox 2, es decir; en el formulario tenemos el btn_aceptar que es el que manda concatenadamento el contenido de los 3 comboboxs hacia el textbox1, pero lo que quiero hacer es que con el btn_nacionalizar ponga en el textbox2 la nacionalidad deacuerdo a lo que se escriba en el textbox1, por ejemplo si pusieron en el textbox1 "MÉXICO" (aunque existan otr…