Hola, buenos días a tod@s! Estoy trabajando con un libro de Excel que genero tras un código desde Access mediante VB. En este fichero, una vez abierto, quiero incluir un segmento de código que lea unos valores de texto y los vaya escribiendo, de manera vertical, en una línea. Mi problema es que la primera vez que lo ejecuto funciona y me genera un Excel tal y como lo quiero. Pero (bien cierre el informe Excel que se acabe de generar o lo deje minimizado) a la segunda vez que ejecuto el código ya no funciona y no hace nada, o bien me da el error: <Object variable or with block variable not set> ¿Alguien sabe por qué podría ser? mi segmento de código es el sigui…

Buenas noches, resulta que tengo una PC con unas 60 macros y sus respectivas fichas, grupos y botones en la cinta de opciones. Como cambié de PC, intenté exportar todo esto exportando la cinta de opciones y copiando el archivo personal.xlsb a la otra PC pero los botones no encuentran las macros porque buscan claro, la dirección antigua en la otra PC (otro usuario) ¿Cómo podría exportar de forma correcta mis macros y la personalización de la cinta de opciones a la otra PC? Les agradecería su ayuda.

Hola amigos de este foro. Deseo me orienten a crear una macro, en un boton de borrar datos deseo abrir un mensaje que alerte con la siguiente pregunta: ¡ESTA SEGURO QUE QUIERE BORRAR?¡, que el MsgBox tenga los botones ACEPTAR Y CANCELAR, les envío un archivo de ejemplo sencillo de borrar una palabra de una celda. Saludos a todos. Borrame.zip

Buenas, estoy investigando por la página web y no encuentro ningún ejemplo de macro que desglose lo que necesito. Trabajo desde una carpeta madre, digamos: "Vehículos". Dentro de la carpeta "Vehículos" tengo infinidad de subcarpetas. Me gustaría poder listar en el excel todas esas subcarpetas de la siguiente forma: En la Columna A, que aparezca a partir de la fila A2 el nombre original de la subcarpeta, no la ruta. Y en la Columna B, el acceso directo, es decir, un hipervínculo de la subcarpeta. También me gustaría tener un botón para actualizar las nuevas subcarpetas que vaya creando en esta carpeta madre "Vehículos". En resumen, necesito listar las subcarpetas de…

Buenas, a ver si me podéis echar un cable estoy haciendo una lista e la que quiero que al pulsar el nombre de la serie en mi derecha aparezca la imagen correspondiente a esta, pero como es muy larga quiero que al imagen se quede fija en el mismo punto de la pantalla, es decir que aunque baje la lista ya sea con al rueda del ratón, o la barra desplazadora del excel el cuadro de la imagen siempre este en el mismo punto de la hoja, para que cuando pulse en el nombre esta se vea situada en la parte derecha y arriba de la hoja ya sea en el puesto 1 o el 500 de la lista. A ver si me he explicado con claridad ^^U Imagen Flotante estaitca.rar

Hola amigos expertos tengo un form que contiene varios textbox y combobox quiero que se cargen los datos de estos en la hoja de excel de acuerdo a un checkbox como veran son 23 puntos de muestreo y deben cargarse solo los que se les active. El problema que tengo es que la carga es incompleta no se cargan los que elijo y hay que tomar en cuenta que los datos: Fecha muestreo, Temp/Humd, Producto, Lote y Hora son obligatorios pero los demas datos (Punto de muestreo) son opcionales tomando en cuenta si se muestrea o no se los llenará y al guardar los datos los casilleros de los 23 puntos tendrán que quedar en cero "0" porque a veces hay puntos que que dan como resultado cero.…

