Buenas a todos los forer@s Estoy realizando un userform con varios textbox y combo box y estoy bloqueado en un punto en el cual me gustaria que me ayudasen con ello necesito limitar un textbox con la fecha ,que no se vaya de valores minimo y maximos que indique Quiero limitar el textbox con las fechas 01/01/23 ----31/12/23 Me podrian ayudar con este tema Un saludo y muchas gracias por su tiempo

Estimados: Espero esten todos muy bien, les comento que eh desarrollado una pequeña base de datos y eh copiado un poco tambien, quiero saber como puedo ingresar una imagen a un userfrom que este asociada a un codigo, osea si yo quiero buscar al codigo 5 y me aparecen todos los datos y tambien quiero que aparesca la foto del 5 en ese userfrom y tambien que sea de un tamaño estandar. favor ayudadme y os agradecere atento a sus comentarios Chukonaso Base De Datos.rar

Buenos dias, hace mucho que no me dejaba caer por aquí y veo que seguís en plena forma.:chuncky: Mi intención es crear una macro con la que se pueda hacer una copia condicional de una serie de filas o registros que estan en "hoja1" y pegarlos (con formulas y todo) en hoja2, y que aparezcan como lista, uno debajo de otro. Na más y na menos. Un saludo y gracias :tranquillity: copiar datos condicionados en otra hoja.rar

Hola! amigos del foro quisiera solicitarles el apoyo con lo siguiente: me encuentro tratando de encontrar la forma que pueda exportar datos de excel a access, estoy intentándolo con la siguiente macro: Sub CopiaDatos() Dim fila As Long, uf As Long, conta As Long Dim cn As ADODB.Connection, rs As ADODB.Recordset On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set a = ActiveSheet Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.Path & "\171 ProgramarExcel.accdb;" rs.Open "Clientes", cn, adOpenKeyset, adLockOptimistic, adCmdTable f…

Muchas gracias por su atención, mi interrogante se trata de ¿como colocarle a una serie de celdas en Excel una contraseña?para que esa serie solo pueda ser modificada por la persona que posea la contraseña; al principio utilice la opción de proteger hoja que me sirvió de maravilla, pero luego se vio la necesidad de que ese archivo fuera compartido; al momento de hacer eso me di cuenta que una de las cosas que no se puede hacer al compartir un documento es proteger o desproteger, me puse a investigar y e visto una serie de recomendaciones con macros, pero mi conocimiento de esto es limitado, así que si alguien tiene la amabilidad de explicarme como puedo hacer una macro pa…

Buenas Tardes Grupo, necesito la ayuda para organizar un archivo txt, tengo una macro la cual en idas pasados me ayudaron a realizarla y pues funciona, pero si la ejecuto para otro archivo lo separa pero no como lo necesito y pues no se si alguien me pueda ayudar poniendo comentarios a la macro que ya tengo para entender el código o si tienen otra opción se los agradezco, para que me logren entender esta macro separa inventarios, pero si la utilizo para separar ventas no me sirve por que me corta la información. Gracias. MAcro Extraer.rar

