Buen dia Gente.. Alguna Sugerencia ya que cuando selecciono una fila en excel doy clic en el boton "enviar datos" los manda excelente. pero suele pasar que por equivocacion vuelvamos a seleccionar esa fila y damos clic y lo que quiero es que ya no los envia repetidos. Espero su Aporte. Anexo Codigo. Private Sub CommandButton1_Click() Dim sql As String Dim cn As Object Dim rst As Object Dim PP As Long rowCursor = Activecell.Row sql = "Insert Into Reporte(Cliente, Dim, Tipo, Mate, NoRodillo, Cond, HoraCromado, RA, Picos, Temp, ReversaA, ReversaT, CromadoA, CromadoT, Volts, CondA, RAB, PicosA, Celda ) " & _ "VALUES ('" & Cells(rowCursor, 1) & "'…

Buenos días requiero ayuda con lo siguiente: para poder identifica la ultima celda con datos utilizo el siguiente código: x= ThisWorkbook.Worksheets("Simulación ingresos M").Range("A" & Rows.Count).End(xlUp).Row + 1 en la hoja de simulación ingresos m se encuentra una tabla a la cual le voy agregando registros a partir de otra hoja, por algún motivo la primera fila de la tabla ( donde se encuentra la formulación) el código no lo tomo como la primera fila vacía teniendo como consecuencia que siempre me queda la primera fila vacía. como puedo arreglar este problema?, quedaría agradecido con la ayuda No me permite adjuntar el archivo , adjunto …

Hola a todos, Quiero usar la variable ( .List ) en mi macro pero VBA pare ser que no la encuentra como si no existiera. No entiendo nada. Os adjunto las capturas de pantalla. Como podéis ver en la lista desplegable de VBA no aparece esta variable que acabo de escribir. Pero he seguido escribiendo el código a mano, esperando que me saltara algún error o que se pusiera en rojo el código ( como cuando lo has puesto mal ) pero no es el caso parece ser que está bien aparentemente. Pero cuando ejecuto la macro me salta ese error. Creo que porque no reconoce la variable .List Creo que no he cometido errores en e…

Estimada Red, Primero quiero agradecer, porque cada vez que necesito alguna ayuda de este tipo, siempre hay alguien de buena voluntad que me responde. No soy experta en VBA, pero me encanta hacer trabajos como este. Les cuento, estoy trabajando en un archivo, donde tengo un formulario que permite hacer búsqueda de información en una tabla, utilizando filtros avanzados, tomando como criterios de búsqueda, los campos que el usuario seleccione de una serie de combobox, y mostrando el resultado en un listbox dentro del mismo formulario. He tratado de hacerlo, busqué la manera de poder filtrar, copiar y mostrar los datos en el listbox. Esto último lo hace, pero el archivo s…

buenas tardes, estoy trabajando con un archivo en el cual manejo pagos a entes gubernamentales, y a partir del mes de abril no permiten cargar valores que sean inferiores a un salario especifico, resulta que en mi libro la columna "G" posee el campo sueldo, pero al extraer la información necesito que una macro ubique los valores inferiores ejemplo a 250 y estos que sean menores los convierta a 250, únicamente los que sean menores a este valor prueba.xlsx

Estimados Foristas, Buen día. Espero puedan ayudarme con lo siguiente. Tengo un archivo (adjunto) el cual tiene la pestaña "FORMATO" de donde copio de la fila 1 a la 12 y luego lo pego debajo del último cuadro de la pestaña "MODELO" (correlativo). Hago esta operación tantas veces es necesario y siempre se debe pegar justo debajo del último cuadro. Como ven en "FORMATO", se tiene un botón "insertar fila" (ver la macro). El tema que cuando pegue a la hoja "MODELO" debe copiarse el formato entero, incluso el botón cuya macro deberá funcionar sólo para el cuadro que acabo de pegar. Quedo de su gentil ayuda. Saludos, José. NuevaPrueba1.rar

Estimados Estoy trabajando en un formulario con cuadro combinado, el cual ya sé como desplegar una lista de valores. Mi duda es la siguiente como puedo bloquear cualquier texto que se escriba dentro del cuadro combinado (comboBox), que no corresponda a los valores de la lista seleccionada. Cualquier duda estaré atento a sus comentarios. Desde ya, muchas gracias por su ayuda. Driver IT V2.rar

Buenas a todos, Soy nuevo al foro, y un usuario "medio" de excel. Llevo unos días intentando vía formulas encontrar la manera de realizar una exportación por posiciones. Navegando he encontrado que lo mejor es via una macro pero no encuentro la forma de resolverlo ya que es necesario de un usuario avanzado en tema macros. 1. El tema en ejemplo es, tengo que exportar diferentes excels por posición así: Cuenta Saldo 100 3005,50 2121 -646,94 ... a un txt con esto: 2. Posición Longitud 1 12 Cuenta 13 11 Saldos positivos: 9 enteros + 2 decimales Saldos negat…

