Buenos días Me gustaría que me ayudaran a modificar la macro que tengo, para hacer lo siguiente: Tengo dos hoja Base y Resumen, de la hoja Base deseo ir analizando celda por celda de la columna E:K y si la celda es igual a 100, me copie ese registro a la hoja Resumen en el día correspondiente, ademas de copiar los datos de la columna A:D de la hoja Base. Adjunto un pequeño ejemplo con el código de la macro que tengo y un ejem de como me debería quedar Agradezco de antemano su apoyo y/o ayuda Saludos prueba07122019.xlsm

Buenas a todos. Estoy realizando un ejercicio en el que se me pide mostrar un msgbox en el que aparezca el texto que hay contenido en una celda. Hasta ahí bien, no hay problema. El problema es que ese texto debe incluir una variable y mostrar en el msgbox el valor de la variable. Es decir, que si en el contenido de la celda está el texto "El resultado de la suma es VARIABLE_SUMA", en el msgbox debe aparecer "El resultado de la suma es 4" Adjunto un archivo de ejemplo para intentar que se vea más claro. Muchas gracias por adelantado. Un saludo. Ejercicio msgbox de celda con variable incluida.xlsm

Hola a todos copie una macro de nuestro amigo JSDJSD, lo que quiero es que el filtrado entre fecha me funcione en mi libro y que el reporte lo guarde en un libro nuevo de Excel por aquí le dejaré el archivo Filtrado y reporte.xlsm

Hola comunidad, me ayudan miren quiero hacer un libro donde se llene un formulario con los datos que ya hay en una hoja del mismo libro , la idea es apretar un boton donde me traiga los datos de esa hoja al formulario y grabar puede ser en la mmisma hoja o en una nueva, no se si me explique bien.

hola comunidad necesito de su ayuda vba hace mas o meno lo q estoy tratando de hacer pero como yo quiero no. lo que quiero es filtrar los datos y después q estén filtrados hay si enviarlo a la plantilla, pero si al momento de enviarlos si hay mas de lo esperado cree fila similares a las a donde lo estoy metiendo, si es a lo contrario q los introduzca pero q no me dañe el formato de la hoja. espero q me entiendas hay te dejo el código. gracias por su apoyo.. Private Sub CommandButton1_Click() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino…

Hola tengo un libro que al abrirlo salta un userform y al mismo momento el libro se oculta, pero al cerrar el userform el libro aparentemente se cierra, pero lo mas raro es que queda oculto pero abierto me doy cuenta cuando abro el administrador de tarea. Alguien podrá ayudarme Este es la instrucción para cerrar Private Sub CommandButton8_Click() Dim sino As String sino = MsgBox("Estás seguro de cerrar la Aplicacion?", vbYesNo + vbQuestion, "CONFIRMA") If sino <> vbYes Then Exit Sub MsgBox "Gracias por usar el sistema, hasta la proxima" Application.ScreenUpdating = False Set h = Sheets("Usuarios") u = h.Range("A" & Rows.Count).End(xlUp).…

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!