Buenos dias comuninidad Ayuda Excel, estoy realizando un poryecto, en el cual estoy detenido en lo siguiente: necesito pasar de un listbox1 del userform1, a otro listbox1 del userform2, para empezar; ya que necesito realidad pasar el valor del userform1 de 4 listbox, o sea del userform1 listbox1 listbox2 listbox3 istbox4 al del user userform2 listbox1, y el valor de este userform2 listbox a una celda "x" Espero me puedan apoyar con el codigo, para poder adaptarlo al proyecto ya que estoy hecho pelotas. Saludos buen dia.

Hola buenas tardes: Por favor me pueden ayudar a realizar lo siguiente. ejecutar una macro después de un tiempo, que recorra una columna a partir de la celda activa hacia abajo. Es una lista extensa, que filtro desde la columna B. y solo me muestra las filas que me interesan. ejemplo: Si mi celda activa es la C23 ejecutar la macro y baje una celda y repite la macro después de 20 segundos y lo vuelve hacer(Simpre bajando una celda), y que este se detenga hasta la ultima fila que este visible en el filtro. Ya que puedo tener muchos datos mas. Gracias Prueba filtro y avance.xlsm

tengo un listbox en una hoja de ecxel con unos datos ya cargados. la idea es ordenar ascendentemente ese listbox sin tocar los datos de donde los traigo. solo quiero ordenarlos y ya.

Tengó la siguiente macro que me permite exportar a PDF en una ruta definida por mi: Option Explicit Sub CreaPDF() Dim NombreArchivo, RutaArchivo, historico, separador As String NombreArchivo = Cells(7, 3).Value RutaArchivo = Cells(42, 2).Value historico = Cells(3, 6).Value separador = “-” ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo & NombreArchivo & separador & historico, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub Esa macro me exporta a un pdf la planilla que tengo en una ruta definida. Lo que necesito hacer ahora es qu…

Hola a todos Soy nuevo y de excel no tengo casi ni idea, estoy haciendo un libro para hacerme escandallos de trabajos y necesitaria hacer un boton para insertar una imagen, en una posicion y con un tamaño en la hoja con la que estoy trabajando.Buscando por varios foros he conseguido hacer este macro . Sub InsertarIMGcorte() ActiveSheet.Range("K5").Activate Application.Dialogs(xlDialogInsertPicture).Show With Selection .ShapeRange.LockAspectRatio = msoTrue .ShapeRange.Height = 290 'Alto 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 pa…

Hola Buen Dia Gente, Es mi primer post en el Foro Quero Dar las gracias por este gran aporte que brindan! Despues Paso a lo Siguiente., Tengo un simpre formulario el cual contiene un boton me crea una Base Datos en SQL otro que crea la Tabla y Poateriormente Introducir los Datos , Los Datos me los Agrega perfectamente al Excel, Pero lo que quiero es que tambien los Pegue en la Tabla de la Base de Datos SQL. Si alguien me puede suguerir Algo Estoy Disponible Graciass! Base de Datos.rar

Hola, tengo una macro que desprotege ciertas celdas, cuando apreto la misma, primero te pregunta la contrasena. Pero necesito que cada vez que la contrasena es incorrecta no me tire error 1004 sino un cartel que diga contrasena incorrecta. Cree la siguiente macro pero no me funciona: Sub Desproteger() ' ' Desproteger Macro ' ' On Error GoTo Errhandler ActiveSheet.Unprotect Sheets("OP").Select ActiveSheet.Unprotect Sheets("NP").Select Range("F11").Select Exit Sub Errhandler: MsgBox "No dijiste la palabra magica", vbOKOnly, "Error" Exit Sub End Sub Que debo hacer para que funcione? Desde ya muchas gracias =)

Hola a todos, tengo excel 2007 y estoy intentando hacer un archivo para un juego de casar parejas para obtener un regalo si aciertas a casar la pareja. tengo una tabla con diferentes regalos y encima de cada nombre he puesto un boton, el cual al pulsarlo deberia ocultarse durante unos segundos y dejar ver el texto que hay debajo de el, y asi en todos los botones. he intentado hacer una macro asignada al boton que oculte el mismo cuando lo pulso pero no soy capaz. alguien podria ayudarme? muchisimas gracias. PROMOCION BEM JUEGO CASAR PAREJAS.zip

Buenas noches, acudo nuevamente a Uds. para realizar la siguiente consulta: Tengo un libro en Excel con varias hojas. Deseo que al cerrar el file, solo se protejan "ciertas hojas", no todas. Estoy usando el siguiente código, el cual proteje todas las hojas del libro, quisiera modificarlo para cerrar el archivo y que automáticamente se protejan "algunas" hojas. Sub Proteger_Hoja() For Each Sheet In ThisWorkbook.Worksheets If Not Sheet.ProtectContents Then Sheet.Select ActiveSheet.Protect ("Xxxxxx") MsgBox "Se ha protegido la siguiente hoja : " & Sheet.Name, vbExclamation + vbOKOnly, "Proteger_Hoja" End If Next End Sub Por cierto, las hojas tie…