Buen día a todosAlguien me podría ayudar con esta macro, lo único que quiero es agregarle un mensaje, que cuando busca y no encuentra ningún registro; me diga que no lo encontróDeje la macro.. desde ya muchas graciasPrivate Sub CommandButton1_Click()ListBox1.ClearIf IsDate(TextBox1) Thenbuscar = CDate(TextBox1)Elsebuscar = TextBox1End IfIf buscar = "" Then Exit SubWith Worksheets("RUCs empresas").Range("D:D")Set esta = .Find(buscar, LookIn:=xlValues)If Not esta Is Nothing Thenprimeracelda = esta.AddressDoListBox1.ColumnCount = 3ListBox1.AddItem ""ListBox1.List(ListBox1.ListCount - 1, 0) = esta.AddressListBox1.List(ListBox1.ListCount - 1, 1) = estaListBox1.List(ListBox1.Li…

Hola buen día...tengo esta macro que envía los datos como lo quiero, incrementando la columna "T" para tomar como referencia de la última fila con datos...como puedo evitar eso, es decir que no me registre nada en la columna "T", y además me sale un mensaje de error al proteger la hoja..es una tabla dinámica donde se debe arrojar los datos...y finalmente que me ordene por fecha que se encuentran en la columna "A" Private Sub CommandButton3_Click() Dim MES As String ' BOTÓN REGISTRAR Dim UltFila As Long 'MANDAR LOS DATOS EN SUS MESES RESPECTIVO MES = ComboBox4.Value If MES <> "" Then Sheets(MES).Activate UltFila = Sheets(MES)…

Hola buenas, Necesito lo siguiente: Cada dia me envian una hoja con datos y yo tengo que sacar todas las combinaciones posibles haciendo filtros. Un ejemplo seria algo asi: Elijo el primer dato de la columna HTP de la hoja datos quedan 14 datos en la columna Line, elijo el primero quedan 4 datos en location, elijo el primero quedan 9 datos en la columna Piping class, elijo el primero quedan 4 en la columna train, elijo el primero, queda 1 en la columna join nº. (voy haciendo filtros siguiendo el orden de la hoja ejemplo (saltandome la columna Material Group) hasta que quede una sola fila) De esa fila cojo los datos para rellenar los campos que se piden en la …

Hola, como el titulo lo dice estoy teniendo un problema. Hace un mes que empece a incursionar en el mundo de VBA de excel y esta muy bueno, la cuestión es que como soy un iniciado y mi profesión no tiene nada que ver con la informática, me esta costando mucho. Bueno vayamos al grano. Lo que quiero hacer es: En un Cuadro de Texto de un formulario "X" pongo la fecha de nacimiento, mientras que en otro formulario "Y" tengo puesto es un label la fecha actual (que seria el día de la evaluación), a través de Date. Necesitaría sacar la edad y que me la vuelque en otro label del formulario "Y" pero no se que estoy haciendo mal. Pongo el código que estoy haciendo: Private S…

Buen día estimados, Pase un buen rato buscando en el foro una solución pero no la he podido encontrar, como soy nuevo ruego me disculpen si la solución ya estaba, de ser así si me pueden linkear el tema también lo agradeceré. Paso a explicarles: Tengo varios libros de proveedores, y cada libro tiene una serie importante de hojas, mi interés es poder copiar las filas que necesito de cada hoja de cada libro de una carpeta, en una nueva hoja que me sirva de resumen. Opciones: La que mas me conviene Como verán en el adjunto, el formato es similar pero no siempre se respetan la posición (numero) de las filas. Yo lo que necesito copiar es desde donde arranca la fila col…

Hola, Estoy buscando como resolver este tema. Actualmente para importar archivos de texto, estoy utilizando esta macro: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/convertir-varios-archivos-texto-concentrar-sola-hoja-excel-28481/ Mi problema es que necesito que en los archivos de texto, todos tienen la primer fila con los nombres del campo, lo cual no deseo importar más que una sola vez, y por otro lado, necesito poner el nombre del archivo de donde viene ese registro en un campo de cada uno de los registros. Primero estoy importando los archivos a excel, pero despues los importare desde access para manejarlos en una bd. Alguna sugerencia? Saludos !

Buen día para todos.... he creado un formato de bono el cual todo esta bien solo que los controles de formulario (en la hoja llamada 1) al ejecutar una macro (específicamente la de guardar todo el libro en el formulario llamado Save As PDF) y vuelvo a la hoja 1 los formularios no están en el sitio donde quiero que estén, inclusive hasta el tamaño se cambia. He intentado de todo en el formato de ellos bloqueándolo para que se queden quietos independiente si la celda se mueve o no pero nada!!... agradezco de ante mano la persona que dedique tiempo a mi caso Adjunto el archivo. Gracias! Formato Bono.rar

Amigos buenas tardes, tengo la siguiente macro que valida la información de un formulario y en caso de que esté correctamente diligenciado, crea un correo de Outlook y adjunta el formulario; sin embargo me aparece el error 1004 en tiempo de ejecución, la verdad no encuentro el error por lo que les agradecería me ayudaran. De antemano gracias!!! Sub Enviar() 'variable para "manejar" el objeto Outlook Dim OutApp As Object 'variable para "manejar" el objeto mail Dim OutMail As Object 'creamos el objeto Outlook, para acceder a sus propiedades, métodos y eventos: Set OutApp = CreateObject("Outlook.Application") 'logeamos: ojo acá, debemos tener la cuenta bien configur…

en el adjunto tengo 3 alertas dependiendo del valor que se digite en la celda d3 necesito que cuando el valor de la celda d3 sea cualquiera de las alertas (a3,b3 o c3) la macro inserte una flecha del color de la alerta, asi: alerta rojo celda a3, la flecha debera apuntar hacia abajo y en color rojo alerta amarillo celda b3, la flecha debera apuntar hacia la mitad y en color amarillo alerta verde celda c3, la flecha debera apuntar hacia arriba y en color verde muchas gracias

compañeros tengo una gran duda, encontre este codigo para enviar un rango de datos en el cuerpo del correo, este rango tiene celdas con color, formato, etc... y existira la forma qe se vaya con todo y rubrica(firma). Gracias a todos por sus respuestas Sub Mail_Selection_Range_Outlook_Body() 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Don't forget to copy the function RangetoHTML in the module. 'Working in Excel 2000-2013 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing On Error Resume Next 'Only the visible cells in the selection Set rng = Selection.SpecialCells(xlCellTypeVis…

Hola, soy nuevo en el foro y tengo esta gran duda, que código puedo agregarle para que cuando coincida el texto del inputbox, con las personas permitidas de la macro, en la Hoja 3 de mi libro se anote el registro de que usuario, a que hora entro y a que hora cerro el archivo, para que se vaya acumulando e ir haciendo un historial, de los empleados que trabajan en esa hoja, tengo excel 2010 Private Sub CommandButton1_Click() clave1 = InputBox("Ingrese contraseña") If clave1 <> "" Then Select Case clave1 Case "TIPS" Sheets("Hoja2").Visible = True Sheets("Hoja3").Visible = True Case "DAP" Sheets("Hoja2").Visible = True End Select End If End Sub

Hola cómo están? se puede hacer un buscador como el de google (que está aquí en el foro) pero en hoja nueva, y que ahí me extraiga los datos de las otras hojas. Gracias. PD: adjunto la lista como la tengo ahora. listabeta II.xls

Hola, soy nuevo en este foro, espero que me puedan ayudar. tengo este archivo, ya obtengo el primer resultado en L5, ahora quiero que ese valor en L5 sea tomado para que vuelva a iniciar y calcularse otre ves y el resultado me lo ponga en L6 , este valor sera tomado otra ves para volverse a calcular asta que se le indique parar o se cumpla lo que este en I35 ose que va aumentar con cada iteracion una celda. Tengo dos macros, la segunda es donde esta el codigo para calularse. asumo que lo que necesito es un ciclo for, pero ahí mi duda, como lo aplico. Gracias, espero sus comentarios. Saludos TimeTKT1.zip

Buenos días a todos, No manejo muy bien el excel y he creado una archivo para facturar donde contiene varias pestañas. 1. Factura, 2. Clientes, 3. Conceptos de Facturación y 4.Facturas Emitidas (Este cuarto aun no esta terminado). Mi pregunta es: Como puedo crear un botón para generar una facturar y se numere automáticamente y le de click en generar y se grabe en la pestaña 4. así llevo un control de las facturas emitidas. Y otro botón para poder guardarla y se grabe en una carpeta en Mis Documentos con la referencia de mi numero de factura. Y para todo esto una vez este generada y guardada la plantilla se me quede en blanco. La verdad no se si me he explicado bien,…

Hola amigos. Estoy trabajando esta macro para copir unos datos de excel a texto, mi duda es: ¿habrá forma de que al hacer esta tarea la macro me solicite seleccionar manualmente el rango deseado? En la macro tengo señalado por defecto toda la columa "D", pero en ocasiones lo requiero de "D1:D10" de "D9:20", son rangos variables. ¿se puede seleccionar manualmente el rago deseado? sub PasarATXT() Application.DisplayAlerts = False inihoj = ActiveSheet.Name nomfic = InputBox("Nombre del Archivo de texto") nomfic = nomfic & ".txt" Sheets.Add neohoj = ActiveSheet.Name Sheets(inihoj).Select Columns("D:D").Copy Sheets(neohoj).S…

Hola a todos y a ver si me se explicar, os adjunto un archivo con el cual lo podréis ver si pulsáis el F8 para ejecutar la macro paso a paso. Lo que necesito es que los datos que busca de la columna entidad, y luego los pega en la hoja de "pegar" lo haga de golpe es decir que no tenga que acudir continuamente a la hoja de datos, si no que los acumule y luego los suelte INDIVIDUALMENTE. me han dicho que se podría con redim pero no se como hacerlo, lo necesito porque realmente no acudiría a una hoja excel a soltar los datos si no a un programa externo que por cada tipo y ofi me dará unos datos que volvería yo a importar. Gracias Por cierto lo he tenido que subir en XLS, …

hola, quiero hacer una escogida automatica con excel. tengo un lado 70 zonas de trabajo libres (zona 1, zona 2,etc.) y por otro lado 900 comerciales que pueden cambiar de su zona asignada si estan interesados. Cada comercial que quiere cambiar entrega su solucitud con su preferencias (1ª) zona 34, 2ª) zona 6, etc.). a la hora de hacer de asignar se hace por antigüedad en la empresa. ¿como lo hago? ASIGNACION ZONAS.xls

Saludos a todos en el foro, con la siguiente cuestión. Tengo una userform con un listbox el cual contiene dos columnas, el problema es que en el rango renombrado hay muchísimas celdas en blanco. Lo que necesito es que en el userform solo se vean las celdas con valores es decir que no aparezcan las celdas en blanco ya que son muchas. Nota no puedo eliminar las celdas en blanco de donde obtengo la información para el listbox. Solo valoresen listbox.xls

Hola a todos, Tengo un libro excel que tiene dos hojas La 1 llamada asistencia en donde tengo el detalle del control de asistencia de todos los trabajadores y en la 2 llamada Report Diario en donde resumo toda la informacion por categorias de la primera hoja estoy aprendiendo macros y encontre la Macro Match para coincidir una fecha y mediante eso poder traer los datos de esa fecha y me esta arrojando el siguiente error '1004' no se puede obtener la propiedad Match de la clase WorkSheetsFuction. agradeceria enormemente me pudieran ayuda subire el archivo para mayor claridad de mi duda. Atte. Macros 2014