Buenas tardes, Tengo un libro con una serie de datos, nombre, compañía, teléfono, email (libro1.xlsx). Las columnas son fijas, 17 en total, pero las filas siempre varían, pueden ser 100 o 1.000 Tengo otro libro que es una plantilla en la que se debe pegar los datos del libro1.xlsx(libro2.xlsx). Las columnas del libro2.xlsx son fijas pero no son las mismas que las del libro1.xlsx ¿Qué necesito? Pegar cada columna del libro1 en su columna par del libro2 con una macro. Por ejemplo, En la columna A del libro1 tengo First Name y en el libro2 en la columna N tengo First_Name, así que debo pegar A de libro1 en N de libro2. Y así sucesivamente con cada columna. Espero habe…

Hola Necesitaría una macro que me devuelva en la celda A1 de la Hoja1 las coordenadas de la celda que estaba seleccionada al momento de ejecutarse la macro. Por ejemplo: Si selecciono la celda H4 de la hoja "Articulos" y ejecuto la macro quisiera que el valor "H4" apareciera en la celda A1 de la Hoja1 Si selecciono la celda F9 de la hoja "Facturas" y ejecuto la macro quisiera que el valor "F9" apareciera en la celda A1 de la Hoja1 Alguien podrá darme una mano? Gracias Betomen

Estimados soy nuevo en esto de las macros que he leído y avanzado mucho en lo que deseo realizar el problema es que no puedo hacer que el formulario para ingresar datos si le falta alguno no deje copiar los datos a la planilla y envié un mensaje " que falta un dato antes de copiar" o algo así intente así pero solo me entrega el mensaje falta llenar folio If Range("D12").Select = "" Then Else: ActiveWorkbook.Save MsgBox "Falta llenar el Folio", vbCritical, "DATO VACIO" Cancel = True End If Gracias por su ayuda validador de dato ayuda excel.rar

Buenas noches muchachos, ando un poco "mosca" por que resulta que una sencilla macro solamente me funciona "a veces", explico; tengo un menu contextual creado en el que una de las opciones es "pegar" (si el pegar de toda la vida) con la unica salvedad de que únicamente pega los valores (que previamente he copiado), me sale el típico "error 1004 en tiempo de ejecución" no sé que se me está pasando. Esta es la mini macro: Sub Pegar() Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub[/CODE] Gracias por estar siempre al quite, un saludo.

Buenas noches, Tengo una macro que actualmente utilizo para marcar con una "x" o no segun haga click en una celda, actualmente lo hace sobre toda la columna J como se va a ver en el codigo. Mi pregunta es como deberia declararlo para decirle que actue solo en un conjunto de determinadas celdas deseadas , Ej: "(J17;J18;J22;j28) y no sobre toda la columna como hace actualmente Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Columns("J:J")) Is Nothing Then Exit Sub If Target.Row < 2 Then Exit Sub If ActiveCell = "x" Then ActiveCell = "" Else ActiveCell = "x" End If End Sub Muchas gra…

Saludos amigos del foro, La siguiente macro abre un archivo Word con formato de hoja en pagina vertical Private Sub CommandButton1_Click() Archivo = ThisWorkbook.Path & "\Microbiologia I.docx" With GetObject(Archivo) .Application.Visible = True .Application.Activate End With End Sub Me gustaría que me puedan colaborar con lo que falta para hacer que abra con las hojas en formato de pagina Horizontal Para probarlo por favor cambiar el nombre de este archivo word con uno que tengas junto a un excel y que al inicio haya estado de manera vertical para que la macro se encargue de hacer que se haga horizontal Agradezco anticipadamente su apo…

Hola tengo un libro de facturación casi terminado pero siempre quiere uno una función más, y desde unas de mis hojas denominada "Facturar Albaranes" quiero tener acceso a una carpeta de mis Documentos "Albaranes no pagados" y quiero abrir esa carpeta desde esa hoja en concreto desde el rango (B12:B39) al hacer doble clic en cualquier celda de ese rango para tener acceso a todos los albaranes de un cliente por ejemplo. Tengo algunas macros y me funcionan muy bien, pero no puedo sacar esta. Esto siguiente va en la página pero tampoco me funciona. Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Worksheets ("Albaranes_Facturados") If N…

Hola buenas tardes. tengo un archivo que me ayuda a copiar diferentes archivos que tengo listado en una hoja de excel. todo funciona bien, pero tengo un problema, ya que dentro de mi estructura le indico que despues de hacer el copiado del archivo o archivos debe abrir la carpeta en donde se han copiado los archivos. El problema es que me abre varias veces la carpeta, según sea el número de archivos que he copiado. ejemplo: si copia 6 archivos abre la carpeta 6 veces y así según los números de archivos seleccionados. y solo necesito abrir la carpeta después de hacer el copiado. (solo mostrarlo una vez) Muchas gracias mueve archivos y a…

