Hola gente tengo un problema con esta macro, lo que quiero hacer es que los gráficos que tengo en excel se copien en un PowerPontl ya activo, y estos gráficos se vayan copiando en cada diapositiva diferente..... Luego de esta linea de código ( PPSlide.Shapes.Paste ) debería hacer algo para que vaya iterando las diapositivas, pero todo lo que pruebo me tira error,. ayuda por favor ... Sub ExcelToExistingPowerPoint() Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide ' Reference instance of PowerPoint On Error Resume Next ' Check whether PowerPoint is running Set PPApp = GetObject(, "PowerPoint.Application") If…

¡Hola! Estoy trabajando con un macro que copie toda una carpeta con subcarpetas y archivos a otra ubicación, el nombre de las carpetas estan en A1, la ruta donde las voy a mover en B1. Por ahora tengo esto pero no logro que funcione. Sub copiafolder() Dim FSO As Object Dim inicio As String Dim fin As String Dim valida As String Set FSO = CreateObject("scripting.filesystemobject") Range("A1").Select On Error Resume Next Do While ActiveCell.Value <> "" inicio = Range("B1") & ActiveCell fin = Range("B1") valida = Dir(inicio) If valida = "" Then Else FSO.CopyFolder inicio, fin End If Act…

Hola saludo cordial a todos en especial a una de las personas que me han apoyado bastante en mi dudas al Gran Macro Antonio, y a Bigpetroman bueno mi duda es la siguiente es con relacion a un formulario que me hizo favor de apoyar el Gran Macro Antonio, funciona muy bien reliza todo la funcion para la que fue creado pero aqui biene una de mis dudas, en un dia de trabajo con el archivo en comento empezo a marcar error revise y pues nada fuera de lo normal solo que el error marcaba que no podia mostar el userform. se cerro el programa y volvio a trabajar normalmente y despues de cierto tiempo de nuevo volvio a marcar el error el mismo error, entonces me di cuenta verifica…

Hola de nuevo. Ya he terminado mi proyecto, con vuestra ayuda. Pero ahora veo que uno de los procesos es muy lento. Cuando le doy a un botón ejecuta esta macro con 7 bucles, uno por semana, que recorre cada vez que lo hace 7.000 filas. Y que cada mes añadirá otras más de 2.000 filas más. Así que cada vez que ejecute la macro se me va a emplear mucho tiempo. Yo creo que con un solo bucle lo puede hacer, porque pienso que debe haber una lógica matemática que lo haga, pero yo no soy capaz de saber cómo. U otra manera que no sea con bucles... Pego el código por si alguien de vosotros podría ayudarme. Ya veis que repito el código cada día de la semana y que los textbox so…

