Tengo un libro excel (archivo destino) con una vinculación a otro libro. El archivo origen se actualiza cada 3 días y cambia de nombre, si bien se guarda en la misma carpeta que la versión anterior. Me gustaría poner un botón en el libro de destino, para que me salga la ventana de cambio de origen, y que yo sea yo el que pueda seleccionar el archivo que quiero. Es decir, sería como ir a "datos/editar vínculos/cambiar origen", y que se quede abierto el seleccionador de archivos de windows (si puede ser, en la ruta que siempre tengo los archivos actualizados). Gracias.

Buenas tardes, quisiera hacer una macro que con un checkbox seleccione varias imagenes y esta me las pegue en otra hoja de excel en un lugar determinado, mi duda es que como ese paso esos datos seleccionados del checkbox a la otra hoja de excel

Hola a todos: Quiero dar las gracias a este foro porque pude resolver muchas de mis dudas con respecto a macros. Mi duda es la siguiente y no la he encontrado o no la he entendido de forma correcta: Tengo una macro "sonar" que me reproduce un sonido cuando una celda "C5" tiene la palabra "Error", y funciona correctamente con el siguiente codigo. "Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) With Target If Range("C5") = "Error" Then sonar End With End Sub" Pero necesito hacerlo no solo en la celda "C5" sino en un rango de celdas por ejemplo de "C5:H5". Gracias por la ayuda

Muy buenos dias estoy intentanto realizar un excel que me permita copiar aquel rango de celdas seleccionado con el mouse. No establecidas previamente como ej: A1:K5, Sino seleccionar el rango que yo deseo. En el archivo adjunto quiero marcar con el mouse las alertas verdes y luego con la macro copiarlas y enviarlas por correo. Alertas de Servicio2013.rar

Hola amigos. por favor escribo para pedir su ayuda,creo que es fácil sin embargo estoy trancado en esto: quiero seleccionar un rango variable. es decir en una tabla seleccionar un rango que considere dos cosas: la ultima fila con datos y que en el caso de la columna esta también sea la primera vacia y que empiece justo debajo del encabezado. Es resultado de una Tabla dinamica lo pego en otra hoja para adicionarle algunos datos a esta tabla ,en la columna que esta vacia. como ustedes comprenderán esta tabla no siempre tendar determinado rango, es variable. por favor adunto al presente el libro y esta explicado en la hoja"reporte". gracias Seleccion_rango.zip

Estimados.. Buenas Tardes.. En esta oportunidad les pido ayuda para tratar de hacer lo siguiente: En el modulo de VBA, hay formulas que evaluan valores y se copian en las celdas correspondientes; para lo cual utilizo el objeto FormulaLocal y este es justamente el problema... este archivo que va a ser abierto desde diferentes terminales, con diferentes versiones de Excel.. (ingles, español y frances). Por lo que este archivo solo funciona en la PC en la cual lo estoy armando y no en todas las versiones. Estuve leyendo por ahi, y dicen que la notacion R1C1 es la ideal para este tipo de cosas, ya que es indistinto en que Pc se abra el archivo y el idioma que tenga la m…

Macro VBA seleccionar rangos de celdas de una columna hos pongo este ejemplo: Range("A3,A6,A9,A12,A15,A18,A21,A24,A27,A30,A33,A36,A39,A42,A45,A48").Select ----->pues asi hasta la 3000 como lo toy haciendo me puedo morir hasta llegar hasta la 3000, asi que igual hay algo para que valla sumando 3 o nose saludos

Tengo mi aplicación la cual se llama " Mantenimiento Personal e Insumos " lo que deseo hacer es Agregar - Modificar - Eliminar Me parece que el Agregar y el Eliminar ya están okey, pero el modificar es el que me falta, lo que deseo es que al seleccionar un ítem del Listbox y enseguida darle clic al Botón Modificar, me jale los registros seleccionados para su modificación pero no me esta saliendo, alguien me podría dar una mano por favor y si tuviesen alguna observación a la aplicación hagan mela saber por favor que soy nuevo programando. De antemano muchas gracias por el tiempo dado : PD. dejo link del excel ya que a la hora de subirlo por aqui me dice que el archivo pe…