Hola! Me presento mi nombre es javier y soy de buenos aires, Argentina. Me encargaron hacer una macro en mi trabajo la cual debe abrir un directorio especifico y por cada archivo que abra de ese directorio buscar una palabra (en este caso la palabra seria ROFO),Cuando encuentre esa paklbara debe copiar todos los datos de las columnas en donde figura esa palbra a una archivo (consolidado). Y asi con todos los archivos que vaya abriendo, que los vaya poniendo unos abajo del otro. Estoy teniendo varios problemas con esto debido a que toda la info que encunetro me dice como abrir datos pero no como buscar una celda con una palabra especifica y copiarlos. SAgradeceria muc…

Hola buenos días, Tengo un archivo que utilizo para buscar carpetas dentro de una ruta indica. Con una parte del nombre de la carpeta busca y me da las rutas coincidentes, y con otra macro vinculo esa ruta para abrirlo. Pero me encuentro con el problema de que hay rutas que no puedo abrir, si estos tienen acentos. Mi consulta es existe otra manera de poder abrir estas rutas aun teniendo acentos. ya que tengo muchas carpetas. Muchas gracias Abrir Link.xlsm

Hola buenas tardes, En un archivo de Excel en la que tengo varias fórmulas o vínculos con otros 3 libros diferentes, deben ser abiertos al mismo tiempo, para que no se pierda el vínculo o se pueda actualizar. Con la función de woorbook open puedo abrir un archivo (nombrado en una celda), este libro se encuentra en la misma carpeta del libro actual. El problema es que necesito abrir varios archivos (3 0 4). Los archivos Los tengo listados en la columna C. Con la macro en el archivo del libro ejemplo, he podido hacer que abra los archivos que necesito. Pero me marca un error. en ella estoy utilizando For i = 2 To 4 para repetir el proce…

Estimados Amigos quería pedirles su ayuda. Resulta que tengo una planilla con muchos gráficos y actualmente se actualizan manualmente cada semana tomando las semanas anteriores y la nueva, eso hasta que cumple un año el gráfico mostrando las 52 semanas. el problema es que cada semana tengo que actualizar manualmente arrastrando en rango del gráficoa la semana siguiente. me gustaría saber si ahí forma de automatizar esto y se corra solo el rango una columna mas hacia la derecha. dejo adjunto un ejemplo. AYUDA.rar

Buen Día Mi nombre es Rodrigo Tiburcio y tengo una macro que lo que hace es que en un archivo tengo varios docuementos de excel. El boton lo que hace es que junta todas las hojas de los diferentes archivos en una nueva, el problema es que cuando la intentamos trabajar en otra computadora no corre la macro ya que esta linkeada a que solo lo trabaje en mi computadora. Private Sub CommandButton1_Click() Dim directorio As String Dim fichero As String Dim ficherodondeimportar As String Dim hoja As Worksheet Dim totalhojas As Integer directorio = "ThisWorkbook.Path & " \ " & NombreLibro" ficherodondeimportar = "import…

Hola buen día tengo un problemita con una macro , quiero hacer una agenda de citas , pero que las celdas no se modifiquen después de que ya tengan datos a menos que la cita se cancele esto supongo debe de ser con un permiso por medio de una contraseña o algo así, ojala me puedan ayudar me urge terminar esta agenda. AGENDA.xls

Hola a todos, esta vez tengo una duda, tengo una instruccion para agregar 2 columnas al final de las columnas, pero no me hace nada... me gustaria que se copiaran con el formato de la izquierda... Anexo instruccion ucol = Cells(1, Columns.Count).End(xlToLeft).Column + 2[/PHP] Gracias a todos, agradesco su ayuda! Saludos. Gerardo. ya logre resolverlo [b]TEMA FINALIZADOOOOO!!![/b]

Buenos dias: Tengo un archivo "original.xls" tipo listado con muchas filas. MAT.CONS se repite en varias filas y la siguiente columna tiene MATERIAS asociadas a ese MAT.CONS Quería conseguir con una macro que quedara como vemos en "agrupado.xls". Es decir, ver solo la fila con la primera aparición de MAT.CONS y solo en el caso de pulsar el botón + poder ver el resto de las filas. Si no me he explicado bien, puedo aclarar cualquier duda. Muchas gracias Agrupado.xlsx original.xlsx

Tengo excel con varias columnas: Fincas/Polígono/Parcela/Titular/Domicilio Se trata de una Macro que identifique los datos repetidos de la columna "Titular" y agrupe en una sola fila los datos que tenga de Finca/Polígonos/Parcelas.. en otra fila diferente. Finca Pol. Parc. Titular Agrup. Finca/s Pol. Agrup. Parc. Agrup. Titular 1 12 35 Abdon Terrades 1,5 12, 12 35, 41 Abdón Terrades 5 12 41 Abdon Terrades