Tengo una tabla dinámica y quiero que se actualice el filtro por el valor puesto en una celda. Ya busque codigos que hagan esto y si existen, el problema es que mi tabla viene de PowerPivot y estos codigos no funcionan Al hacer una macro el sistema tira el siguiente codigo: ActiveSheet.PivotTables("Detalle_Cuentas").PivotFields( _ "[Cuenta_Externa].[N_extendido].[N_extendido]").ClearAllFilters -(hasta aquí funciona bien)- ActiveSheet.PivotTables("Detalle_Cuentas").PivotFields( _ "[Cuenta_Externa].[N_extendido].[N_extendido]").CurrentPage = _ "[Cuenta_Externa].[N_extendido].&[(05-002) Mano de Obra Directa]" (Esta …

Hello everyone My name is Maurizio And my problem is this: My daughter has given me a damanda here I can not answer with all my good will; Here is explained the reason for my request. The problem is this; Always taking advantage of the VBA it would be possible to take for good that in the Column (B) I can write any data in any cell; And only at this point in the previous cell to my Venga inserted automatically (today's date) I bring an example: If in the Cell (B8) of the sheet of excel I write (1936,27 €) Or the word (Dog) Nlla Cella (B7) should automatically appear on today's date. So it should happen in the cell Example (B30) Write the name (Armando…

Hola amigos, saludos De nuevo por aqui, para ver si me pueden colaborar en un problema que tengo al actualizar los datos, los datos me los guarda bien, los actualiza bien , el problema lo tengo al subir una imagen , la subo bien pero no me la actualiza, la borra de la celda donde estaba, les agradezco la ayuda que puedan prestarme Saludos cordiales Prueba

Hola amigos del foro ante buenas tardes con todos disculpen espero se encuentren bien aquí escribiendo esperando puedan ayudarme tengo 02 problemas al ejecutar unas macro. 1.- En la Hoja RUC cuando ejecuto la macro "GENERA ARCHIVOS ZIP" no me sale el resultado deseado que son los datos de la columna "E" 2.- En la Hoja VALIDA CPE cuando ejecuto la macro "GENERA TXT" no me sale con la cantidad deseada que son datos de 100 en 100 y me esta arrojando diferentes cantidades a estos. adjunto mi archivo esperando me haya dejado entender gracias. adjunto el archivo pero me dice que es pesado, adjunto un link gracias. https://we.tl/t-EqX8pdb74a

Buenos días compañeros, Me enfrento a un problema complejo con VBA, el cual estoy intentando resolver pero no consigo hallar la solución. Tengo la siguiente página web: https://www.metals4u.co.uk/materials/aluminium En la pestaña "Materials", se encuentran varios materiales como "Aluminium, Brass, Copper, ..." Si seleccionamos cualquiera de esos materiales (por ejemplo Aluminium) la pagina nos lleva a todas las formas disponibles de este material (Ver figura adjunta). Para ver las caracteristicas de una forma pulsamos en "Show Details", y la pagina nos lleva a una ventana como las caracteristicas de esa forma (Ver figura adjunta) En dicha …

Buenos días y feliz año a todos. Tengo la siguiente duda que no sé si es posible configurar o no. Me gustaría conseguir que al poner un dato en el "TextBox50" del formulario "frm_Clientes" se haga una consulta a la base de datos Access "BBDD" y que el dato obtenido de la consulta se traslade a los "TextBox", (rellenando todos los campos que tengan datos en la consulta). Tengo algo parecido pero en el "TextBox60" pero este es un comboBox y me gustaría que fuese sobre un "TextBox" Adjunto macro de ejemplo. Un cordial saludo. MacroSql.zip

Hola estoy en un proyecto personal y me trabe en una macro. Esta trata de Busqueda Padron, me tira el error " Se ha producido el error '1004' entiempo de ejecucion : Error definido por la aplicacion del objeto". Private Sub TEXTO_Change() 'MsgBox "Hola" NumeroDatos = Sheets("PLANILLA").Range("Q" & Rows.Count).End(xlUp).Row 'MsgBox NumeroDatos Sheets("PLANILLA").AutoFilterMode = False Me.LISTA = Clear Me.LISTA.RowSource = Clear Y = 0 For File = 12 To NumeroDato If UCase(Description) Like "*" & UCase(Me.TEXTO.Value) & "*" Then Me.LISTA.AddItem Me.LISTA.List(Y, 0) = Sheets("PLANILLA").Cells(Fila, 1).Value Me.…

¡Hola amigos ! En otro Libro tengo el siguiente código que me funciona perfectamente: Private Sub worksheet_change(ByVal Target As Range) If Not Intersect(Range("Ak14:As18"), Target) Is Nothing Then For Each celda In Range("w25:W34") If celda.Value <> "" Then datos = datos + 1 Next If datos > 0 Then Iniciar Else Parar End If End If 'a partir de aquí quiero modificar el código para que, en lugar de ejecutar el WebBrowser4 y reproducir un GIF animado que tengo en una carpeta , dependiendo del contenido del rango W25:W34, me ejecute el control Windows Media Pla…

Buenas tardes compañeros , Ante todo quería de antemano dar las gracias a todos por la ayuda que ofrecéis diariamente. Me gustaría ver si algún compañero me podría ayudar a resolver esto, llevo atascado varios días y no doy con el fallo. En el formulario que adjunto me pasan dos cosillas: 1. Tengo datos introducidos, los cuales se cargan correctamente a través del apartado ALTA, pero cuando intento buscar, sólo me busca en un campo. Me gustaría que buscara en todo el documento cualquier coincidencia que escriba. Sugerencia : Dentro de Alta estoy buscando en el apartado HR-SP (Label24) que me genere automáticamente un registro nuevo automáti…

Saludos apreciados; Estoy realizando un codigo, donde tengo dos hojas En la Hoja "Relación", los datos que a partir del rango b4:c4 hasta abajo dentro de esas dos columnas (estos rangos varian, pueden ser 25 filas o 60 filas). se copien en la hoja denominada Bd_Bingo, en la ultima fila vacia, de la de la columna "A". De antemano gracias bingo ayuda 1.zip

buenos días, necesito vuestra ayuda llevo días buscando código para terminar un tarificador y no doy con el código. en un formulario necesito que cuando el usuario escriba en un textbox un codigo postal "05495" automaticamente "05" se pegue en una celda excel y de ahi poder hacer un buscarv y sacar la provincia de la tabla "Codigos" he utilizado el codigo Hoja1.Range("d2") = TextBox1.Value para que peque todo el codigo postal en la celda excel, despues con =izquierda() saco los dos caracteres de la izquierda y con un buscarv sacar la provincia de la tabla, pero me sale error. preferiria conocer el codigo que busque la provincia de la tabla el objet…

Hola espero que se encuentren bien, necesito ayuda para cambiar la condición de "Pendiente" a "Pagado" las selecciones dentro del listbox pago (Liquidaciones a Pagar) en la columna 13 de la hoja "Registros" cuando se presiona el boton pagar. Muchas gracias. Compra para subir - Pagado.xlsm

HABER SI ME EXPLICO.QUIERO FILTRAR DOS CONDICIONES (REPARTIDOR Y FECHA)PERO LOS RESULTADOS ME LOS MUESTRE EN OTRA HOJAPERO NO TENGO NI IDEA COMO EMPEZARTENGO ARCHIVO CONREPARTIDOR -CLIENTE -FECHA DE SURTIDO -CANTIDADY NECESITO QUE ME FILTRE POR REPARTIDOR Y FECHA PARA PODER PROGRAMAR EL PEDIDO:soap:

Tengo un problema para hacer un tabla q me arroje las horas trabajas la suma de hora de ingreso + hora de salida , lo k kiero esk es otra celda me arroje las horas trabajas x semana y tambn si podria sumar las faltas . reporte de horas.rar

Saludos amigos los molesto para ver si me pueden ayudar en algo, llevo varios dias leyendo y releyendo en muchas hojas como poder crear un registro para mi escuela y llenar la data de los chicos con todos sus datos por medio de un formulario de visual bisic, pude hacer el formulario pero no logre codificarlo y les ruego ayuda, ya que me urge para organizar la data son mas o menos 2000 chicos. Me gustaria poder registrar, buscar, modificar. Gracias mil les anexo mi proyecto ojala me ayuden gracias PROYECTO ESCUELA.xls PROYECTO ESCUELA.xls

Hola! Tengo un problema. Os explico: He creado un programa con VBA, concretamente el juego de "Tres en raya", versión para principiantes en programación. Lo he creado mediante unos 12 módulos diferentes, y en mi ordenador funciona perfectamente pero el problema está en que en otros, no. En el ordenador de mi amigo, funciona, en el de mi hermano no, en el de mi madre tampoco... y no lo entiendo, ya que no es ningun problema de lectura del codigo, ya que en mi ordenador funciona brillantemente. A los ordenadores que no les funciona pasa lo siguiente: Abren Excel, habilitan macros, y cuando van a pulsar un botón se abre automaticamente todo el VBA con todo su codigo y …

Hola a todos, quisiera que me ayudaran para poder realizar una una macro que al hacer click en un Botón de Comando que esta puesto en un UserForm me permita examinar el disco C: y de este escoger un documento cualesquiera y adjuntarlo o importarlo o por ultimo grabar el path en un TextBox. Saludos a todos nuevamente.

Hola, Lo que necesito hacer quizás sea complicado, pero no encuentro nada de como poder hacerlo. Tengo varios documentos de texto con cierta información. Siempre el mismo formato, en cada línea este texto solo cambian los 3 valores que es están entre comillas al final. Estos 3 valores son los que se deben cargar, cada uno de ellos en una celda diferente. Lo que tengo es una macro que genera estos archivos con estos textos, pero con esto necesitaría hacer el efecto contrario, pasar de los archivos a las celdas. Por ejemplo, tengo estas dos líneas en el TXT. INSERT INTO tabla-01 VALUES (Unidad, Tipo, Descripcion) VALUES (tabla-01) SELECT Unidad FROM tabla-02 WHERE Un…

Hola....Tengo una lista con dos columnas en excel 2007, en la columna A tengo una lista con muchos nombres de sucursales, en la columna B tengo datos aleatorios.....quiero que a un costado exista de la lista exista un boton que al presionarlo se generen archivos excel por separados con nombre de cada sucursal y que en el interior de cada uno de estos archivos aparezca en una celda especifica, el dato aleatorio que le corresponde a cada sucursal. Gracias