Existe la manera de que al momento rellenar los campos de búsqueda, busque al presionar algún botón llamado búsqueda y no que lo haga automático, ya que al momento de ser automático y tener muchos datos se pega o se demora mucho . Solo si puedes ayudarme @Antoni ya que tu conoces el tema. PRUEBA - copia.xlsm

Amigos, tengo esta planilla (adjuntada) con una macro en la cual la idea principal es buscar los folios (en 10 archivos distintos) y arrojar la información de la fila asociada al folio en esta planilla, el problema de esta planilla es que tengo seleccionar manualmente el archivo origen (10 planillas), la idea principal es que se pueda realizar esta búsqueda con las planillas de origen cerradas (osea sin necesidad de abrirlas manualmente), alguien me podría ayudar? de antemano muchas gracias. Buscar11.rar

Amigos de Excel. Por favor una ayuda. Hay una hoja de Excel como "Libro Diario de Contabilidad" 3 Columnas......... INGRESOS -- EGRESOS -- SALDO Formula: =F2+D3-E3 Hasta la fila 200 Quiero pasar esa formula a VBA con ese rango que cubra hasta la fila 200. Y que cuando se ingresen datos y haga la operación, y la siguiente celda no reciba ni Ingresos ni Egresos, quede entonces vacía. porque formular todo el rango y que rellene todo el rango con el mismo resultado de la ultima operación, no es agradable Gracias anticipadas.

Buen día, Llevo todo el día intentando solucionar el error de 1004: no se puede copiar la hoja " sin ningún éxito, hice la prueba copiando otras hojas del libro y me lo permite pero no entiendo porque no me deja copiar y pegar la hoja "Portada". Espero me puedan ayudar, por favor. MacroCampañas.xlsm

HOLA BUENAS NOCHES! DE ANTEMANO AGRADEZCO SU APOYO, AL NO SER EXPERTA EN EL TEMA DE MACROS ME VEO EN LA NECESIDAD QUE ME APOYEN CON ESTA PLANTILLA PARA OPTIMIZAR LAS ACTIVIDADES DE MI TRABAJO. ESTOY TRATANDO DE MODIFICAR ESTE LAYOUT PERO ME MARCA UN ERROR 13 EN TIEMPO DE EJECUCIÓN , NO COINCIDEN LOS TIPOS. LES ANEXO CAPTURA DE PANTALLA Y EL ARCHIVO. AGRADEZCO SU APOYO SALUDOS!! Libro1.xlsm

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…

Saludos amigos espero estén bien En la actualidad los datos provenientes de los TextBox 5, 6 y 7 se guardan en las Columnas H, I y O de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) sin embargo cuando el texto es abundante no se visualiza completamente en las celdas correspondientes de allí que necesito que cada fila se ajuste al tamaño de la celda que contenga mayor cantidad de texto para lo cual he probado con la siguiente macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireRow.AutoFit End Sub Sin embargo, dicha macro coloca todas las filas del tamaño del texto que contengan y lo que en realidad necesito es que dicha macro solo se a…

Un saludo a todos. Este es mi primera consulta e igual no esta bien ubicada, espero que si. Tengo una hoja que es un resumen global. Tiene datos variados que debo registrar en diferentes tablas para ver las evoluciones y analizar datos. Obviamente a mano es factible, pero entre los formatos extraños y que son 2 por semana me parece tedioso y quisiera automatizar el proceso lo más posible. Se que web scraping facilitaría las cosas, pero aún no veo haciendo eso y aunque se que la consulta puede resultar algo genérica espero que al ver la tabla de ejemplo alguien me pueda dar alguna via, o al menos sugerir, para ir avanzando en esta tarea. Gracias …

Hola buenas a todos. Hace unos cuantos días estoy intentando trabajar con datos filtrados porque necesito que los datos filtrados en la columna A (No. Pre Factura) quisiera que se concatenaran, he probado varias formas, pero por desconocimiento no he logrado nada, cuando lo intento me concatena todos los datos estén visibles o no. Lo mismo con las columnas G, I, K, M, O, Q (COD1, COD2, COD3, COD4, COD5, COD6) que busco la forma de unir todos los códigos iguales y que me sume sus respectivas cantidades probando con tablas dinámicas, con la función subtotales, pero igual no lo he logrado. Les agradecería si me ayudaran a resolver mi problema. Gracias Dejo aquí el docum…