Estimados, muchas gracias por su ayuda, estoy realizando una planilla para ingresar clientes y llenar una base de datos, pero quiero saber como poder hacer para que si el cliente ya existe me muestre sus datos y si los modifico se modifiquen en la base de datos, pero si no está, que me permita llenar su información. Hasta ahora solo he hecho: Sub Registro() ' Dim strTitulo As String Dim Continuar As String Dim TransRowRng As Range Dim NewRow As Integer Dim Limpiar As String ' strTitulo = "Registrar Datos" ' Continuar = MsgBox("Grabar datos?", vbYesNo + vbExclamation, strTitulo) If Continuar = vbNo Then Exit Sub ' Set TransRowRng = ThisWorkbook.Worksheets("D…

Hola buenas y gracias por anticipado, vamos a ver si me explico y me podeis entender, trabajo con una hoja en la cual cuenta con 16 columnas, y toda cuando esta completa se llenaran asi como 45000 lineas, lo que yo necesito es buscar duplicidades entre toda la hoja y copiar las lineas completas en otra hoja, para detectar el siguiente criterio de duplicidad: 1.- que detecte las columnas C,D,E (nombre apellido1 apellido2 ) que coincida con todas las filas y las copie en otra hoja, llamada duplicidades, pero con la linea completa desde columnas A hasta P de las mismas lineas 2.- que detecte las columnas F,G,H (dni,nie,pasaporte) que esten duplicadas y copie todas en l…

hola a todos necesito crear un botón para que, en una tabla de base de datos, me añada una fila al final y le ponga varios datos, unos directos y otros copiados de otra tabla. he leido bastante el foro y no consigo aclararme con los diferentes ejemplos y soluciones propuestas, ninguna hace exactamente lo que pido, por eso expongo aquí la duda. saludos

Buenos Días, expertos Estoy realizando un reporte de pagos de facturas, tengo mi base de datos y un formulario de consulta donde busco por Estado, cliente y si esta pendiente o Cancelado eso funciona bien, ahora lo que quiero es buscar por medio del formulario todas las facturas que estén en un rango de fechas por ejemplo facturas entre el 01/02/2013 y 15/03/2013. y que me muestre en el listbox para yo después pasarlo a una hoja. espero me ayuden. Gracias.. Adjunto archivo

Buenas Tardes. Me gustaría crear un formato condicional en un Excel pero al estar compartido no me da la opción de hacerlo. Supongo que por programación se podrá hacerle. La condición es referente a dos celdas, si la celda E2 esta rellena y la celda F2 está vacía que la fila 2 ponga el color de la fuente en naranja y la otra sería si la celda E2 esta rellena y la celda F2 está rellena que la fila 2 ponga el color de la fuente en rojo. Muchas gracias por vuestra ayuda.

hola buen día se me olvido mencionar un tema en el foro anterior que me puede ayudar a resolver el inconveniente pero no se como hacerlo enserio agradeceria mucho la ayuda deseo programar una macro en excel para hacer el siguiente ejercicio: Hoja 1: [TABLE=class: cms_table_grid, width: 500] [TR] [TD][/TD] [TD]fecha[/TD] [TD]cola[/TD] [TD]colb[/TD] [TD]colc[/TD] [/TR] [TR] [TD]fila1[/TD] [TD]01/ene/2013[/TD] [TD]a[/TD] [TD]1[/TD] [TD]1[/TD] [/TR] [TR] [TD]fila2[/TD] [TD]01/ene/2013[/TD] [TD]b[/TD] [TD]1[/TD] [TD]0[/TD] [/TR] [TR] [TD]fila3[/TD] [TD]01/ene/2013[/TD] [TD]c[/TD] [TD]1[/TD] [TD]1[/TD] [/TR] [TR] [TD]fila4[/TD] [TD]01/ene/2…

buen dia en el archivo adjunto se organiza en cada hoja l ainformacion del producto entrada salida y existencia con formulas pero tengo problemas ya que el archivo que manejo es de mas de 30 productos y mucha informacion por lo cual aveces se me bloquea el excel. por esta razon busco ayuda para pasarlo a macros gracias EJEMPLO DE CAPTURA Y ORDEN DE KARDEX.xlsx

estimados se podra realizar la Division de un valor que tenga un Textbox3 por el valor que indique el Combobox1? con resultado en 4Combobox desde ya agradecido atte Milton fecha de pago.xlsm

Buenas noches amigo de AyudaExcel estoy que me rompo la cabez de tanto código la verdad me perdí en mi proyecto que vengo realizando. Tengo un formulario que ingreso datos desde combobox, textbox a una hoja que me sirbe como base de datos BBDD lo que pasa esque al final me doy cuenta que necesito insertar dos columnas más una columna que cargue datos de un combobox "almacenamiento", y la otra que se me hiso difícil que al elegir el código del producto aparezca en un textbox el "producto" y en el otro textbox la "presentación" el un textbox ya esta enlazado pero el otro no, estos valores no se cargan en columnas continuas sino por ejemplo "codigo y producto" estan cargada…

Buenas tardes, aquí con un trabajo que no he conseguido realizar. Tengo una fila con datos, de los cuales tengo que separar las letras en la columnas contiguas. De este problema tengo que realizar lo siguiente: Hoja 01 1) Tengo que separar solo las consonantes y unir las tres primeras consonantes de las letras separadas. Ejemplo: CAMISA=CMS Pero si existe otro valor igual le asigne una secuencia numérica. (CAMISETA=CMS)), pero como se repite debería pasar a (CMS001) y sucesivamente. Hoja 02 2) Separar letras y unir las tres primeras. Ejemplo: CAMISA=CAM Pero si existe otro valor igual le asigne una secuencia numérica. (CAMARA=CAM), pero como se repite debería …

