Macros y programación VBA

Buenos días a todos, me han encargado recientemente en la empresa para la que trabajo la tarea de realizar el cuadrante del personal de la empresa, que se dedica a los Medios Audiovisuales. Para facilitar y optimizar el tiempo de imprimir un "Listín Diario" en el cual sale la tarea que tiene que desempeñar cada persona en la empresa, alguno varían de un día a otro debido a diversos factores, he realizado a través de mis no tan avanzados conocimientos en excel, unas fórmulas y algún que otro condicional imprimir ese listín de forma rudimentaria ya que tengo que cambiar las formulas día a día tarea que me puede llevar a equivocación y con el consecuente error para los empl…

Buenas noches . por favor alguien me pueda ayudar . tengo un formulario donde ingreso datos uno debajo de otro a 4 listbox en simultaneo desde 4 textbox . que macro puedo usar para agregar estos datos de los listbox a una hoja en su respectiva columna . Espero contar con su apoyo.gracias

Buenas a todos, Estoy intentando crear una macro para rellenar automaticamente unas celdas con unos valores de texto predeterminados y siguiendo unas pautas de repeticion...., y no consigo ni acercarme :-( Adjunto el fichero que estoy trabajando. La primera hoja contiene los datos. La segunda hoja es como deberia de quedar. La tercera hoja es la de los resultados. En la hoja de datos estan marcados en rojo aquellos que indican los criterios de repeticion..... no se si consigo explicarme... En el ejemplo del archivo, como hay 4 "PAGINAS POR JUEGO" existen 4 valores para TEXTO POR PAGINA. Cada valor se repetirá 10 veces y sucesivamente hasta completar el rango total…

Hola de nuevo, tengo una macro que intenta guardar una carpeta de mi C:\ en una carpeta de un servidor, la ejecuto pero no hace nada, está mal evidentemente pero ¿Qué está mal? Sub Mueve_fotos() Dim carpeta As String Dim fecha As Date fecha = Now(Format("dd-mm-yyyy")) carpeta = "\\179.29.84.35\Pub-Water-Jet\REGISTRO VISUAL\" Call Shell("explorer.exe " & carpeta, vbNormalFocus) Name "C:\Seat\Historico\" As carpeta & fecha End Sub[/CODE]

Hola foro Otra vez solicitando su ayuda Recién me han ayudado a colocar fecha hora y minutos en celdas separadas, pero al estar utilizando la solución dada, me percate de que me falta una linea de código que, al borrar el contenido de la columna A, también se borren los contenidos del las celdas B, C y D. Subo el archivo con el código que me ayudaron a modificar, esperando me puedan ayudar a insertar el código para borrar como he dicho antes. Gracias de antemano pegar fecha 2.xls

Buenas noches, Me gustaría que me ayudarais a hacer una macro que convirtiera varios rangos de numeración en una lista con esos rangos desglosados. Por ejemplo: Columna 1 Columna 2 23 28 45 49 ... Conversión: Columna 1 23 24 25 26 27 28 45 46 47 48 49 ... Muchas gracias por vuestra ayuda.

hola como puedo hacer una macro para combinar los numeros del 1 al 69 sin repetir algun numero en cinco posiciones ejemplo 1-6-2-3-5 o 63-58-42-47-2 numero que aparesca ya no se puede combinar

Buenas tardes a todos, necesito una ayuda de ustedes, tengo un archivo el cual esta compuesto por varios sub-modulos, los cuales tienen 20 filas cada uno, necesito lo siguiente: 1. Una macro que me copie en otro archivo los datos de las Columnas C,D,G,H,I, y K de los rangos (53:77) y (82:106) 2. La condición es que no copie las filas en blanco, que solamente hasta donde se digitó información. Agradecería mucho la ayuda de ustedes. Planilla Diaria-Prueba.rar

Saludos! Eh creado (gracias a muchos de sus aportes) un libro con macros que básicamente realizan una serie de operaciones y dan como resultado unos valores que actualizan constantemente (simulando tiempo real). Inicialmente una sola persona verificaba estos datos desde computadora especialmente para eso, luego otras personas requerían la información y para resolver de forma "rápida" recurrí a exportar la hoja principal a PDF y enviarla por correo constantemente a través de otras macros. Mi consulta es, si existe la forma de "exportar" un libro de excel con macros hacia una pagina web, para que desde un "link" los usuarios puedan ver los valores y no tener que estar e…

Estimad@s Cuando ejecuto una libro hecho en macros, no me permite ejecutar la macros ;me sale este mensaje "Debido a su configuración de seguridad, se han deshabilitado todas las macros. Para ejecutar macros es necesario que vuelva abrir este libro" . Habilite los permisos en el centro de confianza , desconecte los firewall y el antivirus , hasta desconecte el internet .. Pero a pesar de ello sigue saliendo ese mensaje. De ante mano Gracias por su aportes

HOLA PUEDEN AYUDARME VEO EL ARCHIVO DE CONTRO DE INVENTARIO QUE ENVIARON AQUÍ Y QUIERO UTILIZARLO PERO CON CÓDIGOS DE PRODUCTOS OSEA SU CÓDIGO DE BARRA PERO AL MOMENTO DE HACERLO ME MARCA ERROR Y ME SELECCIONA EN AMARILLO ESTA PARTE Range(CeldaEntrada).Select Y AL MOMENTO DE PONER EL CODIGO DE BARRA EN LA CELDA PARA BUSCAR EL NOMBRE DEL PRODUCTO NO ME DA EL CODIGO EXACTO, INTENTO CAMBIAR A LA FORMULA CONSULTAV Y YA MACRO ME MARCA ERROR 1004.

Buenos días a todos, estoy realizando una tabla dinámica en una macro, y cuando la ejecuto me sale este texto: (error "5" en tiempo de ejecución). El texto en amarillo es el siguiente: (ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "PRODUCCION GENERALES!R1C6:R70C13", Version:=xlPivotTableVersion15). _ CreatePivotTable TableDestination:="PRODUCCION GENERALES!R35C6", TableName _ :="Tabla dinámica5", DefaultVersion:=xlPivotTableVersion15) He intentado solucionarlo por mi cuenta, pero no ha habido forma de hacerlo, Agradecería algo de ayuda para poder continuar con mi trabajo, Muchísimas gracias a todos,

