Hola a todos, primer día aquí en este foro, espero podáis ayudarme con un asunto que me lleva de cabeza. He preparado un excel para registrar vacaciones etc. El funcionamiento es el siguiente: A) el empleado tiene un número de días máximo por semana para coger, si sobrepasa el % la siguientes celdas aparecerán coloreadas en naranja b) la macro que he estado haciendo identifica estos subrangos (semanas) y aplica el criterio anterior, y colorea celdas. El problema está en los meses con menos de 31 días, como es Junio. El rango que colorea la macro se desplaza una columna a la izq. Mi intención es por ejemplo, en el caso de Junio, que la macro ident…

Estimados, junto con saludarles, quisiera pedirles ayuda con respecto a un código el cual he estado trabajando. Se me produce el siguiente error 1004 al momento de ejecutar sin valores una macro, la cual he intentado agregarle un If Rango = 0 Exit Sub, o tambien he intentado If Rango is Nothing GoTo label, y ninguno me ha solucionado el problema. Les dejo el video que explicará mejor que mis palabras. El error se me produce en el Userform 3, en el código de Initialize, al parecer se genera cuando la macro intenta crear el rango "MiRango". 1004.mp4 Se les ocurre como podría solucionarlos? Agradecido por vuestro tiempo. Felipe,

Hola ¿cómo estáis? ¿Alguien sabe si es posible deshabilitar este botón mediante una macro o con el editor de UI? ¡Gracias!

Hola a todos, estoy nuevamente trabada en algo que pareciera facil pero me ha estado complicando la vida absoluta... tengo el siguiente codigo, que lo que DEBERIA HACER, es por cada celda que este vacia "celda.Offset(0, 36)= empty" me ejecute = hD.Cells(ufo, 36) = celda.Offset(0, 4) + celda.Offset(0, 5). Lo unico que LOGRE es que me haga esa funcion en la ultima fila... no se como hacerlo para cada celda vacia ?. Porque la idea es que la hoja se va a ir cargando con nuevos valores, y las celdas que estan vacias significa que aun no hice el proceso fechaJuliana...Perdonen mi igorancia total pero probe varias formulas. y la unica que me ha funcionado parcial…

Buenos días a todos; -Con el procedimiento que adjunto obtengo la ruta de una imagen y la almaceno en la caja de Texto. Si a la hora de elegir una imagen le doy a botón cancelar me devuelve "False" a la caja de texto. ¿Se puede corregir para que cuando suceda el "txtAdjunto" quede vacio? He estado analizando otros procedimiento semejantes y ocurre lo mismo. Sub CargarImagen() Dim vImage As String vImagen = Application.GetOpenFilename("Archivos JPG PNG BMP (*.jpg*;*.png*;*.bmp*), *.jpg*;*.png*;*.bmp*") If Not vImagen = "False" Then Me.txtAdjunto = vImagen Else MsgBox "No ha seleccionado nigu…

Jelow, Yo por aquí de nuevo xD Estoy embarcándome en la posibilidad de dar clases de VBA a gente que no sepa NADA al respecto y explicarles desde lo básico a lo avanzado, las cosas más esenciales en cada aspecto. Como aquí son todos unos maestros, vengo a robaros ayuda (?) Tengo la siguiente tabla: La idea es que luego la persona, investigue en profundidad otros temas más complicados o métodos y trucos para usar cada función y fórmula. ¿Algún concepto que digáis, esto la persona tendría que saberlo? (igual está en la tabla lo que me digáis, pero prefiero saber vuestra opinión :D) Gracias de…

Hola buenas tardes: Por favor me pueden ayudar con una macro con la que pueda ocultar filas dentro de un rango (filas 8 al 20), pero sin ocultar las filas que tenga seleccionadas en es momento. Ya que hay filas que si necesito mostrar aunque estas no sean consecutivas. Muchas gracias Saludos Ocultar celdas menos las seleccionadas.xlsm

Buenos dias para todos, quereia molestarlos con la siguiente consulta pues no he podido detectar el error que tengo entonces acudo a su conocimiento. En el archivo adjunto aparecen dos formularios, el primero es donde se ingresa un documento de la hoja detalles, y al buscar aparecen los datos de esta hoja, luego mas abajo aparecen varios optionbutton en donde al seleccionar alguno me trae los valores de cada una de las hojas siguientes, es mas de consulta pero al escoger uno de estos valores y de seleccionar el boton azul de copntacto se me va para el segundo formulario en don escojo por medio de varios optionbutton la novedad a grabar, esta me desplega el combobox de r…