Buenas Noches Varios compañeros en el trabajo queremos hacer un Fondo para que se pueda ahorrar y se puedan realizar prestamos con los mismo ahorros. me gustaría saber si hay alguna forma de tener bien ordenados los clientes que ahorran y piden prestamos, así mismo poder ingresar nuevos clientes y poder sacar totales por personas. Les agradezco mucho en lo que me puedan ayudar.

Estimados, muchas gracias por ver mi tema, el tema es que tengo una macro que me funciona a la perfección para ajustar alto de celdas combinadas pero el problema es que me funciona muy lenta, y nose como poder hacerla mas efectiva. agradeceria su pronta ayuda. La macro es la siguiente: Sub AjustarA1_A10() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim rngC As Range For Each rngC In [Reporte!H5:H14] AjustarTextoEnCeldasCombinadas rngC.MergeArea Next rngC Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub AjustarTextoEnCeldasCombinadas(rngRango As Range) 'Este sub cambiará la altur…

Hola, les consulto como crear una macro que ajuste el area de impresion del tamaño de una hoja de alto por una hoja de ancho de varios archivos de una carpeta. Lo intente con la grabadora de macros, pero no funciona. Cada archivo solo contiene una hoja con una tabla de de 7 columnas (A:G) y la cantidad de filas es variable (aproximadamente puede ir de unas 10 filas a unas 200 filas ). Esta macro la estaria agregando a otra que saqué del sitio de ron de bruin, que toma un libro con varias hojas y crea un nuevo libro por cada hoja:(https://www.rondebruin.nl/win/s3/win007.htm). Aclaro que los archivos no se van a imprimir, sino que se van a subir a un sitio …

De antemano Gracias, bueno lo que quiero hacer es que cuando cierre excel, se oculte la hoja que estaba activa al momento de salir, y se desoculte la hoja1 (por ejemplo). Les agradezco su tiempo y espero haberme explicado correctamente.

Buenos días, He creado un encabezado en un libro de excel, y de ahí tengo que copiar las columnas de otro libro de excel y pegarlas en la correspondiente columna de mi encabezado Ejemplo: Mi encabezado Servicio -Ruta-Horario y del otro libro tengo Hora-inicio-Vehiculo-Conductor Lo que tengo que hacer es pegar ese hora en Horario, Vehiculo en Ruta y Conductor en Servicio. Muchas gracias si me pueden colaborar

Hola amigos la siguiente macro la tengo en ComboBox como filtro, pero tengo dos detalles con ella espero contar con su apoyo. Cuando un articulo no cuenta con una imagen dentro de la carpeta imagenes me arroja un error y Cuando filtro un articulo por una sola palabra no lo realiza, es decir si busco la palabra cuadrada y esta está en medio o al final no la filtra, solo lo hace si esta al principio. Espero haberme explicado Dim C As Range, mPath$ Image1.Picture = LoadPicture("") Set C = Hoja8.Range("a1").CurrentRegion.Columns(2).Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlWhole) If C Is Nothing Then Exit Sub Worksheets("inventario").Visible = True W…

Hola Tengo un archivo con datos que me pasan, este tiene una numeración (columna D), pero luego tengo que agregar a estos mas datos y a su vez aumentar esta numeración, Lo que quisiera hacer en mi hoja, Buscar ultima celda con datos de la columna H, una vez ubicada bajar una fila y moverse 4 celdas a la izquierda. Y colocar mi numero aumentado según la ultima celda de antes de la columna D. En el ejemplo la ultima es 21. así que debería colocar el numero 22 o según sea el caso (Siempre aumentar más 1). esta numeración varia siempre. Muchas gracias Macro aumentar numeracion de columna.xlsm

QUE TAL ESTOY TRATANDO DE ANALIZAR UNAS MACROS DE AUTOFILTRO QUE COLGARON EN ESTA PAGINA PERO NO LOGRO ADAPTARLAS AMI BASE DEDATOS QUISIERA SABER SI UEDEN AYUDARME LO Q QUIERO HACER UNA BUSQUEDA POR CLIENTE ( RUC ) Y MUESTRE CLIENTE, EL COD ARTICULO, ARTICULO MES EN QUE SE VENDIO TRATE DFE ADAPTAR A LOS AUTOFILTROS PERO NO ME SALE ESPERO AYUDA DE USTEDES EXPERTOS GRACIAS ADJUNTO EL ARCHIVO ESPERO SU AYUDA GRACIAS AUTOFILTROS.zip