Buenos días, tengo una macro que me permite ingresar imágenes en la columna B según los nombres que están en la columna A. Pero ahora quiero agregarle una opción para que sean 2 columnas distintas y las imágenes justo en la columna al lado de los nombres. For i = 2 To Range("A" & Rows.Count).End(xlUp).Row arch = Dir(ruta & Cells(i, "A") & ".*") If arch <> "" Then With Cells(i, "B") Estas son las líneas de la parte de las instrucciones que deseo modificar, pero no consigo que funcionen agregando la columna C como ubicación adicional de los nombre y la columna D para que coloque las imagenes correspondientes.…

Hola! Estoy intentando hacer lo que explico en el adjunto. Ojalá me podáis ayudar Saludos Pregunta.rar

como puedo modificar este codigo para que me deje un numero de los que se repiten Sub Eliminar_repetidos() Dim Mat, Q%, i%, R%, j%, Dic, Rng As Range, Valor, iniTime! iniTime = Timer Set Dic = CreateObject("Scripting.Dictionary") Mat = Range("A1:SX42"): Q = UBound(Mat): R = UBound(Mat, 2) For i = 1 To Q For j = 1 To R Valor = Mat(i, j) If Valor <> Empty Then Select Case Dic.Exists(Valor) Case True Set Rng = Union(Dic(Valor), Cells(i, j)) Case False Set Rng = Cells(i, j) End Select Set Dic(Valor) = Rng End If Next Next Application.ScreenUpdating = Fa…

Hola buenas, tengo una plantilla que me gustaría imprimir con un codigo a modo de contador, para pasar a la vez siguiente hoja

Hola adjunto una simulación de como aumentar un formulario arriba, abajo, derecha e izquierda por medio de unos botones. Es lo que se me ha ocurrido, no se si vosotros sabéis de alguna otra opción ¿? También preguntar si es posible hacer esto mismo con las teclas del propio teclado ¿?. Lo que si es importante es que siempre haya un procedimiento para recuperar tamaño y posición inicial. Saludos a todos y todas. MTamaño.xlsm

Tengo el siguiente código que es un boton de modificar campos en el formulario, el detalle es que al modificar o cambiar información solo muestra la de la primera linea de cambio no entra en la segunda, que requiero para poder modificar en dos campos o mas la información: Private Sub cmdModificar_Click() Dim FILA As Object Dim LINEA As Integer Dim ValorBuscado As Integer Dim I As Long ValorBuscado = Me.txtNo Set FILA = Sheets("AMPARO").Range("A:A").Find(ValorBuscado, Lookat:=xlWhole) LINEA = FILA.Row Hoja1.Range("J" & LINEA).Value = Me.txtEstatusP.Value "Hago una modificación y se mues…

Buenos dias, podrian ayudarme con lo siguiente: necesito un macro que copie un archivo pdf mediante su ruta, a continuacion yo la pegare manualmente a Webwhatsapp en otras palabras que el macro copie el archivo y lo tenga ahi hasta que yo lo pegue a donde corresponde, he encontrado varios pero unicamente copian de una carpeta hacia otra y las he modificado pero ninguno me ha funcionado.

Buenos dias. He hecho un formulario y me da error. Me podeis ayudar Gracias

hola, tengo un formulario que al introducir la fecha de nacimiento te da la edad en un textbox (ese codigo me lo facilitasteis y genial) ahora lo que quiero es que cuando se pinche un checkbox coja la edad del textbox y busque en la hoja excel la edad y asigne la tarifa que le corresponde. he puesto un codigo pero la variable "Fila" da error en "No coincide los datos" necesito vuestra ayuda para que me digais que estoy haciendo mal. gracias. adjunto fichero. Calcular_Edad (1)_ayudaExcel.xlsm

