Hola a todos!!!! Espero puedan ayudarme a resolver este pequeño problema! Estoy creando una macro para que se cambien "dinamicamente" las etiquetas de datos de un grafico, el máximo de etiquetas que puede tener dicho gráfico son 8 . Y para lograrlo quiero insertar el siguiente codigo para que primero agregue las etiquetas de datos y después mediante la fucion If decida si la etiqueta de gráfico existe para asi asigarle el valor que se encuentra en una celda de la hoja. El codigo es algo asi: Private Sub CommandButton1_Click() ActiveSheet.ChartObjects("Gráfico 1").Activate With ActiveChart .FullSeriesCollection(1).Select .FullSeriesCollection(1).Appl…

Necesito crear un programa para mostrar los números primos inferiores a un número siendo N un número entero positivo mayor que uno. Implementar el programa en un USERFORM que vaya colocando los resultados de los numeros primos en el excel en columna, a partir de una celda seleccionada por el usuario. Se debe colocar un boton en la hoja que llame a la .Por ejemplo, los números primos menores que 50 son: 2, 3, 5, 7, 19, 23, 29, 31, 37, 41, 43. Si N=50, el programa debería imprimirlos en columna a partir de la celda seleccionada. Un procedimiento clásico para hallar todos los números primos menores que un entero positivo es la llamada criba de Eratóstenes. Lo que se hace…

buenas noches, necesito de sus experiencias para este pequeño problema como podría hacer para que esta rutina me permita leer archivo pdf. Private Sub APELLIDOS_Y_NOMBRES_Click() Dim Fila As Long On Error Resume Next Fila = APELLIDOS_Y_NOMBRES.ListIndex + 4 Imagen.Picture = LoadPicture("") Imagen.Picture = LoadPicture(Sheets("Hoja3").Range("M" & Fila)) End Sub agradezco desde su gentil aporte.

Hola a todos, tengo una lista gigante de modelos de productos en excel la cual quiero insertar a cada modelo su respectiva imagen mediante una macro, es decir, en la columna B tengo una infinidad de modelos de productos y en la columna A quiero que se inserte la imagen correspondiente de cada uno de esos modelos, ejemplo: [TABLE=width: 500] [TR] [TD=align: center]A[/TD] [TD=align: center]B[/TD] [TD][/TD] [/TR] [TR] [TD]imagen del modelo[/TD] [TD]modelo[/TD] [TD][/TD] [/TR] [TR] [TD][/TD] [TD]AA0001[/TD] [TD][/TD] [/TR] [TR] [TD][/TD] [TD]BB0002[/TD] [TD][/TD] [/TR] [TR] [TD][/TD] [TD]CC0003[/TD] [TD][/TD] [/TR] [TR] [TD][/TD] [TD]DD0004[/TD] …

hola espero esten bien acudo con ustedes por que son los mejores, tengo un problema con la siguiente macro, esta adjunta, me trae los datos que le pido pero, de la sucursal que solicito necesito que en un nuevo userform aparezcan sol el nombre de las tareas que necesito en el adjunto pongo un ejemplo espero me puedan ayudar de antemano muchas gracias busqueda de datos.rar

hola a todos en el foro. espero puedan ayudarme con un problema para saber dias habiles, dias de falta.... contar dias.xls

nuevamente solicito de su atención, quisiera saber si mediante esta formula que indico: =HIPERVINCULO(IZQUIERDA(CELDA("nombrearchivo"),ENCONTRAR("[",CELDA("nombrearchivo"))-1)&"\Archivo"&$A38&".pdf",$A38&".pdf") también se pueden hacer a nivel de imágenes, por lo que donde se encuentra alojada en una usb o disco externo y por lo general varia la unidad de ubicación dentro de una pc.

Hola amigos acudo austedes por el siguiente problema: tengo este codigo para poder acceder a MYSQL Set rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.CursorType = 3 rs.LockType = 3 dato = Sheets("Hoja1").Range("A1").Value rs.Source = "SELECT * FROM FOTOS " _ & "WHERE NOMBRE =" _ & Chr(34) & dato & Chr(34) & ";"[/CODE] mi problema es que donde dice sr.source es un string pero no puedo ponerlo como Dim rs.source as string porque me marca esa linea en rojo como puedo hacer para declararlo como un string. saludos

