Hola a todos tengo un problemilla tengo una lista con una serie de datos, mi pregunta es la siguiente: habria alguna macro capaz de leer en la columna Ahasta donde ponga TOTAL PROVEEDOR y concatenar los datos de la columna n? Gracias a todos por vuestro tiempo y la labor de aprendizaje un saludo 01-Prueba.xls

Buenas tardes, agradezco si alguien me puede ayudar, con lo siguiente: Tengo un Excel con una tabla, donde la primera columna es un ID identificador único, luego 13 columnas que contienen links de imágenes y los dos últimos en Pdf. Lo que requiero es que, alguien me colabore con una macro que simplifique las siguientes tareas: 1. Crear una carpeta por cada ID único del listado. 2. Abrir y guardar cada contenido de los links a la carpeta ID único del inciso anterior. Gracias.

Buenas tardes estaba intentando combinar los datos de dos hojas con la misma estructura de columnas y celdas dentro de una hoja diferente, pero existen tanto datos numéricos como de texto, además de celdas vacías por que es un excel que se va rellenando progresivamente. Son dos hojas Seguimiento1 y Seguimiento 2 las dos tienen datos iguales y diferentes dado que seguimiento 2 es una actualización del 1. Quisiera poder combinar los datos tanto de Seguimiento1 como de Seguimiento2 en otra hoja, he probado varias formas pero solo consigo que aparezcan los datos de Seguimiento1 en la nueva hoja y no una fusión entre los 2. En el ejemplo pongo datos en sitios diferentes en c…

Buenas noches amigos de AyudaExcel me conseguí código de la Web para enviar la hoja activa de excel pero hay un problema o error al abrirse el inputbox para tipear el nombre de la hoja y querer cancelar la acción con el botón "Cancelar" el envío la macro no se sale y continúa quisiera que al dar cancelar se salga de la macro; en este código no se diferencia la acción de de cada uno de los botones ya que da lo mismo aceptar o cancelar. Gracias por su ayuda Option Explicit ' Sub EviarHojaEmail() ' Dim NombreArchivo As String Dim RutaTemporal As String Dim Mensaje As String ' On Error Resume Next ' Mensaje = "Estás a punto de enviar la hoja activa por…

Buen dia: Tengo el siguiente código de una tabla dinamica: ActiveSheet.PivotTables("ADPRO").PivotFields("Suma de Costo").Orientation = _ xlHidden ActiveSheet.PivotTables("ADPRO").AddDataField ActiveSheet.PivotTables("ADPRO"). _ PivotFields("Saldo"), "Suma de Saldo", xlSum ActiveSheet.PivotTables("ADPRO").PivotFields("Suma de Saldo").Orientation = _ xlHidden ActiveSheet.PivotTables("ADPRO").AddDataField ActiveSheet.PivotTables("ADPRO"). _ PivotFields("Costo"), "Suma de Costo", xlSum pero cuando requiero que se oculte el campo Suma de Saldo que es un campo calculado me saca el siguiente error: "No se puede asignar la propiedad Orientation de la clas…

buenas tardes. sucede que el libro de excel que estoy trabajando me muestra un error de "error de compilacion no se ha definido sub o function" esto sucede al momento de ejecutar el USERFORM3 por favor me pueden colaborar. USER/PASS : ADMIN/ADMIN ANTEPROYECTO=D (Correcciones).rar ANTEPROYECTO=D (Correcciones).rar

Buenas noches estimados espero estén bien Dentro del Formulario VTL (frmvtl) estan los TextBox 16, 17, 18, 19, 20, 21, 22 los cuales necesito que cuando contengan un valor cualquiera la macro los tome como 1 (TextBox<>””=1) y cuando los TextBox estén vacíos la macro los tome como 0 (TextBox=””=0) seria como usar la Función Contar de Excel, siendo así y conforme al funcionamiento de la Macro Calculo en el TextBox23 en la medida que se van introduciendo los datos el conteo o suma debe reflejarse de manera automática y simultánea en los Textbox 25, 27, 28, 29, de la siguiente manera: TextBox25 = TextBox16 +TextBox17+TextBox18+TextBox19+TextBox20+TextBox21+Tex…

Necesito completar una ficha en Excel pero utilizando un formulario de Visual. La ficha de Excel es : [ATTACH]35900.vB[/ATTACH] Lo que necesito es que la imagen se coloque en el espacio que quedó combinado entre las celdas A2 y A5, osea, necesito que la imagen quede de ese tamaño. En la parte del formulario de Visual he hecho esto: [ATTACH]35901.vB[/ATTACH] siendo el botón "Examinar" el CommandButton4 (la idea es que al apretarlo abra la base del disco de la computadora y me permita buscar una imagen y seleccionarla) y el botón "Ingresar y Continuar Fichando" el CommandButton1, que al apretarlo tendría que subir la imagen y ubicarla en el espacio antes mencionado, c…

