Hola, a todos estoy tratando de crear un formulario algo simple en la cual ingreso datos en textbox, y lo visualice en un listbox a traves de un boton que dice agregar, y que todos los datos agregados en el listbox, lo guarde en una hoja a traves de otro boton que dice guardar. pero en el combobox que tengo y son dos se pueda agregar datos desde las celdas de la hoja2. tengo otro formulario que tiene 3 combobox, que busque por fecha, codigo, nombre, indempendiente de cada uno y lo muestre en el listbox cuando precione el boton buscar. de antemano muchas gracias. estare pendiente a los resultados guardar datos.zip

Estimados En un formulario tengo varios textbox con evento exit, se comportan como tales, es decir el código corre una vez ingreso un dato y doy el enter, sin embargo uno de ellos cuyo código es similar a otros: Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox10.BackColor = &HFFFFFF 'Blanco Me.TextBox13.BackColor = &HFF& 'Rojo Me.TextBox13.SetFocus End Sub Se comporta como si fuera evento enter, es decir no recibe el Foco y ejecuta los códigos antes del ingreso de los datos, además con el enter no ingresa el dato, debo hacerlo con el cursor, pasando a otr…

Muy buen día, tarde, noche. Quisiera me pudieran orientar en algo que no logro resolver. Lo que quisiera que me ayudaran es en insertar un commandbutton en una hoja de excel, pero a través de código VBA. Por lo general lo que hago antes de venir aquí es hacer una grabación de macros para ver el código, y el resultado que me ha dado es el siguiente: ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, Left:=668.25, Top:=9.75, Width:=72, Height:= _ 24).Select Pero esto no es lo que necesito, pues lo que quiero hacer es que al momento de crear el botón de comando, ya venga definido el n…

[sOLUCIONADO] Error '5' en Tabla dinámica con datos externos. ¡Hola! Tengo el siguiente problema con una tabla dinámica, espero me puedan ayudar. Tengo un documento llamado “LibroConConexion.xlsx” que contiene un vínculo de datos al libro “01620.xls” ambos ubicados en C. Desde un libro actual cualquiera, la macro en VBA abre el “LibroConConexion.xlsx” y llama a la instrucción que crea una tabla dinámica basada en su conexión de datos. Pero obtengo el siguiente mensaje "Se ha producido el error '5' en tiempo de ejecución: Argumento o llamada a procedimiento no válida". Al seleccionar depurar, me muestra en amarillo toda la instrucción que contiene la TablaDinamica y si …

Buenas tardes Tengo un textbox que al cambiar va a la hoja busca un dato y lo pone en un label; sin embargo me busca cualquier parte del dato. Me explico, si en la base de datos tengo valores que empiezan por el mismo valor busca cualquiera que tenga ese dato y no el dato exacto. Por ejemplo tengo en la base de datos el 10012 y luego 1001, si dígito 1001 el resultado que voy a obtener es el de 10012, ¿como hago para que me busque el dato exacto que dígito en el textbox?. Por favor ayuda... Private Sub TextBox1_AFTERUPDATE() If TextBox1 = Empty Then MsgBox "Por favor digite codigo a buscar" Exit Sub End If CLIENTES.Select busqueda = TextBox1.Value Set rang…

Hola a todos, Antes de nada os felicito por facilitarnos a todos nuestras jornadas con excel. Os comento mi problema: Quiero conseguir filtrar de una columna entre una fecha con su hora y otra fecha con su hora. Para esto he optado, tras consultar por muchas paginas, por transformar la fecha en formato long y la hora en formato double, esto mismo es lo que le paso a la funcion Autofilter en su campo "criteria" y se supone que tendria que funcionar. Tras ejecutar el código el resultado está vacio. Investigando en el propio excel, depurando, para ver que es lo que ha filtrado (me voy a filtrado entre fechas y veo que hay escrito) y aparece que le falta la "coma"…

Hola buenas tardes, el dia de hoy vi un foro en donde marco antonio nos adjuntaba una macro muy util sobre enviar una hoja de un libro de excel en el cuerpo del correo. "CÓDIGO: Worksheets("Hoja1").Activate With ActiveSheet.MailEnvelope .Introduction = "Te adjunto la información que me solicitaste." & vbCrLf .Item.To = "[email protected]" 'Destinatario .Item.Subject = "Asunto" .Item.Send 'Enviamos el e_mail End With End Sub" este codigo me presentaba un problema y es que me arrojaba un error cuando lo corria por segunda vez, me tocabab cerrar el archivo y volverlo a abrir para que funcionara, esto lo corregí guardando el libro una vez finalizada la macro,…