Control de Existencias Prueba.rar

Hola amigos de ayudaexce Hoy les traigo una pequeña duda si se puede lograr, tengo excel conectado con acces, y en acces hay un informe con el nombre "Informe1" y me gustaría saber como hago una macro para que me visualice desde excel el informe que hay en acces. saludos, espero me puedan colaborar

Amigos, si algun me puede dar una mano, en mi hoja los datos aparecen en tubular, yo requiero que los datos de una columna pasen a hacer encabezados, lei con el Pivot de sql se podria hacer, pero no me ha salido. consulta normal sale este resultado: lote Variedad Año Yema fertilidad Fecha_Analisis lt7 cccccc 2016 1 25.3 10/02/2015 Ll7 cccccc 2016 2 33.5 10/02/2015 Resultado deseado : lote Variedad Año 1 2 Fecha_Analisis Lt7 cccccc 2016 2…

Mi estimados, a la hora que ejecuto la consulta que salta un error "Nombre no valido" Adjunto Imagen y la consulta que realizo estoy trabajando con un excel 2016, pero con otros archivos no he tenido problemas. Sub Reporte_Consolidado() Application.ScreenUpdating = False UfR = Resumen.Range("A" & Cells.Rows.Count).End(xlUp).Row + 1 Conexion.Abrir_Conexion Consulta = "SELECT H.Lote,H.Variedad,DatePart(yy,H.FechaAnalisis),H.Yema,H.Fertilidad,L.FechaPoda,H.FECHAANALISIS " & _ "FROM ([Fertil$] H INNER JOIN [Lotes$] L ON H.Lote=L.Lote)" Rst.Open Consulta, Cnx, , , adCmdText Resumen.Range("A2:H" & UfR).ClearContents Resumen.Range("A2").CopyF…

Muy Buenas Tardes, Estuve indagando y hasta ahora no he podido solucionar mi problema, se trata de un filtro que necesito hacer a una data que esta en una hoja, y mostrarlo a un listbox , lo que sucede es que este libro tiene 12 columnas y deseo que se muestren en un listbox luego de hacer el filtro necesario con los siguientes criterios que son "Customer", "Fecha desde" "Fecha hasta" . y al realizar la consulta me filtre de manera automática los digitado en cada uno de los textboxes que tengo en mi Formulario. Espero su pronta respuesta. Saludos Facturacion_de_Boletas_CAS_Updated.rar

Cordial saludo, soy bastante nuevo en este medio de programacion, pero inicie un pequeño proyecto para una pequeña empresa la cual solo requiere lo basico que es ingreso mercancia, ventas, consultas; ya estan realizadas con formularios, lo que pasa es que no he podido realizar que en el formulario ventas cuando acepte la venta, me descuente automaticamente el valor de la tabla productos. ya busque foros de este tema sin resultados positivos. agradesco su ayuda. prueba.zip