buen dia como hago una macro donde pueda seleccionar la hoja donde se buscaría el material y en ella se colocaría el precio costo que esta asignado en la hoja resumen ubican dolo en la columna E de la hoja seleccionada y a cada material. INVENTARIO.zip

Muy buenos días para todos Espero puedan ayudarme con un inconveniente Es bien simple, tengo un botón en excel con el que abro un UserForm, en donde tengo un ComboBox Dicho ComboBox carga su lista desde un rango de celdas en otro archivo llamado Productos Esos productos tienen un código... de 7 cifras, y ahí es donde tengo el problema algunos de esos productos comienzan con 0 y el ComboBox me los anula el código que tengo es el siguiente: Private Sub Producto_DropButtonClick() Producto.List = Workbooks("Productos.xls").Sheets("Datos").Range("A2:A3408").Value End Sub [/CODE] "Producto" es el nómbre de mi ComboBox Espero me puedan ayudar. Desde ya muchas g…

Buenos días Podríais ayudarme a refinar esta macro que realice con la grabadora. Gracias Sub MetodoAbrirLibro() Workbooks.Open "C:\Users\jctorres\Desktop\pruebas partes automaticos\C2020-0138_Carga_Horas (1)2.xls" Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("A8:f78").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("Personal").Range("A8:f78").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("F2").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("Personal").Range("G3").PasteSpecial xlPasteValues Windows("P…

Amigos alguien sabrá como puedo aplicar un conteo en ves de datos del color de la celda.. gracias de antemano

Buen día solicito su apoyocon un macro o un formato condicional en el cual pueda colorear en automatico un rango determinado de celdas de acuerdo a una fecha inicial y final, dejo el ejemplo en el excel adjunto.Cronograma de salidas.xlsx gracias de antemano por la ayuda

Tengo archivos con información variable que puede ocupar más de una hoja de trabajo (1, 2, 3,...). Mediante una macro necesito lo siguiente: 1.- El número de filas (registros) que tiene cada archivo (uno a la vez) 2.- Obtener algunos indicadores estadísticos como la media, desviación estandard, el valor mínimo, el valor máximo de todos los datos (trabajado sobre un campo numérico específico) 3.- Mediante la generación de números aleatorios, recuperar la información del registro que corresponda a cada número aleatorio que se obtenga. Aunque sé que Excel no es la herramienta idónea para este tipo de problemas, la verdad es que no se cuenta con otra aplicación. Agradece…

Buenas noches, necesito vuestra ayuda con el tema de interrupciones. Tengo una macro que se activa cada 15 minutos las 24 horas del día, pero si esta es interrumpida de manera accidental se paran las repeticiones Lo que busco es algo que en caso en el que la macro se interrumpa, se active de nuevo de manera automática hasta que esta finalice el ciclo completo. Muchas gracias y un abrazo

Hola a todos, tengo una hoja exce que me gustaria que se abriera solo en los pc que yo autorice. me gustaria saber como hacer para que detecte la mac de la ethernet o serial del HHD y que esta la compare con una que yo le diga y si no son iguales que cierre la hoja excel. he estado mirando mucho y he visto como hacer para que me cierre excel y como detectar pero para que compare y haga una cosa u otra no se. este es el codigo para saber el numero de serie del HDD: Sub AveriguarNúmeroDeSerieDeDiscos() Set fs = CreateObject("Scripting.FileSystemObject") Set D = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) MsgBox " Nº DE SERIE = " & D.serialnumber …

¡Buen dia a todos! He generado de nuevo este tema de consulta ya que en el tema pasado no use las etiquetas para los codigos o formulas en los mensajes, y bueno espero esta vez este bien. Entrando en el asunto lo que pasa es lo siguiente: Los valores que se encuentran en celda “DE2” hacia abajo y hacia la derecha de la hoja: BASE, se les desea hacer un filtro avanzado con un rango dinámico (puesto que la base puede incrementar constantemente hacia abajo) para que copie los valores filtrados en la hoja: Informes de Analisis y Decision. Aunque la macro funciona, esta solo lo hace una sola vez y no lo vuelve a hacer, siendo este el error de la macro. La macro funciona as…