Buenos días, A ver si me podéis ayudar porque por mas que busco y leo no encuentro la solución. Igual la explicación es un poco farragosa. Tengo este tozo de código VBA generado por un script de SAP que básicamente lo que hace es abrir una Tx de SAP, cargar los datos de búsqueda y generar un informe. Luego ese informe lo exporta a Excel, y por ultimo lo guarda en la ubicación elegida. Hasta aquí todo correcto. El problema es que solo funciona si la ruta de guardado es local, pero no si es un SharePoint, me explico. La idea es que haga todo lo anterior y guarde directamente en un SharePoint donde están configurados los permisos para guardar. No se si algu…

Buenas a todos/as: Voy a intentar explicarme de la mejor manera posible, para que se entienda lo que quiero hacer. Hemos desarrollado para el trabajo, un programa en vba excel, que a traves de formularios, ingresamos datos y se registran en tablas del propio archivo, tanto para consulta como analisis posterior. Ahora, queremos que este archivo se actualice automaticamente con datos de otros excel, me explico: Nos van a generar diariamente 5 archivos excel que van a contener datos. Estos datos queremos que, diariamente, se registren en el programa que hemos desarrollado (en una hoja especifica) automaticamente y sin necesidad de abrir el programa. Sabem…

Muy buenas, Tengo una tabla con cuatro columnas y nº de filas variable, en Hoja2. Nº Panadero Fecha Mes 14 Bogdan 07/11/14 11 2 Carlos 28/10/14 10 12 Carlos 08/11/14 11 8 Catalin 13/06/14 6 9 Marcial 12/11/14 11 10 Miguel 27/11/14 11 5 Nicu 04/04/14 4 11 Sinan 07/11/14 11 15 Miguel 30/11/14 11 16 Marcial 30/11/14 11 17 Zoqueto 20/08/14 8 18 Johnatan 12/11/14 11 Necesito aplicar 2 filtros a las columnas 2 (Panadero) y 4 (Mes). El filtro de la columna 2 es el valor de un Combobox que se llama SelPanadero. El filtro de la columna 4 es el valor de una celda que se encuentra en una hoja distinta de la que incluye la tabla a filtrar (Hoja1.Range("h1").value) E…

Hola a todos como podria hacer un calendario perpetuo en un userform para crear citas para una clinica. CalendarioPerpetuo.xlsm

Buenos dias, por favor me pueden ayudar estoy tratando de insertar datos a una hoja de excel mediante sql atravez de adodb. pero me da error en la linea de connection y tambien en el values he puesto los nombres d elos controles pero no los reconoce. por favor me pueden orientar sobre este error. Private Sub CommandButton1_Click() Dim Cnn As ADODB.Connection Dim Sql As String Set Cnn = New ADODB.Connection With Cnn .provider = "Microsoft.ACE.OLEDB.12.0" .connectionstring = "data source=& ThisWorkbook.Path & " \ " & COSTOS MOTO.xlsx" .Properties("extended properties") = "Excel 12.0 Xml;HDR=YES" .Open End With Sql = "insert into [prueba$](…

Hola Amigos, Quiero obtener los dias disponibles de una persona x, y mostrarlos en un listbox por ejemplo, en combobox o listbox marco la persona, y en el listbox, muestre los dias libres o disponibles, algo como esto: los datos estan asi: Gracias

hola buenas tardes tengo una duda aver si me pueden apoyar despejando mi duda tengo un userform el cual contiene varios textbox en uno de ellos deseo que solo se pueda dijitar la pabra niño o niña y otro textbox solo acepte numeros del 1 al 12 he intentado con uno pero me marca error solo logro validar una palabra o otra de antemano muchas gracias dato introducido.xls

Buenas Tardes Tengo un problema con una macro que cree para ejecutar una consulta desde excel y que traiga los resultados en una celda en particular. Hace meses la vengo usando y funcionaba perfecto, pero desde la semana pasada me tira este error: RUN TIMER ERROR 1004 Application defined or objet defined error y se tilda la siguiente sentencia .Refresh BackgroundQuery:=False Llevo toda una semana investigando que puede ser y no encuentro nada. Agradezco su ayuda *******!!!! Dim varSQL ' OBTIENE EL NUMERO SIGUIENTE DE BASE varSQL = Sheets("ArmadoQuery").Range("c23") Sheets("Resultado").Select Range("F15").Select Selection.ClearContents…