Buenas tardes, Amig@s del foro quisiera solicitarles el valioso apoyo con la siguiente consulta: como lograr eliminar un modulo por medio de macro cuando el proyecto se encuentra protegido? he revisado que utilizando la siguiente instrucción se elimina el modulo pero si el proyecto no está protegido en su acceso a vba: ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule.DeleteLines 1, ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule.CountOfLines En el archivo adjunto he insertado un botón en la hoja que llama al formulario, dentro del formulario he agregado otro botón para llamar a la macro, la clave es: PRUEBA, la idea es que en el modulo 2 cr…

Hola: Tengo un Combobox que despliega una lista de porcentajes que coge de otra página del propio archivo. Las celdas de las que lee los datos, tienen formato porcentaje y los valores de muestran así: 5%, 10%, 15%... Al desplegar el combobox, los datos del deplegable tambien aparecen en el formato pocentaje tipo 5%, 10%, 15%... pero en la celda en la que escribe ese combobox, los datos se muestras en el formato 0.05, 0.10, 0.15...y me gustaría que aparecieran en el formato original tipo 5%, 10%... He intnetado cambiar el fomrato con el siguiente código pero no me funciona: Private Sub ComboBox5_Change() Tol_AV_in = ActiveSheet.Range("I16").Value Tol_AV…

Buenos dias foro Hola el que me pueda ayudar, necesito hacer un cuadrante de turnos para hotel, para cuatro personas, trabajando turnos de Mañana, Tarde y Noche respectivamente, librando un día y a la siguiente semana dos días cada persona. es decir 5x1 y 5x2. de ser posible que se generen las horas totales al final de mes, no es imprescindible. muchas gracias, saludos adjunto un libro que alguien colgó para turnos 6x3 6x2 y 6x1. (pero no es lo que necesito), podria servir de ayuda... Sist 6-1 6-2 6-3.xls