Buen día, soy novata en macros, pero estoy realizando un proyecto en el cual realizo exámenes para distintas areas de mi trabajo, realicé un examen de falso y verdadero, coloqué un botón en el cual oculta filas y columnas con calificación y respuestas, al presionar el botón añadí una contraseña para que sólo una persona pueda hacer divha acción, el problema es que al poner la contraseña me acepta cualquier dígito incluso si solo pongo aceptar en el recuadro. Este es el código. Que me falta? Private Sub CheckBox1_Click() Dim respuesta respuesta = InputBox("Introduce el password ", "Password") If LCase(respuesta) = "…

Saludos, Tengo formulas en varias celdas que se alimentan de una Tabla llamada TablaSubAlim la cual reside en el mismo Workbook.. Sin embargo ahora he tenido la necesidad que esta tabla se alimente desde una Tabla que está en Access. Con este código logré hacer esa conexion de manera automática. 'Private Sub Worksheet_Activate() 'Application.ScreenUpdating = False 'Dim l As ListObject 'Dim q As QueryTable 'Dim s As String ' ' ''CONEXION A LA BASE DE DATOS 'Cells.Delete 's = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Jet OLEDB:Database Password="" ;Data Source=" 's = s & "\\DATABASE_TABLASUBALIM\DatabaseTablaSubAlim.accdb" …

Saludos a todos, tengo la variable ultimafila en una macro que me cuenta los campos en un rango para luego mostrar en un mensaje cuantos se van a generar, desde 1 hasta la variable, sin embargo el rango que está leyendo está formulado y me toma las formulas como campo aunque esté vacío. Necesito que solo me cuente las que tienen información así todas tengan la formula. Agradezco la ayuda 'la variable ultimafila está contando los campos con formula, así esté vacío, necesito que solo cuente los que tienen info ultimafila = Sheets("Tabla").Range("B" & Rows.Count).End(xlUp).Row Pregunta = MsgBox("Esta seguro de generar todos los recibos ?",…

buen dia tengo el referente codigo y quiero agregarle tambien que valla organizando por año pero que no me lo adicione a la hoja de excel solamante que sea referencia para organizar gracias.... e organize y adicione la fecha que es dia y mes pero no el año que solamante sea por codigo gracias envio codigo..ya organiza pero quiero ingresar el año Organizar.rar

Buenas tardes, de abte manos muchas gracias a la comunidad por la ayuda quisiera seleccionar la ultima celda con datos y copiarla para posteriormente pegarla en una hoja nueva, este es mi codigo Sub Copiar_Valores_Contabilidad() Sheets("Extraer_Rutas").Select For i = 2 To Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.Range("A" & i).Select Selection.Copy Next Sheets("Rutas_Fs").Select ActiveSheet.Range("A2").Select ActiveSheet.Paste End Sub …

Hola foreros, gusto en saludarlos nuevamente, espero puedan ayudarme por favor a optimizar la obtención de datos que vienen desde varias hojas que tienen la misma estructura, el problema es que algunas tienen 3 filas con datos, otra puede tener 2 ó 1 fila con datos, entonces entiendo que con una macro es posible recorrer filas con datos... si lo encuentra ... lo copia y pega en hoja "compilado_HOJAS" quedando ésta como una tabla resumen, el resultado final de cómo debería quedar lo que necesito se muestra en la hoja "compilado_HOJAS", son muchas las hojas desde donde necesito obtener la información, para este ejemplo dejé solo algunas, espero haberme echo entender, pero…

Buenas tardes, entro a la zona de macros porque imagino que será la solución a mi problema. Tengo un archivo con listas "encadenadas", dependiendo del lo que elija en la columna 1 me salen las opciones para la columna 2 y, de igual modo, dependiendo de esta última las opciones de la columna 3. Me gustaría que al borrar, o cambiar, el contenido de la columna 1: se borraran los datos de las columnas 2 y 3. Igualmente, que al borrar o cambiar el contenido del desplegable de la columna 2, se borrara el contenido de la columna 3. Ayer conseguí hacerlo (y no lo he guardado 🙈) para una fila, pero si quiero que sirva para todas ellas... no doy con la solución.…