Necesito, que me ayuden con un problema que poseo, tengo un dato en una CELDA, dicha información necesito que se seleccione automáticamente en la Segmentación de Datos, he buscado como hacerlo pero no hay mucha información, al respecto. Por favor si tienen alguna idea les agradecería.

Saludos a todos, con la siguiente cuestión, alguien sabrá algún código que me permita seleccionar solo las celdas vinculadas de libros externos. Gracias

Hola, me gustaría saber como es el comando de VBA para seleccionar todas las celdas de una hoja que contengan una palabra concreta. Lo necesito con VBA para luego enlazarlo con otra cosa. Sé hacerlo con la funcionalidad de Buscar; Buscar todas. Gracias.

hola amigos les queria pedir una ayuda, nose si es que se pueda, pero queria un ciclo for que vaya desde 1 hasta el numero de tablas dinamicas que tenga, y que en cada recorrido me seleccione la tabla dinamica 1 hasta la n, que seria el total de tablas y me aplique un cambio que seria el de hacer que no guarde los datos eliminados en origen,. bueno para que esto funcione tiene que existir algun numero de indexacion para las tablas dinamicas, lo qeu no sesi exista o no, me imagino qeu si pues si se pued con las hojas, me ayudan con el codigo? aqui dejo mi idea pero necesito las instrucciones: n = total de tablas dinamicas ' en el caso de que se pueda for i 1 to n …

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, estoy iniciandome en el tema de vba y tal, asi que intentaré explicarme lo mejor posible Tengo un boton de comando que me abre un "userform", dentro de ese "userform" hay 2 combobox y varios "label". En el "combobox1" se me abre un listado desplegable donde me aparecen los valores "azul, verde,amarillo,rojo... etc" y el "combobox2" abre un listado con los valores que van del 1 al 100, y ahora viene el problema... yo quiero que dependiendo del valor del "combobox1", me muestre SOLO parte de ese listado de valores del 1 al 100. Es decir, al seleccionar en el "combobox1" el valor "azul" quiero que SOLO me muestre los valores del 21 al 30, si selec…

hola resulta que con este codigo se crea una tabla dinamica en macros Sub PivotTable() Dim PTCache As PivotCache Dim PT As PivotTable Set PTCache = ActiveWorkbook.PivotCaches.Create _ (SourceType:=xlDatabase, SourceData:=Range("A1").CurrentRegion) Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, _ TableDestination:=Range("F1"), TableName:="Ventas") With PT .PivotFields("Zona").Orientation = xlPageField .PivotFields("Mes").Orientation = xlColumnField .PivotFields("Nombre").Orientation = xlRowField .PivotFields("Ventas").Orientation = xlDataField .DisplayFieldCaptions = False End With End Sub [/CODE] y en mi excel cree u…

Buenas, estoy tratando de automatizar un carro de compras para armarlo con macro, hasta el momento puedo abrir una web, seleccionar algún item por posición en el codigo fuente y agregarlo al carro, se que voy bien encaminado, Sub test() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Top = 0 .Left = 0 .height = 1000 .Width = 1050 .Visible = True .Navigate "https://store.channelfireball.com/catalog/magic_singles-saga_block-urzas_saga/duress/17412" Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop .Document.getElementsByClassName("add-to-cart-form")…

Buenas tardes, Tengo el siguiente problema, y no sé cómo afrontarlo: Me gustaría almacenar en una variable objeto de tipo Range todas aquellas celdas de la misma columna que coincidan con el mismo nombre de la ciudad. Por ejemplo, quiero almacenar dentro de una variable range todos las celdas de la columna ciudad que contengan el nombre ALMERIA, en este ejemplo sería RANGE(B2:B3). Dim rango as Range Set rango = RANGE(B2:B3) En el siguiente ejemplo, sería con CADIZ... rango = RANGE(B4:B7) Y así sucesivamente hasta llegar al final de la tabla. Tengamos en cuenta que los datos están ordenados, de no ser así sería más complicado...…