Estimados Soy nuevo en el foro y en el uso de VBA Excel y quisiera ver como puedo pasar el formato condicional que tengo en la hoja de exel y mostarla en un userform. o si se puede por ultimo dar formato de color a cada celda del listbox. dejare adjunto el excel. Espero que me puedan ayudar. Muchas gracias. Libro1.xlsm

Buenos días, os hago una pregunta estoy limpiando unas macros y quisiera saber sin el Range se puede ejecutar con variable, aquí va una explicación If Range("s50") >= 1 Then Range("U50") = ("=U47+S50") zz=b2 : xx=s2 ' Variables que después toma el range en la sub Call Datos Else: Range("u50") = C:End IF If Range("S2") >= 1 Then 'Range("U2") = ("=U50+S51") xz=63 : zy=76 ' Variables que después toma el range en la sub Call Datos Else: Range("u51") = C: End IF Sub Datos() Worksheets("Hoja2").Unprotect Password:=PR Range("zz:xx") .Copy Sheets("H…

Que tal compañeros, tengo dos combo box en la cual si seleccio un elemento del primero.. me borraránn varios del segundo, entonces viendo si se vuelve a marcar el elemento que se seleccionó anteriormente marca error de ejecución si bien no me equivoco, entonces estando en los zapatos de un usuario final que no sabe nada de programacion es necesario disfrazar ese error. mandarlo con un msg box que los elementos del combo es volatil y no se puede seleccionar dos veces, se tiene que cerrar el programa y volver abrir para cargar los elementos. lo he intentado con este codigo. On Error Resume Next If Err = 1 Then MsgBox "Error se tiene que cerrar la aplicacion" Cancel = Tr…

Hola a todos. Veréis, tengo un problema que me trae de cabeza...Tengo un libro abierto llamado "Entrada de datos" y otro llamado "Perfilador" donde se van copiando cosas del primero al segundo.Pues bien, cuando acaba de copiarse todo lo necesario, quiero que se ejecute una macro del libro "Entrada de Datos" pero NO HAY MANERA! Tengo el siguiente codigoWorkbooks.Open "C:\Users\alvar\Downloads\Entrada Datos Fondos (Final).xlsm"Workbooks("Entrada Datos Fondos (Final).xlsm").ActivateSheets("Selector de Fondos Indexados").SelectRange("B7").SelectApplication.Run "Entrada Datos Fondos (Final).xlsm!Ejecutar_Buscador"Y me da un error que dice "no se puede ejecutar la ma…

Hola que tal, Trataré de explicarme con lo que estoy intentando hacer. Tengo una hoja de excel donde en una fila hay un mes con sus días, ejemplo: Enero: 1 2 3 4 5 6 7 ... 31 abajo de esa fila está Febrero: 1 2 3 4 5 6 ... 30 y así consecutivamente cada mes en una fila mas abajo. Cada numero de los días del mes va en una celda. Ejemplo de hoja aquí. Mi duda es como hacerle para que con código al seleccionar una celda o un grupo de celdas donde están los días del mes estas se pongan de un color de fondo especifico. NOTA: Excel me permite ponerle color de fondo a las celdas sin código, nada complicado, pero de esa manera primero hay que seleccionar las celdas y luego…