Pues eso... Digamos que tengo una hoja repleta de botones con macros y quiero dejarla estática, es decir, que el usuario no se pueda desplazar a través de ella haciendo uso de la ruleta del mouse. Supongo que existirá alguna manera más sencilla de programarlo, pero pienso que lo más lógico sería anular la propiedad SmallScroll del objeto Windows. Muchas gracias de antemano por vuestro tiempo.

Buenos días ,Llevo días atascado en un problema relacionado con la función extraer datos. Tengo un nivel de excel muy básico así que cualquier ayuda será de mucho agredecer.La cuestión es que he creado una base de datos excel para gestionar las entradas y salidas de un párquing. El funcionamiento es simple pero eficaz. Se introduce el número de tarjeta o id del conductor y mediante la fórmula extraer se recuperan el resto de datos suyos que le identifican a él y su vehículo (fotografía, nombre, cargo, matrícula del vehículo, marca, modelo, etc), de modo que te indica que está autorizado. En caso contrario, aparece la indicación no autorizado.Estos datos a su vez se copian…

Hola, buenas tardes, Estimados. estoy trabajando en una macro de generación de ordenes de trabajo pero me da error al crear una ot y no me enlazan una serie de datos con el modelo final de ot que necesito crear, si alguien me pudiera ayudar se los agradeceria, ya que tengo asociados equipos, patentes horometros, kilometrajes, costos, etc. Al yo pulsar generar ot me deberia crear una pestaña con la ot modelo (se asigna el numero de ot en pestaña; ej; OTTCLM64 y en el encabezado del formato )y asignar todos los datos que le ingrese en la tabla de ingresos,luego al asignar hh de cada actividad y costos asociados (costos que deberian estar enlazados a la planilla de…

Hola! Qué tal? Estoy intenando hacer una mini base de datos en Excel para mi trabajo (Debe ser en Excel si o si y el libro se usará para compartir) Quiero aclarar que soy principiante en tema de VBA y me manejo un poco con Macros pero no es mi fuerte, estoy aprendiendo. Solo necesito un formulario para ingresar datos (Lo cual hice un invento para que funcione ya que no puedo utilizar Tablas y luego compartir el libro) pero se me está complicando la parte donde debo buscar a los pacientes para luego agregar información, les dejo el archivo para ver si me pueden tirar unas ideas. La idea del proyecto es la siguiente: Trabajo en un Consultorio Médico que tiene su parte de Od…

Buenos dias Tengo un formulario con 10 OptionButtons cada uno dirigido a una hoja del mismo libro, intento hacer una busqueda usando el siguiente codigo, pero me da Error '91' en tiempo de ejecución: variable de objeto o con la variable de bloque no establecida. ¿alguien podria ayudarme? Private Sub ComboBox3_Change() With ActiveSheet var3 = ComboBox3.Column(0) Cells.Find(What:=ComboBox3.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate If var3 = ActiveCell Then TextBox15.Value = ActiveCell.Offset(0, 1) TextBox7.Value = ActiveCell.O…

Buenas Tardes: Me pueden ayudar como hago para corregir este error ya que en mi pc no sale pero le envio el archivo a otra persona via email y le sale, a esa persona no le sale la linea donde esta el error, solo sale el error y ya.

Buen día!! Recurro a Uds. para solucionar estos inconvenientes!! 1.- Coloqué un código en el evento "Workbook_Open para que al abrir el archivo me presente visualmente en las hojas las líneas punteadas que indican los límites de impresión (no la vista preliminar de impresión) pero me lo aplica sólo a la hoja activa. Cómo corregirlo?? 2.- Al activar la macro mediante el botón de comando "HojaNueva2016" me copia la hoja pero me bota un error y al correrla paso a paso me bota otro error. 3.- En ocasiones me presenta la vista preliminar en el código de la Hoja 1 y tengo que pulsar la tecla "ESC" para que el código continúe. Al incluir la instrucción "SendKeys {ESC}" me indic…

Hola Buen Día Amigos, estoy buscando apoyo en cuanto a la elaboración de macros como herramienta y apoyo a mis tareas cotidianas, soy nuevo en esto del Excel y me gustaría aprender mas, pero el corto tiempo que tengo para la presentación de mis formatos me lo impide si alguien me pudiese apoyar dando consejos, manuales y sitios de apoyo como este el cual yo podría capacitarme y realizar esta Macro se los agradecería eternamente. Se anexa el archivo adjunto en Excel de como paso los datos a Excel y como paso a paso los voy moldeando hasta llegar a lo que quiero, pero eso solo es un cliente y un proceso, tenemos muchísimos clientes y en ellos muchos procesos que por como v…