Lo primero, muy buenas a todos ya que este es mi primer post aunque llevo bastante tiempo leyendo todo tipo de post que me ayudan a que cada vez me guste mas este mundillo. Siempre me las he apañado para hacerme mi excel (macros,formulas,etc..) leyendo distintos post pero lo que quiero ahora ya es muy complicado para mi, espero que no lo sea para ustedes. La cosa es que para el trabajo esta intentado hacer una macro para ayudar a un compañero en su trabajo. La macro lo que haria, seria sumar letras (D,P,I...) que estaran en tablas de las mismas caracteristicas pero en distintos archivos pero todo dentro de una misma carpeta, de tal modo que al ejecutar la macro se sume…

Saludos tengo una tabla dinamica sencilla pero deseo poder modificar el "filtro de informe" desde una macro con un criterio, los años, por ejemplo que solo muestre los datos entre 2009 y 2013 pero esto desde una macro para luego insertarle esa pregunta con un inputbox y hacerlo interactivo. algo asi Sub filtro_interactivo() año2 = InputBox("Ingrese el año hasta donde quiere ver datos: ", "AÑO FINAL") ' el campo3 es la variable que va en el filtro y son años desde 2009 hasta 2019 If ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").items &lt; año2 Then ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").Items.visible=true End If End Su…

hola Expertos Como están necesito Ayuda.. Por favor.. Con realizar un puc Agrupado... para moverme libremente por las cuentas Aquí esta el ejemplo.. no importa si es en VBA Como lo harian ustedes Gracias Gracias puc cuentas.rar

Buenas tardes a todos, Quiero crear recordatorios para todos los cumpleaños de la empresa donde trabajo. Para esto tengo un listado de excel con toda la información de los empleados y a través de una macro se me ocurrió crear citas en outlook que sean recurrentes de forma anual. Logré armar el código para la creación de la cita pero el problema es que no sé como indicar el lenguaje vba que sea recurrente. Les muestro lo que armé: c = Columna con el nombre del empleado g = columna con la fecha de cumpleaños Sub EstablecerCitasEnOutlook() Dim nOutlook As Object, Cita As Object, _ Fila As Integer, uFila As Integer uFila = Range("a65536").End(xlUp).Row Set nOutlook =…

En el excel que adjunto, en la pestaña listado celda I9, pone un valor (que es variable), lo que quiero es que al darle a imprimir en el ejecutable de la pestaña pegatina, imprima tantas hojas, como el número que pone en la I9. Para este caso pone la I9 29, por lo que en la pestaña pegatinas al ejecutar la macro imprima 29 hojas. Muchas gracias de antemano. Saludos. PEGATINAS CALIBRACIÓN_prueba.xlsm

Buenas tardes, como siempre recurro a vosotros cuando no encuentro una salida, de antemano muchísimas gracias por atender mi petición. Bueno vamos a ello. Necesito hacer una macro que me ordene los datos de la hoja adjunta (columnas A y B) de manera que queden como esta en las columnas (F y G), en principio no es difícil ya que es un orden alfabético por la columna “B”. El problema es que los datos de la columna “B” provienen de una fórmula que busca los datos de “A” en otro libro y si lo encuentra nos devuelve los datos de la columna “B”. Cuando intento ordenarlos por la columna “B” como la formula hace referencia a la celda del mismo número en la columna “A” se estropea…

Estimados, estoy comenzando con el tema de las macros y en busqueda de ayuda para resolver algunas de las necesidades di con este genial foro con el que pude solucionar varias de ellas. En esta oportunidad necesito hacer un archivo que debo completar con algunos datos y que cuando se cierre genere archivos que sean correlativos. Por ejemplo: Abro el archivo "Manzanas.xlsm" y cuando lo cierro necesito que lo guarde como "M.04-13.01.xlsm". Donde la M es de Manzanas, 04 es por el mes en curso (en este caso abril), 13 es por el año y 01 es el numero de correlatividad. Quedando en la carpeta el archivo "Manzanas.xlsm" y el "M.04-13-01.xlsm". Y que este codigo quede en una c…

Hola a todos, a ver si me podéis dar una ayuda con un tema que no consigo resolver, no domino excel como para resolver estas cosas por mi mismo y por más que leo posible opciones... Estoy intentando armar un editor de roadbook en excel, dicho editor no tiene un número fijo de filas (las añado con una macro según se necesiten), en la hoja "ROADBOOK", en la columna "D" (desde la celda "D41") quisiera añadir una imagen de entre las 360 que dispongo en otra hoja del libro (brújula), como indica el nombre son imágenes de brújulas con rumbo, y son estas las que quisiera pegar en las casillas de la columna "D" según el valor que contenga la celda "T42" (grados de rumbo, ejm, "…