Hola buen dia. Es priemra vez queparticipo en algun tipo de foro. Busco ayuda con un formulario, que diseño uno de los botones no hace loque deberia segun yo. Explico: Una vez Abierto el archivo filtro en la celda T con titulo Assigned to El nombre de Nancy Urrieta. Selecciona la celda A7 y doy clic en boton Details Oprimo boton Nex Inv > esto despliega la info de la misma persona de las celdas activas y funciona bien Cuando oprimo el boton Assigned to, no regresa Deseo que cuando oprima Nex Inv haga lo que ya hace pero de donde se quede la celda activa pueda con el boton < Prev Inv regresar y despliege los datos. He utilizado Range(Selection, Select…

Hola a tod@s, He creado un codigo para poder modificar los datos de mi tabla y mi listbox. El codigo funciona bien pero el problemas es que me crea un duplicado del registro al modificarlo. Saben porque me sucede esto? Saludos, 111.xlsm

Hola amigos, Estoy intentando que el color de fondo de un ToggleButton cambie de color según si está pulsado (verde) o no (rojo). He probado varios código que he encontrado en la red, pero no lo he conseguido. Además de eso se me produce un efecto no deseado con el contenido. Si pulso el botón en el formulario me muestra "Alta" y si no lo pulso muestra "Baja". Hasta ahí correcto, el problema es al grabar cambios, en la correspondiente columna de la hoja de cálculo guarda "VERDADERO" y "FALSO" y al volver a ejecutar el formulario me muestra precisamente eso, en lugar de "Alta" "Baja". Agradezco vuestro tiempo!! Trabajadores.xlsm

Buenos días a todos; -Con la macro que adjunto paso el valor formateado con dos decimales a la celda pero veo que si voy a la barra de fórmulas me siguen apareciendo más de dos decimales. Hay alguna otra solución? Me interesa que solo sean dos decimales porque después estos datos los paso a Access y me está cargando todos los decimales. Saludos Formato.xlsm

Hola Expertos hace un tiempito me ayudaron con un código para contar Filas de ListBox y mostrar en un Label funciona bien pero sólo al iniciarce el form pero quice hacerlo cada vez que cambie los datos de listbox que se cargan de una hoja los mismos que provienen de un filtro, puse el código en el evento change del listbox pero no funciona no me cuenta al rato que cambia los datos en el listbox sino, y desde o con el evento change del formulario me toca cada vez estar cerrando y abriendo el form para que se actualice el recuento. Muchas gracias si me pueden dar una guía, les dejo el archivo para que tengan idea lo que quiero hacer. Copia de ContarDatosListBox (1).xls

Hola a todos, mi nombre es Maurizio y mi nuevo problema es este Es posible, en su opinión, poder obtener un menú desplegable de selección múltiple ¿Aprovechando una "validación de datos"? ¡Si si! ¿Cómo se puede lograr esto usando siempre vba? gracias Traslation : --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Hi everyone, my name is Maurizio and my new problem is this. It is possible, in your opinion, to be able to obtain a multi-selection drop-down menu Taking advantage of a "…

Hola y buenos días a todos; He empezado a crear una macro que me permite crear un archivo .txt pero no sé como continuar. Quiero conseguir que los datos almacenados o filtrados inclusive los que vaya seleccionando con el ratón en el listbox del frm_Cobros los pueda capturar y poder exportarlos al archivo .txt generado. Adjunto macro y video: https://youtu.be/bVO7f-JZuSg Saludos. ExportarTxt.zip

Private Sub Capitulos_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Set cat = Worksheets("tablas") t = Me.Capitulos.ListIndex + 1 r = 6 Do While cat.Cells(r, 3) <> "" If cat.Cells(r, 2) = t Then nc = cat.Cells(r, 3) Exit Do End If r = r + 1 Loop nomarea = InputBox("Cambio de Nombre a : " & nc, "Modificaciones: Areas de Seguimiento") If nomarea = vbNullString Then MsgBox "Cancel" Else 'Aqui me manda error Me.Capitulos.List(t - 1, 0) = nomarea MsgBox "Acepto" End If l = Len(nomarea) End Sub Quiero renombrar el Item del List Bo…

Buenas tardes, expertos por favor me pueden ayudar tengo un formulario que fuciona perfectamente los botones nuevo, registrar, eliminar y salir; pero en cuanto modificar me funciona raro cuando selecciono una fecha dentro del combobox la "X" me imprime en la fila de los titulos, antes que insertara el control combobox si funcionaba el boton modificar perfecto, este codigo adjunte al en modificar: If cmbFecha.Text = Hoja1.Range("P4") Then Hoja1.Cells(Fila, 16) = "X" ElseIf cmbFecha.Text = Hoja1.Range("Q4") Then Hoja1.Cells(Fila, 17) = "X" ElseIf cmbFecha.Text = Hoja1.Range("R4") Then …

Buenas Noches, Me gustaria puedan apoyarme con el siguiente adjunto, en el cuento con un userform, en el cual completo todos los datos y van a sus respectivas columnas, y si selecciono un combobox este debe ir debe ir en la fila "L" pero no se como hacerlo . Por otro lado, este combobox tiene los mismos nombres que las pestañas por lo que al seleccionar deberan copiarse también automáticamente a sus respectivas pestañas siendo solo las columnas J, I, A, C, G,H, de la hoja Ordenes siempre en la primera fila vacía que se encuentre. Agradezco su amable atención, Saludos, GENERAL ORDENES 2014 - EJEMPLO.zip

Hola a todos, Tengo el siguiente problema: He creado un formulario para grabar contactos dentro de una hoja de datos llamada "CONTACTOS" y cada vez que introduzco algún dato incorrecto, de manera alguna el formulario vuelve a grabar el mismo registro tantas veces como haya fallado dentro de la hoja de datos. Muestro por aquí mi formulario... Como se puede observar en la imagen adjunta, tiene un casillero inicial para elegir el tipo de contacto ("Proveedor" o "Cliente") y el resto de los datos están dispuestos en modo multipágina. "Denominación" para grabar los datos fiscales, "Domiciliación" para los datos de localización y "Comunicación" para los dat…

Tengo la siguiente macro, y cuando quiero copiar los datos, no sé las filas que habrá.. he estimado 55 filas, pero si son menos, me inserta datos vacíos.. he incluido que me diga el número de filas, para conocer el número exacto. Como puedo poner el rango sin conocer la última fila, y que inserte las filas que tengan datos. Sub BorrarDatos() 'primero borro los datos de la hoja Sheets("macro").Range("A2:B55").ClearContents Sheets("macro").Range("D4:F55").ClearContents Sheets("macro").Range("I4:L55").ClearContents 'copio datos de la hoja datos, es la hoja que he tenido que sale del programa milena, tengo que copiar Sheets("datos").Range("A2:B55"…

Buenos días, tengo una aplicación donde se van acumulando los datos de las facturas a clientes, aquí en Canarias tenemos que presentar a hacienda un modelo (415) informativo donde se les dice la suma por cliente de todo lo facturado por año. Estoy intentando hacerlo pero no me sale, lo que quiero es que me haga la suma de los importes ( Honorarios - IGIC- Total) por el cif del cliente y me lo ponga en otra hoja. Os adjunto lo que he hecho hasta el momento por si a alguien se le ocurre la forma correcta de hacerlo Mil gracias de antemano sumar por cif.xls

Hello everyone my name is Maurizio and first of all I would like to make you mine most sincere wishes for a Happy New Year; Since for business reasons not I managed to get them first. That said, my new problem is this. on an Excel sheet in the column (B3: B200) I have entered measurements of Specific Weight; Such as "125.3 Kg" Or "94.2 Kg" etc ...! On the other hand, in the row that goes from (i1: n1) I have entered specific data; Such as: (95.0 Kg). (90.0 Kg). (85.0 Kg). (80.0 Kg). (75.0 Kg). (70.0 Kg) as Maximum reachable roof. Now my question is this: Is it possible to highlight the cells ranging from (I1: N1) in a different color if the weig…

Hola a todos: Abrir el adjunto y pulsar el botón Registrar en el formulario que se muestra.¿Porque aparece el mensaje si la condición que controla el mensaje no se cumple? Gracias anticipadas. Descuadre.xlsm

Estimados amigos, Acudo nuevamente solicitando su ayuda, he estado haciendo un archivo para que varias personas ingresen datos en su base, base a la que solo pueden ingresar con usuario y clave, apareciéndoles solo la hoja a la que están autorizados, ahora, tengo dos problemas. El primero, que no se como hacer para que todos puedan acceder a la vez a este libro, mismo que se encuentra compartido para que cada uno pueda acceder desde su computador. Y mi segundo problema es que no puedo utilizar dos userforms a la vez, ya que al momento de ingresar los datos con el userform2 accedo a una pagina con un WebBrowser, para ver si la cedula (dni) del cliente esta bien y obtene…

Buenos días Lo que quiero es proteger contra escritura solamente las celdas que en mi caso tienen de fondo el color rojo y que corresponden a festivos, sábados y domingos. Lo quiero hacer a través de una macro porque esas celdas cada año van cambiando de sitio. Lo he intentado a través de macros de otros foros, pero al pegarlas en Visual Basic, o bien no me funcionan o se me pone en rojo, como si faltara algo o fuera incorrecto. Debo estar haciendo algo mal, debido principalmente a que en el tema de programación de macros soy inexperto, así que por favor si me podéis indicar los pasos a seguir a nivel de principiante os lo agradecería. Adjunto el archivo en …

Saludos a todos En el archivo que adjunto, tengo la hoja datos donde tengo un registro de movimientos, en la hoja anual en columna AyB pongo los datos manual, lo que deseo es que me busque de A2:A? el id en la hoja base columna E, que verifique que el estatus sea operado, si es así, regresar a la hoja anual y buscar la fecha y traer de la hoja base los datos de las columnas C, D y M, en algunas fechas puede tener varios movimientos por ejemplo id 6580, 6582, en caso de que el estatus sea rechazado no se debe registrar en la hoja anual. Agradezco de antemano su ayuda y/o sugerencias Saludos Ejm080420.xlsm

Al ejecutar esta macro sobre los datos de la hoja1 funciona perfectamente, sinembargo requiero modificar la coneccion o asignacion de variables deforma que al convertir los datos de la Hoja1 en una Tabla Ver Hoja"TABLA" a la que denomino por el administrador de nombres "TDatos" sea posible ejecutar la misma consulta. anexo la consulta inicial sobre los datos de la hoja1 que entrega el resultado en la hoja2 " Sub ConectarExcel()" y abajo la correspondiente sobre los datos en la hojaTabla en la que el mensaje es que no encuentra el objeto "TDatos". el archivo es Xls dado que no pude subir el xlsm Gracias Sub ConectarExcel() Dim Conexión As Object, rs As Object Set Conex…

Buenas tardes antes que nada agradecer por el tiempo que se toman en ayudarnos a todos con las dudas que tenemos bueno mi problema es el siguiente tengo una base de datos con códigos y descripciones y tiempo lo que deseo es sacar los subtotales de los codigos osea si tengo 3 codigos a20 me saque los subtotales y al mismo tiempo me coloque al costado los encabezados y los codigos EN SI AL INICIO ESTA ASI : A B C COD DESC TIEMPO A10 AUT 2 A A10 AUT 3 A A10 AUT 4 A A20 CTR 2 A A20 CTR 3 A A20 CTR …

Hola, tengo un libro que contiene las macros, este libro tiene varias hojas, en una de las hojas que tiene el libro copio los datos de otro libro, copio una tabla que sus celdas tienen listas desplegables, y cuando copio desde otro libro esta tabla, para que funcione correctamente tengo que cerrar el libro y volverlo abrir. Claro que cuando copio desde una macro la tabla del otro libro, una vez copiado cierro el libro de macros, luego no puedo abrirlo desde esta macro. ¿Hay alguna forma para que se pueda guardar los datos una vez copiado, cerrar el libro y volverlo abrir, para que todo funcione bien? ¿O hay alguna instrucción con la que se pue…

Buenas tardes, perfecto la macro que me ha ayudado Riddle : Sub Imprimir_Vistaprevia_seleccion() 'preparar la hoja para la impresión With ActiveSheet.PageSetup .Orientation = xlLandscape 'xlPortrait es vertical xlLandscape es horizontal .PaperSize = xlPaperA5 'formato A5 .BlackAndWhite = False 'incluir colores o no .FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho) .FitToPagesTall = 1 'reduce el tamaño de la hoja (alto) .CenterHorizontally = 1 'centrar horizontalmente .CenterVertically = 1 'centrar verticalmente End With Selection.PrintPreview End Sub una vez configurada en tamaño, doy a imprimir y perfecto. Pero necesito la alternativa de guardarlo…

Buenos días a todos: Requiero de su gran ayuda para poder unir varios archivos PDF en uno solo, anexo un ZIP en donde están los archivos PDF y una hoja de Excel y GRACIAS por la ayuda que se me pueda dar.

Buenas tardes, tengo un formulario con un listbox que muestra datos de otro libro, también tiene un botón modificar, eliminar, pero me falta agregar un buscador, lo he intentado hacer pero me sale error, necesito de su ayuda, espero me pueda ayudar de antemano muchas gracias baseprueba.xlsx InicioPrueba.xlsm

Hola a todos los amigos del foro, nuevamente recurro a ustedes los expertos a que ayuden con el siguiente caso: En el formulario que les subo de ejemplo deseo que al usar la función "Buscar", el botón de "Ingresar" se inhabilite, bloquee, o no permita que el dato buscado, por error se ingrese nuevamente o duplique Quedaré muy agradecido al amigo que me ayude. Les saludo. Elmo Rodríguez Form Ejemplo.zip