hola a todos los miembros de Ayuda Excel, soy un principiante en lo que se refiere a programacion del excel con VBA, y como todo aquel que comienza un pequeño proyecto tiene dudas. En mi caso, la duda es: ¿Se puede hacer la sumatoria de dos o mas matrices una vez definidas con metodos iterativos? en otras plalabras, quiero que a mi matriz inicial se le sume una segunda, luego una tercera y asi hasta donde yo desee, claro esta siempre y cuando mis matrices ya esten definidas en mi hoja de calculo y lo unico que querria hacer seria que una vez reconocida la primera con un determinado codigo yo le pueda añadir, con una segunda iteracion, la segunda matriz luego de que est…

Buenas, me estoy devanando los sesos para conseguir lo que quiero hacer, pero mis entendederas no dan para tanto, así es que solicito humíldemente vuestra ayuda. La cuestión es que quiero quitar las flechas de los enlaces directos de windows, pero no tengo acceso al regedit, así es que la única solución que se me antoja es hacerlo desde VBA con EXCEL, ya que un fichero EXCEL con VBA que tengo con otro código sí ha conseguido modificar el registro, pero en otra rama. Bueno al grano, se que las flechas se eleminan cambiando la entrada IsShortcut por xsShortcut , en las ramas HKEY_CLASSES_ROOT\lnkfile y HKEY_CLASSES_ROOT\piffile, pero no se hacerlo con VBA. Mediante un fich…

Buenas tardes, adjunto un excel.zip. Aparecen una serie de tasas ordenadas que - comienzan con las letras tx, - el numero de tasas, - la moneda - y el importe de la tasa acompañado de dos letras que la identifican. Lo que quisiera es que cualquier serie de tasas quede como las de la fila B. He intentado con alguna función pero no se me ocurre nada o no termino de aplicarlo bien. ¿Alguien puede ayudarme? gracias al foro x adelantado Borja tasas.zip

Hola estimados amigos tengo la necesidad de generar un numero serial no repetitivo para ponerle como Id de algunos documentos que necesito guardar y lo quisiera hacer por medio de la fecha hora minutos y segundos para que por medio de ellos no quede la posibilidad de que se genere algún repetido el macro que estoy aplicando es el siguiente: range("a1")= Left((Now * 24 * 10000000), 10)[/CODE] pero quisiera saber si lo estoy haciendo bien o si al alguna otra manera de poder hacerlo para que no se repita dicho numero, una cosa importantes es que no quiero punto decimal entre ellos. saludos y desde ya muchas gracias

Hola a todos. Tratando de terminar mi proyecto me encontré con un lindo problema. Hace unos meses pasé los valores nutricionales de carbohidratos, proteínas y lípidos de una pagina que tiene un vademécum de la mayoría de los alimentos que hay en el mercado argentino. La cuestión es que a medida que fui realizando mi proyecto me di cuenta que no era suficiente con esos datos que tenia y que necesitaba la totalidad de los valores nutricionales de cada alimento. Los alimentos que pase fueron 1550 aproximadamente, lindo trabajito... Investigando un poco me di cuenta que me podría haber ahorrado ese trabajito realizando una macro. Bueno, vayamos al problema real... Lo qu…

Hola a todos en el foro, quisiera resolver un problema q tengo... de antemano gracias....explico: quiero copiar una hoja de registro para un nuevo libro pero que el nuevo libro se guarde automaticamente con el nombre del empleado ej..... c:pedro.xlt

Hola a todos!! Me gustaría poder conectar una hoja de Excel con una base de datos MySQL. Al intentar establecer la conexión, siempre me aparece un error diciéndome que es imposible conectar con la BBDD. He buscado tutoriales y manuales en internet, pero si sigo las instrucciones de conexión de uno, no puedo extraer datos como se indica en otro tutorial diferente... ¿Alguien conoce algún manual, libro o tutorial donde se explique claramente como hacer este tipo de trabajo? gracias de antemano