¿Alguien sabe si existe una manera de escribir una macro - por ejemplo en el libro de macros personal - que escriba código en los módulos de VBA de otros libros? El caso concreto en que esto podrías ser útil es el siguiente: tengo 20 archivos en uso por parte de los empleados de una empresa, cada uno de los cuales es exactamente igual a los demás y contiene las mismas macros, sólo que cada uno de los empleados usa su archivo para registrar sus propios datos. Tengo que hacer un cambio en las macros de todos los archivos, y si no hay manera de "escribir una macro que escriba macros" tendré que ingresar a los archivos uno por uno y cambiar los códigos manualmente. …

hola a todo(a)s. Mi inquietud es la siguiente: tengo una base de datos de la empresa donde trabajo donde estan relacionados todos los clientes(entidades) que nos deben facturas. Mi jefe me pide que en esa matriz en excel cree a una manera de que excel me avise con un mensaje o ventana emergente cada vez que llegue la fecha de vencimiento de una factura. hasta ahora he intentado con la formula: [TABLE] [TR] [TD]A[/TD] [TD=width: 80]B[/TD] [TD=width: 80][/TD] [TD=width: 80][/TD] [TD=width: 80][/TD] [/TR] [TR] [TD=class: xl64]1[/TD] [TD]Fecha vencidas [/TD] [TD][/TD] [TD][/TD] [TD][/TD] [/TR] [TR] [TD=colspan: 5]12/04/2011 =Si(DIA(A2-NOV())<10~"AVISO"~…

Buenas? Tengo una duda, no se si si hay alguna forma de hacerlo? Pongo en situación, un formulario con textbox grande con la propiedad multilinea nada mas inicializarse se carga con un enorme texto desde una única celda de mi hoja de excel apareciendo la barra de desplazamiento en el textbox, y para desplazarse debes seleccionar esa barra y mover el rato arriba o abajo para ver todo el contenido. ¿Hay alguna forma de qeu pille el desplazamiento con la rueda del ratón ? con los listbox y los combobox no tengo problemas para que al rueda del raton se desplace pero con el recuadro del textbox no consigo que la barra se mueva?

Control Calendario en excel 2010 64 bits Amigos, nuevamente recurro a ustedes. Tengo un archivo que he reducido para poder subirlo. En el hay un calendario asociado a un label. En excel 2010 32 bits funcionaba perfecto, sin embargo en excel 2010 64 bits no anda. Aparece "No se encontró el método o el dato miembro". Intente agregar el MSCal.ocx, pero igual no anda. Alguna solución?? Desde ya quedo agradecido por sus innumerables asistencias. Saludos desde Chile. Ejemplo Calendario.rar

Hello everyone as always when it comes to evaluating by column; I lose myself in a glass of water. My problem is this: 1) In Column (A2: A200) I should enter dates 2) I would like you to write me only the day of the week of that date every time I enter the dates in the column (B2: B200). 3) While in column (C2: C200) he wrote me the same thing as in column (B) but taking only the first letter. As for example: If in Column (B) it is written (Monday) in Column (C) it should only show the letter (L) that's all! Thanks as always for all the help you want to give me about it. Greetings from Maurizio Modificare_Giorni_Set_e_Giorni_Set_Solo_Prima_Lettera.xlsm

Hola amigos, soy nuevo en el foro y me gustaria mejorar mis tecnicas tengo el siguiente problema, me gustaria con una macro filtrar solo datos numericos contenidos en una columna, ejemplo que me filtre "123456" hasta el momento solo he podido filtrar caracteres eje: "12N", pero si solo lleva numeros no me los busca.. la contraseña para desbloquear el proyecto VBA es: " katped" aqui esta el enlace para descargar el archivo Control de Pedidos.xlsm - 4shared.com - online file sharing and storage - download espero que me puedan ayudar Este es mi correo: pedro_landero@hotmail.com