Buenos días Recurro como siempre a su ayuda para lo siguiente. Lo que necesito hacer es una macro para que al guardar el archivo me haga una validacion de la columna E, indicando que no pueden dejar en blanco E4, E5, E6 y E8, etc,. Que obligatoriamante los deben seleccionar de la lista, y poner en color rojo las celdas que hacen falta por llenar este dato y no me permita guardar el archivo. Agradezco la ayuda. subo archivo de ejemplo, gracias. Validacion antes de guardar.rar

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

Buenos días, tengo un problema del cual no encontré forma alguna de solucionarlo. Se trata de un formulario que carga los datos en dos solapas diferentes, el problemas es que el textbox13 al cargar una fecha excel la da vuelta automáticamente. El problema es que al cargar por ejemplo 1/04/2016 (1 de abril de 2016) lo carga como 04/01/2016. Gracias por su ayuda y saludos. problema fechas.rar

Buen día, desde ya muchas gracias por su colaboración. Estoy tratando de leer o capturar la información contenida en el nodo Invoice que se encuentran en la sección CDATA del xml adjunto pero no lo consigo, he tratado con varios códigos pero ninguno me ha resultado por lo cual agradecería su valiosa ayuda con un pequeño ejemplo con cualquiera de los campos del nodo Invoice del xml adjunto. El ultimo código con el que intente es el siguiente: Sub My_Example_Test() Dim sXml As String sXml = "<Root><SomeData>foo</SomeData>" & "<SomeCDATA><![CDATA[< src=""C:\Users\HP\Desktop\ad08301097230342100195863.xml""/…

Por mi trabajo Tengo un Excel para llevar una aseguradora. Quiero copiar de las hojas enero pasando por febrero y hasta diciembre, desde la fila A16 hasta la fila AB16 si se da la condición que en la celda B16 NO ESTE VACIA y la celda C16 SI ESTE VACIA. Luego baja a la siguiente columna y hace lo mismo, hasta que no se de la condición. "es decir hasta que ya no haya más clientes" Esto que copia lo tiene que pegar en la hoja Cartera en las mismas celdas sin que quede espacio entre filas. En definitiva lo que quiero hacer es que los clientes que están divididos por meses, queden en la hoja Cartera cuando se ejecute esta macro. "porque entiendo que esto tiene que se por …

Buenos días: Intento copiar en una nueva hoja una serie de datos cuando estos cambian: En la Hoja1, tengo cuatro columnas con NUMERO, APELLIDOSYNOMBRE, FECHA y SEMANA. Los datos están ordenados por SEMANA. Necesito copiar en una hoja nueva llamada "SEMANA_X" los datos de cada semana por separado, es decir: En una nueva hoja llamada "SEMANA_01", copiar los datos de todas las filas de la columna SEMANA con el valor 1; en otra nueva hoja llamada "SEMANA_02", copiar los datos de todas las filas de la columna SEMANA con el valor 2, y así sucesivamente hasta que no haya datos en la columna SEMANA. Me he metido en un bucle con do while y for next...con i…

Muy buen día estimados compañeros, Escribo en esta ocasión, ya que no logro encontrar la respuesta a mi necesidad, por lo que recurro a este grandioso foro. La situación es que necesito crear una copia de un libro de Excel habilitado para macros, que contiene macros y formularios, pero que esta copia se guarde en formato normal, es decir con extensión ".xlsx" He encontrado un post aquí mismo en el foro, donde hablan de lo mismo, pero al hacer mis pruebas con la macro para eliminar el código VBA, simplemente no funciona, y al querer abrir nuevamente el archivo guardado con formato "xlsx" da error, y me indica que la extensión del archivo no es compatible. Al…

Hola, intento centrar el texto verticalmente dentro de un Texbox alguien puede ayudarme ? Gracias a todos