hola tengo un problema, tengo datos desde A4:j4 y quiero que al presionar el boton, por medio de macro me copie los datos ingresados en las celdas mensionadas en una ubicacion mas abajo por ejemplo A9:J9. El problema que se me presenta es que en lugar de copiar los datos en forma horizontal (es decir de A9:J9), los copia de forma vertical (desde A9 para abajo). Este es el codigo, gracias Private Sub CommandButton1_Click() Range("A4").Select ActiveSheet.Unprotect Range("A4:J4").Select Selection.Copy Range("A8").Select '' [A65536].End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ …

Hola La verdad no se mucho de programar en excel y quisiera que me ayudaran con algo por favor tengo una fecha de cierre ej 06/13/12 y otra fecha 06/18/12 de vencimiento quiero hacer una macro sencilla que me muestra si la fecha de cierre a la de vencimiento fue menor o igual arroje una ventana o un celda que diga no vencido y si la fecha de cierre es mayor a la fecha de vencimiento me diga vencido, la verdad no tengo ni idea como hacerlo y me gustaría que me ayudaran con esto muchas gracias

hola gente.... estuve buscando por internet como poder hacer una lectura de un sitio web + las variables que debo capturar y pasarlas al libro excel , pero nolo he podido encontrar el problemita es el sgte: tengo un formulario donde recoge la informacion de una pagina web ya establecida y pasa a la hoja llamada(web), lo que me trae todos los datos. quiero saber si es posible para poder usar cualquier pagina y los campos sean globales para poder hacerlo flexible. Subire el archivo para que puedan entender un poco más la idea [DBOX]CAPTURAR DATOS GLOBALES INTERNET.xlsm[/DBOX] gracias

Que tal, quiero poner folio que no permita poner el duplicado, al poner en texto nombre de folio que diga existente o no existe y sepa agregara en la base de datos del excel, quiero hacerlo desde TxtFolio.txt del VBA, no logro hacerlo... estado tratando como hacerlo.. pero normalmente se lo agregarlo hay duplicado de folio.. gracias

Hola, estoy creando una macro para que me cambie el rango de un grafico. Cuando cambio el rango pulsando en la tabla y cambiando el rango a mano en la barra de funcion no me da problema. Cuando creo la macro y repito operación tampoco. El problema llega cuando ejecuto la macro que me da problema en la línea ActiveChart.SeriesCollection(1).Formula = _ "=SERIES(;Hoja1!$C$2:$E$2;Hoja1!$C$3:$E$3;1)" En este caso he creado la macro para que me cambie el rango de Hoja1!$B$2:$E$2;Hoja1!$B$3:$E$3 a Hoja1!$C$2:$E$2;Hoja1!$C$3:$E$3 ¿Alguien me podría ayudar? Gracias por adelantado

Me gustaría que me solucionarais un problema con excel 2003. Necesito una macro que compare la columna A de la hoja 1, con otra columna A de de la hoja 2. y si son iguales la celdas que copie la celda que corresponde con la fila de la Hoja 2 columna B a otra celda de la hoja 1. muchas gracias Libro1.xls

Estimados, Este es mi primera consulta, desde ya muchas gracias. Estoy tratando de hacer un programa que me permita acceder a una web y extraer datos desde ella, siguiendo el tema: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/importar-datos-web-contrasena-20013/, he podido acceder a la web y certificarme o loguearme, pero entiendo que con el objeto: QueryTables debo seleccionar la tabla en la web que quiero traer a excel, el problema que la ubicacion de esa tabla en la web es dinamica. Me gustaria saber si existe la posibilidad con el objeto "QueryTables" de poder copiar el codigo fuente de la pagina a una variable tipo Strig y yo hacer una busqueda dentr…

Buenos días estoy avanzando un pequeño proyecto de mi trabajo, pasa que quiero concatenar la hora de un textbox con un combobox (am y pm) y que aparezca concatenado en un label de otro userform. Quisiera que me ayuden please Gracias de antemano Ayudaexcel control km.zip

Etiquetas Twitter (HashTags): Quisiera ver quien me puede ayudar en mi libro, lo que necesito es poner la cantidad de articulos vendidos y que se valla descontando automaticamente de las existencias de mi inventario de verdad agradeceria me ayuden 1.xls