Buenos dias todos. Le comento lo siguiente: Tengo un libro dentro del cual tengo una hoja que se llama Precios, dentro de esta hoja tengo cuatro columnas Columna A= Clave, Columna B=Modelo, Columna C=Material de Corte, Columna D=Precio, debjo de cada encabezado tengo los datos de varios modelos de cazado. Otra hoja se llama Pedido el cual puede variar dependiendo mi cliente. En esta hoja (Pedio quiero pasar los datos que corresponden a la clave que teclee en la hoja de pedido. Les envio el ejemplo de como quisiera que fuera el resultado. Gracias, y quedo en espera de su ayuda Orden de Pedido - copia.rar

hola mi nombre es Nelcy estoy en secundaria y voy perdiendo mis logros en excel, me han puesto un trabajo que se trata de lo siguiente Debo generar una macro y que me genera datos por CONSULTAS POR 1. INSTITUCION, FECHA_NACIMIENTO, EDAD 2. INSTITUCION, APELLIDO1, APELLIDO2, NOMBRE1, NOMBRE2, GENERO 3. INSTITUCION, APELLIDO1, APELLIDO2, NOMBRE1, NOMBRE2, JORNADA 4. INSTITUCION, APELLIDO1, APELLIDO2, NOMBRE1, NOMBRE2, SISBEN por favor ayudenme gracias, para asi poder pasar mi ciclo es que fuera de esto debo hacer 7 ejercicios mas de estos

Hola Amigos , como estan? Les queria pedir su ayuda si alguien sabe como puedo solucionar mi problema. Tengo 2 Hojas con codigo producto y otra especifica la cantidad. Hoja "Orginal" , esta hoja es la que necesita ser modificada. valores de cantidad siempre en 0 Hoja "Nuevo" son los valores que se necesitan cargar en la Hoja "Original". La ultima hoja que pongo en el excel es la hoja "conmacro" que es como quedaria la hoja "Original" una vez ejecutado el macro. Desde ya agradezco a quien pueda ayudarme con este problema que me tiene loco y no encuentro solucion. Gracias de corazon Jon ayuda.rar

Hola de nuevo, tengo esta macro: Sub Inserta_foto() 'Renombramos archivo Name "C:\Seat\Fotos\foto.jpg" As "C:\Seat\Fotos\imagen.jpg" ActiveCell.Select ActiveSheet.Pictures.Insert("C:\Seat\Fotos\imagen.jpg").Select With Selection .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 60.75 'Alto de la imagen .ShapeRange.Width = 84 'Ancho de la imagen .ShapeRange.Left = .ShapeRange.Left + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (izquierda) .ShapeRange.Top = .ShapeRange.Top + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (superior) 'Movemos archivo a la carpeta Historico Name "C:\Seat\Fotos\imagen.jpg"…

Buenas tardes a todos, espero no incomodarlos, pero necesito la colaboración de ustedes, ya que no he sido capaz de generar una Base de datos partiendo de una plantilla que lleno día a día, el caso es el siguiente: 1.Tengo un archivo el cual cada día genero una pestaña con el número del día correspondiente, o sea, si el día es "2" abro una pestaña con el "2" que corresponde al movimiento de dicho día; si es "3" asigno el número "3" y así sucesivamente. 2. Cada día lleno los datos según el empleado o modulo que corresponda (Ver archivo adjunto) 3. Terminado el día, tomo la información de dicho dia y la copio manualmente a otra Planilla, llamada "Datos Generales", en la …

Hola, tengo un problema con mi macro, tengo una lista de datos y por cada dato genero la copia de una hoja modelo, el problema es cuando necesito agregar mas datos y vuelvo a ejecutar la macro, me genera otra hoja pero no con el nombre del ultimo dato agregado, si me pueden ayudar lo agradezco. Saludos Sub Generarhoja() Dim HojaOrigen As Worksheet, HojaNueva As Worksheet Set HojaOrigen = Sheets("UF_Dolar") Dim ultfla As Long ultfila = Range("A" & Rows.Count).End(xlUp).Row u = ultfila - 1 'para recorrer los registros del listado For i = 1 To u 'desactivamos la actualización/refresco de pantalla Application.ScreenUpdating = False 'duplicamos la Hoja 'modelo'…

Buenas tardes. He cogio un excel de un blog finanzas, que lo desarrollaron para "sorteos" en campeonatos. A raiz del mismo, he incluido un par de columnas de "datos", y necesito vuestra ayuda para: 1.- Con las columnas de la A a la G, quiero que obtener un orden aleatorio, como ya sale, pero que no salgan consecutivos 2 que coincida el club de la columna D. 2.- Con todas las columnas, quiero obtener emparejamientos, en los que se de la misma condicion anterior, o sea, que no se emparejen dos. Gracias. 15 1.xls