Buenas gente, esot y programando una macro la cual al llegar a la sentencia : Cells(2, columna).Activate me tira: se ha producido el error 1004 en tiempo de ejecucion: error definido por la aplicacion o el objeto me seria de gran ayuda si identifican la causa del mismos. el codigo completo es el siguiente: Dim f As String Dim contadorhija As String copiado = 0 columna = 3 contadorpadre = 3 Windows("Herramienta Patricio.xlsm").Activate Cells(3, 1).Select 'ciclo recorredor de padres Do Until IsEmpty(ActiveCell.Value) ref = ActiveCell Set Fso = CreateObject("Scripting.FileSystemObject") 'suspende macro se falta una estructura If Not (Fso.FileE…

Hola Chicos; tengo echo un Acumulador, pero mi problema es que quiero que la celda que actúa, sea con una condición. Es decir, que la celda A1, haya una fórmula. y que actúe después el Acumulador. Si en la Celda A1, le meto un Valor, el Acumulador si funciona, pero quería hacerlo a través de una formula Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("B1").Value = Range("B1").Value + Range("A1").Value End If Un Saludo Teo Acumulador.rar

Alguna macro que me pueda ayudar, si recibo un archivo adjunto en mi outlook de determinados remitentes y si es posible con determinado nombre, guardarlo en una carpeta en mi PC, e ir sustituyendo el archivo en la carpeta, cada vez que lo reciba. Cabe mencionar que el archivo almacena datos diarios en una planilla mensual, es decir la intencion es actualizarla diariamente, guardar el archivo diario con el nombre del mes para irlo actualizarlo. Al cambio de mes hacer lo mismo con el siguiente. Gracias!

Buenos dias. Cree una hoja de calculo con bastantes ecuaciones / funciones, botones de comando y un checkbox. Es parecido a un sistema de facturacion donde un boton crea una nueva hoja para un nuevo dia copiando la actual y borrando ciertos datos. El problema es que, casualmente y en operaciones diferentes como abrir otro archivo o al crear una nueva hoja (dia) se redimensionan y se mueven de su lugar los botones de comando y el checkbox haciendose mas pequeños y desplazandose a la izquierda y arriba de la hoja. En ciertas ocasiones, una vez presentado este error, para el siguiente dia (un tercero) se copia bien, otras se copia con el error, y otras se siguen haciendo m…

Hola cracks! Saben si es posible ajustar el tamaño de una tabla por macro, lo que pasa es que estoy haciendo un proyecto donde se agregan eventualmente nuevas filas o se cambia por completo las dimensiones y quisiera que la tabla tomara todos los nuevos datos al correr la macro y no solo los valores fijos con los que inicialmente se definió la tabla. Les dejó mi archivo en el que es un caso donde la tabla solo considera las filas de su tamaño inicial pero no las ultimas filas.Ajustar_DimensionesTABLA.xlsm

Hola Tengo mi userfrom para escribir en la última fila y funciona bien, el inconveniente se presenta cuando a las últimas filas vacías les coloco bordes o les cambio el formato de las celdas, al insertar datos con los textbox no se insertan los datos en estas filas vacías que solo contienen bordes o formatos pero no datos. Que puedo hacer para que al insertar los datos aparezcan en las filas vacías que tienen bordes y formatos. Gracias

Hola ! Tengo un textbox control activex en una hoja porque no me deja añadirlo como control de formulario. Y cuanod abro el excel desde el webbrowser me sale este mensaje en el control y no me lo muestra. No se pueden mostrar de ninguna forma?

Buenas a todos, necesito cambiar el color de borde de la celda activa o seleccionada por defecto de Excel (2016) que viene por defecto color verde. Intente integrar una macro pero el problema es que cuando quiero imprimir la hoja cambia el color y si no es el color es el borde, de acuerdo como está programado. En cambio, con el color de borde de las celdas seleccionadas o activas que viene por defecto n el excel no altera o no afecta nada de las celdas ya sea el color del borde, color de la celda, etc.

Buenas tardes Tengo una hoja de excel donde necesito que en dos columnas haya una lista desplegable en cada una de ellas que me permita elegir varios valores a la vez. No sé si esto es posible en excel y si se puede hacer de alguna manera. Alguien me puede echar una mano? Muchas gracias.

buenas como estan, quisiera saber si alguien me puede ayudar a modificar esta macro que cuenta los registros únicos totales , pero lo que necesito ahora que solo cuente los registros únicos visibles ya que tengo que usar filtros. Desde ya muchas gracias Function contar_unicos(rngSeleccion As Range) Dim collUnicos As New Collection Dim rngCell As Range On Error Resume Next For Each rngCell In rngSeleccion collUnicos.Add rngCell, CStr(rngCell) Next rngCell On Error GoTo 0 contar_unicos = collUnicos.Count End Function