Hola, tengo dias ya haciendo una hoja para reporte de facturas, de hecho expuse una duda, y me ayudaron muy bien, ya amplie mi archivo y ya aprendi a hacer userforms, busquedas en hojas, etc. y luego descargarlas en una hoja como base de excel. Pues bien, ahora se me ocurrio que quiero hacer reportes modificables de la misma forma, es decir, crear un userform y reportar datos segun lo que le pida, si por fechas, si facturas cobradas, si facturas de x responsable o de x empresa, etc. Trate de hacerlo con tablas dinamicas y no me sale, y pues no se si me puedan ayudar. Aqui esta mi ejemplo (no puse todo la hoja con los userform de carga, porque esta muy pesada, solo un ej…

Que tal amigos del foro anexo un archivo en el que se puede hacer la busqueda del archivo por coincidencias del nombre, mi duda es si se puede hacer la busqueda tambien por autor aunque no ponga el nombre del archivo o poniendo ambos (autor y nombre del archivo), la otra hace mucho me acuerdo que alguna vez vi que se puede hacer la busqueda por condicionantes esto es que si no lo encontraba en c:, lo buscaba en D:, en esos tiempos A: (que ya no existe en algunas maquinas), etc. con la finalidad de no escribir toda la ruta. Espero poder darme a entender y ante todo un saludo buscar archivos.xls

Filtro de fecha y hora en Formulario Buenas noches, Necesito ir guardando una tabla de datos como la de la hoja adjunta y quiero hacer un formulario que me permita cargarla, filtrarla, ... Apoyándome en uno obtenido de ExceleInfo estoy intentando adaptar los filtros. Tras muchas pruebas no consigo dar con la solución para filtrar la hora (hh:mm) y la fecha. ¿Puede alguien echarme un capote? Gracias anticipadas, Juan FORMULARIO prueba.xls

Hola estimados foreros, de nuevo con un problema, haber si alguien me puede colaborar a resolver, tengo este codigo, lo utilizo para pasar los datos del listbox a una hoja un dato encima de otro, el caso es que cuando le pulso al boton, me copia una fila y se bloquea el programa Les agradezco su ayuda Un cordial saludo Set h1 = Sheets("Creditos") u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 For i = 0 To ListBox1.ListCount - 1 h1.Cells(u, "A") = ListBox1.List(i, 0) 'Cantidad h1.Cells(u, "B") = ListBox1.List(i, 1) 'Unidad h1.Cells(u, "C") = ListBox1.List(i, 2) 'Descripción h1.Cells(u, "D") = ListBox1.List(i, 3) 'Factura …

Necesito enviar al libro2 hoja banco a través de una consulta sql todos los pagos de los meses de enero a marzo mayores a 0 de la tabla Rel de igual forma a libro2 hoja pagos de la tabla Pagos de los meses enero a marzo los impuestos mayores a 0 Como hago para consultar las tablas y moverme los los recordset con un solo do while y no repetir el do wile por cada consulta que haga. Gracias de antemano. 'Conexion sqL = Select fecha, pagado, debe from [Rel] where beetwin fecha #1/1/2020# and #31/3/2020# and debe >0 orden por fecha 'Abrir sql 'Para Hoja Banco With Libro.Hoja Uf = .Range("A1000").End(xlUp).Row + 1 Z = 0 Do while Rst.eof …

Buenas, Estoy tratando de crear citas en funcion de los datos de una hoja de excel, mi problema no es obtener los datos del excel ni nada por estilo sino utilizar correctamente los objetos para poder acceder a las carpeta no default del Outlook. Como os digo para crear citas sobre el calendario default no tengo problemas, pero sobre cualquier otro calendario es imposible. Os adjunto unos códigos... Sub SetAppt() Dim olApt As Object ' Outlook.AppointmentItem Dim olApp As Object ' Outlook.Application Dim i As Long Dim apptRange As Variant Const olAppointmentItem As Long = 1 ' create outlook Set olApp = GetOutlookApp If olApp Is Nothing Then …

Hola estimados; Soy nuevo en el foro, ojala me puedan ayudar con lo siguiente: Necesito que varios usuario puedan ingresar en un archivo excel compartido en red, este archivo excel tiene formularios. Quiero que los usuario puedan ingresar/Modificar/Eliminar datos. Lo ultimo que les menciono ya lo he logrado. Solo me falta que sea usado por varios usuarios a la vez. gracias de antemano a todos.

Buen día a todos; -Adjunto una macro que sí la hoja no está creada me la crea. Esto lo hace con la "Function ExisteHoja" Para que funcione tengo que nombrar las hojas como: Hoja1,Hoja2, etc... y yo las tengo nombradas de forma personalizada. ¿No sé si esto es posible?. Saludos. MHojaName.xlsm

he ingresado un calendario quisiera que al momento de seleccionar cualquier dia me despliegue una lista de horarios disponibles y una vez seleccionado ambos me permita ingresar el nombre de una persona y guardar en una tabla en un libro nuevo.saludos cal.zip

Hola amigos de Ayuda Excel Quería consultar si hay alguna opción en VBA de bloquear la opción de "ELIMINAR" una hoja en particular de un libro. La opción de proteger el libro no me sirve pues necesito que otras opciones del menú de la hoja estén activas. Gracias

Hola buenas noches, un cordial saludo y agradecimiento anticipado a todos aquellos que participan con sus aportes, gracias a ello estamos aprendiendo y avanzando en este tema de las Macros que todavía no dominamos.... Hoy deseo presentarles una Macro para imprimir varias hojas de excel (con rangos ya definidos), desde un formulario con varios CheckBox.. La idea es que al seleccionar diferentes Checkbox en el formulario, me imprima las hojas correspondientes, al mismo tiempo que guarde en la carpeta llamada "C:\RRHH", Y en un solo archivo en PDF.... La Macro estaba funcionando perfectamente, ahora me está saliendo el "ERROR, que la carpeta en mención …

Buenas tardes a todos! Tengo una base de datos de la cual necesito que mi macro busque una palabra y la reemplaza por otra, mi codigo lo hace pero el proble es que si es una palabra compuesta no modifica tod el texto es decir si tengo en mi tabla lo siguiente: 1.-velo 2.-velo 1 3.-velo 2 4.-Velo 5.-VeLo y lo quiero cambiar por la palabra VELO solo se modifican la 1,4 y 5 les envio mi codigo espero puedan orientarme Sub Reemplazar() Dim Tex As Variant, Car As Variant, Lar As Integer Application.ScreenUpdating = False On Error Resume Next Set a = Sheets("Hoja1") uf = Range("E" &am…

buenas tengo una consulta, se puede realizar en excel a nivel macro un chat pero no red normal, o algo que se le parescagracias por su tiempo espero su respuesta

Buenas noches, estoy haciendo el código de una macro y pese a que estoy consiguiendo que "funcione" no estoy contento con el código. En la macro "SumaSiFrutaVendedor" la columna de la fruta es dinámica y nos podemos encontrar que en ocasiones haya 3 productos como 10 diferentes. Me gustaría conseguir que cuando inserto la línea del "sumIfs" sea dinámica y se adapte al rango de la cantidad de frutas diferentes, lo estoy pensando, pero no veo como ahorrar líneas de la macro... Estoy empezando con el vba y ando perdido cualquier ayuda será bienvenida para seguir aprendiendo. Saludos PruebaVendedor.xlsm