Buenas tardes Por favor, si alguien me puede ayudar se lo agradecería, necesito ejecutar una macro desde varias celdas de una fila,eso ya esta conseguido en el ejemplo El problema es que son muchas filas (en este momento 600), y el código se hace muy largo. Lo que quiero es saber si se puede simplificar el código Muchas gracias Un saludo José Carlos Ejemplo.zip

Hola, mi problema es el siguiente, tengo muchos ficheros con enormes datos, cada fichero tiene que ser analizado, mi idea es crear una macro donde primero me filtre una columna, una vez filtrado sustituyo los datos que me indica esa columna filtrada en otra columna, y posteriormente procedo a realiar la tabla dinamica. El problema que observo es que la macro que realizo me vale para ese solo fichero, luego intento aplicarla a otro de los ficheros y me da los datos mal, supongo porque no coinciden los datos filtrados del primer fichero con los datos del segundo fichero. Como se puede solucionar esto.

Buenos días, lo que intento hacer es que al ingresar un código de barra a través de un lector me lo divida según los datos que contiene y me arroje los resultados. El código contiene 21 dígitos. los 4 primeros serian la presentación. los siguientes 4 el numero de legajo de operario 1 los 4 siguientes el numero de legajo operario 2 los 8 seria la fecha de fabricación y el ultimo seria el turno que pertenece. Espero que puedan ayudarme, desde ya les agradezco y saludo.

hola amigos, soy un poco novato en esto de los macros... y estoy intentado hacer un programa que facilite muy trabajo pero me encuentro con un error que me saca canas bueno... el error que me sale, lo he resumido en esto: Sub asd() Dim d, e As String d = "A5" e = "=sum(A2:" & d&")" End Sub[/CODE] me sale error de sintaxis en 4 linea... le quiero asignar a e=sum(A2:A5) .... y no me deja.... PD: A5 puede cambiar de valor por eso no lo pongo directo. PD: este no es toda la macro... pero resolviendo este puede corregirlo. De antemano gracias por su colaboracion

buena tarde solicito su ayuda con lo siguiente. Tengo una BD en access con cierta cantidad de registros que cada día aumenta. tengo una columna de la tabla que se llama CAUSAL, la cual tiene items diferentes. Necesito contar esos items y mostrarlos en un label de un formulario de excel. el formulario de excel tiene un combobox que me muestra una lista de causales entonces debo contar el causal que seleccione del combobox y que sea igual al de la bd y que muestre la cantidad en el label. ejemplo de items columna causal: Retiro, fallecimiento, falta de dinero. espero haber sido claro y de antemano mil gracias por su ayuda

he intentado realizar el rango dinámico para mis tablas (para poder automatizarlas) pero no he logrado dar con la formula, intente dando nombre al rang0, pero me da error cuando quiero cambiar el origen de mis dinamicas. adjunto el excel y en cuestion es la pestaña detalle la que alimenta las tablas. muchas gracias Dropbox - Control Asistencia al 2 septiembre.xlsm

Hola que tal, tengo un inconveniente cuando mi codigo trabaja, al momento que hace la copia a las otras hojas nuevas, solo copia datos, lo que yo quisiera es que copie las formulas y no solo los datos. Sub ExtractRepsAA() Dim ws1 As Worksheet Dim wsNew As Worksheet Dim rng As Range Dim r As Integer Dim c As Range Set ws1 = Sheets("MENSUAL") Set rng = Range("Database") 'extract a list of Sales Reps ws1.Columns("A:A").AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=Range("AU1"), Unique:=True r = Cells(Rows.Count, "AU").End(xlUp).Row 'set up Criteria Area Range("AW1").Value = Range("A1").Value For Each c In Range("AU2:AU" & r) 'add the r…

Saludos a todos La duda que se me platea es que en la hoja Pedidos tengo registrados todos los pedidos de los clientes. Cada Nº de pedido puede incluir hasta 4 productos diferentes. En otra hoja quiero que se reflejen las fichas de los clientes. Para ello, mediante una lista (con validación de datos) selecciono el nombre del cliente en la celda B2 y la información de ese cliente, se debe volcar en dicha hoja a partir de la fila 17. Me podrías indicar una fórmula para ello? Gracias de antemano copiar.zip