Saludos: Tengo una tabla ya definida con un rango de B9:I250. No importa si usas las primeras 10 o las utilizas todas siempre es el mismo rango. Yo tengo un macro VBA donde primero sorteo en una columna en particular y en orden ascendente con el propósito de colocar todas la información en orden y evitar que hayan espacios en la tabla. Luego de sortear, identifico la ultima celda escrita y borro cierta información que pueda haber en otras columnas. Por ejemplo siempre termino sorteando la columna B, si en la celda X de la columna B no hay nada escrito entonces puedo borrar la información que haya en las columnas C,D, H. Sim embargo esto lo logro utilizando la función…

Buenas, tengo una duda de si se puede hacer o no con un listbox. Quisiera seleccionar un celda de un listbox dandole click para poder editarlo. Lo único que consigo seleccionar es la fila pero no una columna en concreto

Buenas tardes Necesito una fórmula mediante vba, que seleccione una celda determinada dentro de un rango de celdas, cumpliendo una condición. Dicha condición es que el valor de que una de las celdas, cualquiera de ellas, sea inferior a 6 y siempre que otra celda, fuera del rango sea distinto de 0. Gracias

Hola amigos necesito ayuda con un archivo me super urge. Tengo un archivo con una base de datos y en el cual se van llenando y ordenando por fechas, al momento que se termina de llenar los datos de la fila que sigue despues de la ultima que se dio de alta. Se da clic en el boton que tiene una macro que se posiciona en la celda C1 y de ahi baja hasta el ultimo registro y selecciona toda la fila completa y de ahi la copia en un correo nuevo de Outlook y lo manda al destinatario del correo que ponemos en el codigo de la macro, es aqui donde necesito ayuda, ya que quiero que en ese mismo codigo en lugar de seleccionarme solo el ultimo registro que primero me seleccione la pr…

Hola a todos; Rehago de nuevo la consulta de ayer, a ver si es más fácil. En el formulario he puesto dos listBox que alimento con registros usando los botones Examinar y Examinar2 Una vez cargados los registros, ¿se puede crear un procedimiento para que nos indique los items que no se repiten en ambos listbox?, usando para ello el botón "Buscar <>". Adjunto imagen de ejemplo Una vez detectados deben quedar seleccionados. Los listBox tienen establecida la propiedad Multiselect. Imagino que tendrá que ser con algún tipo de bucle y comparar pero me pierdo un poco. Saludos. MDir.xlsm

Saludos estimados masters, deseo ayuda para cuando esten abiertos varios archivos y todos contienen una hoja llamada SEG luego de abrirlos mediante alguna instruccion o macro se seleccione la Hoja SEG Gracias

buenas tardes, Estoy haciendo una macro la cual necesito seleccionar varias combinaciones de checkbox pero me gustaría si existe algún código que pueda resumir el código ya que son muchas combinaciones. El archivo consta de 2 grupos de checkbox: Grupo1: 8 checkbox (que se pueden eligir todas las combinaciones, es decir, todos o solo 1, o 2 o 7, etc) Grupo2: 4 checkbox (Se debe elegir solamente 1 de los 4). Por tanto existen muchas combinaciones, por ejemplo: - 1 checkbox del grupo 1 con el checkbox1 del grupo 2 - 1 checkbox del grupo 1 con el checkbox2 del grupo 2 - 8 checkbox del grupo 1 con el checkbox1 del grupo 2 - 5 check…

Buenas tardes tengan todos ustedes, sin encontrar una solución a mi problema hoy acudo a su apoyo. Tengo el siguiente código que me ayuda a seleccionar varios elementos de una lista desplegable: Private Sub Worksheet_Change(ByVal Target As Range) Dim I As Integer Dim xRgVal As Range Dim xStrNew As String Dim xStrOld As String Dim xFlag As Boolean Dim xArr Select Case Target.Column Case 7 On Error Resume Next Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation) If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub If Intersect(Target, xRgVal) Is Nothing Then Exit Sub Application.EnableEvents = False xFla…