Buenas tardes usuarios. De antemano agradeciendo su apoyo expongo lo siguiente. Se solicita que a través de un código VBA para excel filtrar ciertos criterios (vacío), luego "copiar una determinada fila" y finalmente pegar los datos justo en el criterio filtrado (vacío). Mi inconveniente empieza cuando se necesita "pegar" puesto que la macro no la ejecuta. Sub Macro1() [A65536].Select Selection.End(xlUp).Offset(2).Select Selection = "FINAL" Selection.End(xlUp).Select Rows("1:1").Select Selection.Copy ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=1, Criteria1:="=FINAL", _ Operator:=xlOr, Criteria2:="=" If ActiveShee…

Buenas tardes, Tengo la duda, de si existe una macro que filtre filas que cumplan un criterio, las copie en otra hoja, borre el contenido de las celdas, pero que no elimine las filas.

En Excel tengo un listado de nombres con sus respectivos teléfonos. Quisiera al hacer doble clic se mostrara el cuadro de diálogo "Nueva llamada", que aparece en Outlook, con el número de teléfono preparado en el cuadro de texto "Número", listo para marcar Gracias

buenas tardes amigos¡¡¡ tengo un libro que diseñe en el que no ocupo las herramientas de excel ni la ventana solo las pestañas. hay manera de aplicar una macro para eliminar esta ventana. de manera que aparente un programa y no una hoja de excel. de antemano agradezco su ayuda.

Que tal buen día Tengo una base de datos de números y quisiera hacer que del rango donde esta la base da datos si es menor que 15 se convierta a 0 y si es mayor deje el numero que esta en la celda, con siguiente formula se realiza "=Si(C11<15,0,C11)" , pero quiero ver la opción para que lo haga en la misma celda donde esta el numero no hacer otra tabla de numeros. Dejo el ejemplo, a como lo tengo horita Ejemplo 2.xls

Tengo una macro que me abre ie y me abre una web https logueandome con user y password, pero después de eso necesito que navegue dentro de la pagina a otra dirección, el primer paso me lo hace con la web que adjunto pero el siguiente paso no, me echais una mano. Es decir despues de .Navigate range("I4").Value tengo que ir a .Navigate range("j4").Value, como construyo esta macro. (puedo jacerlo con ie o con cualquier otro navegador). Un saludo. IR() Set obj = CreateObject("InternetExplorer.application") With obj .navigate Range("I4").Value End sub

Buenas, pues este es mi primer post me estoy aventurado a utilizar macros para facilitarme un montón mi trabajo, hace unos años aprendí bastante de lenguaje de Visual Basic pero dejé de programar y prácticamente olvide todo bueno, les comento mi problema tengo un archivo de control de pagos y quiero que al abrir un userform y se ingrese el nombre de una persona me refleje los pagos que ya ha hecho, pero no sé como armar el código, ¿Alguien me podría echar la mano? P.D. adjunto el archivo para que tengan una idea Dropbox - Control Pagos.xlsm

Buenas tardes amigos del foro Necesito de su ayuda con una macro que ejecute los siguiente: Tengo un rango de varios fechas en hoja de excel, entonces seria ejecutar una macro que convierta esas fechas en esta hoja de excel en formato texto. Anexo un archivo con la explicación de como seria esa ejecución. Agradezco mucho su amable atención saludos Victor2012 Libro1.zip

buenas noches, tenga una duda y necesito saber como crear una archivo mediante un userform y que todos mis datos se vallan una base de datos en access. si hay ejemplos indicar los link.

Hola .. Como estan..Espero que bien.. si Por favor me podrian ayudar con este codigo Sub guardarhoja() ActiveWorkbook.Save Application.Dialogs (xlDialogSaveAs)Show End Sub[/CODE] sucede que cuando Lo ejecuto Sale El Dialogo de Guardar Como.. Me sale Predeterminado en formato Excel.. Habría Alguna Forma Que Saliera ya elejido en Formato Pdf? asd.rar