Dante Amor

Envíame un nuevo archivo, en la hoja "PARA CREAR TXT" me marcas con color amarillo las filas que deben eliminarse (pinta varias como ejemplo, para entender a qué te refieres con menores a 55), dime qué columna o cuáles columnas debo considerar,...

No puedes cambiar ese texto, lo que puedes hacer es un formulario con 2 botones, por ejemplo: Cuando presiones el botón 1 ejecutas como si presionara "Si" y cuando presionen el botón 2 ejecutas la otra parte.

Dime qué debe tener la Observación para saber si va en la columna C o en la columna D. Te estoy poniendo un ejemplo en la siguiente macro, si el texto que escribiste contiene la palabra "algo", entonces la observación se escribe en la columna C, de...

Te regreso la macro con el cambio. Sub Guardar() 'Por. Dante Amor 'Guarda los datos de cada hoja en la Hoja "BASE" Application.ScreenUpdating = False Set h = Sheets("Base") Set h1 = ActiveSheet Set b = h.Columns("B").Find(h1.Name, lookat:=xlWhole) If...

Te envié un macro para copiar los datos, dime si es lo que necesitas o hay que realizar cambios en la macro: Sub Comparativo() 'Por.Dante Amor Set h1 = Sheets("inventario") Set h2 = Sheets("bd_2") ' For i = 2 To...

Si la hoja"Respaldo General" está en el libro2: Cambia en la macro "libro2.xlsx", por el nombre de tu libro que tiene la hoja "Respaldo General". Los 2 libros deberán estar abiertos. Sub TraerDatos3() 'Por.Dante Amor Set l1 = ThisWorkbook Set h1 =...

Te anexo la macro Sub Comparativo() 'Por.Dante Amor Set h1 = Sheets("inventario") Set h2 = Sheets("bd_2") ' For i = 2 To h2.UsedRange.Rows(h2.UsedRange.Rows.Count).Row Set b = h1.Columns("C").Find(h2.Cells(i, "E"), lookat:=xlWhole) 'busca serie If b...

Te anexo las macros. Debes crear un formulario con 2 botones y un listbox. En el formulario pon el siguiente código: Private Sub CommandButton1_Click() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Existencia") Set h2 =...

¿Qué información tienes? ¿Tienes toda la ruta de la carpeta original? Tendrías que poner, por ejemplo en la columna A la lista de carpetas a renombrar y en la columna B el nombre nuevo, pero tienes que poner todo el nombre completo, ejemplo: A B 1...

Te anexo la macro para cuando le das click al listbox Private Sub ListBox1_Click() 'Por.Dante Amor consec = ListBox1.List(ListBox1.ListIndex, 7) Set b = Columns("AA").Find(consec, lookat:=xlWhole) If Not b Is Nothing Then Cells(b.Row, "A").Select End...