Dante Amor

Te anexo la macro Sub copiar_celdas() Set h1 = Sheets("Hoja A") Set h2 = Sheets("Hoja B") h1.Range("B10:D" & h1.Range("B" & Rows.Count).End(xlUp).Row).Copy h2.Range("B10").PasteSpecial xlValues Application.CutCopyMode = False MsgBox "Celdas copiadas"...

Mejor explícame qué quieres hacer. Dime qué tienes y qué esperas de resultado, explica con imágenes y ejemplos.

Para la primera parte, unir en una hoja de varios libros, revisa la siguiente macro Macro para copiar datos de varios libros de unas celdas especificas y pegarlos en un libro nuevo en la primera hoja. Sub libros() 'Lee archivos del directorio y Copia...

Para poner la fecha en las celdas de la columna B si ya existe información en la columna C, primero debes ejecutar la siguiente macro, solamente una vez. Pon la siguiente macro en un módulo y la ejecutas solamente una vez sobre tu hoja. Sub...

Te anexo el código. Cambia var1 = 5 y var2 = 8 por los nombres de tus variables y por los números que desees Private Sub CommandButton1_Click() 'Por Dante Amor 'Poner color a textbox ' var1 = 5 var2 = 8 ' 'validar variables If var1 = "" Or var1 < 1...

Si estás cargando con el método AddItem solamente te permite hasta 10 columnas. Para cargar más de 10 columnas puede utilizar otra propiedad del listbox. Revisa la siguiente respuesta, ahí expongo algunos ejemplos. Trata de adaptarlos a tu userform...

Cambia esta línea ant = h1.Cells(u, "B") Por esta ant = h1.Cells(u + 1, "B") Lo que pasa es que estás asignando a ant el valor de la celda B Y en esta línea preguntas si son diferentes If h1.Cells(i, "B") <> ant Pero ant y h1. Cells(i, "B") en el...

Prueba copiando solamente el rango Sub Macro2() ' ' Copiar a concentrado Set h1 = Sheets("CAPTURA") Set h2 = Sheets("concentrado") ' u = h1.Range("A" & Rows.Count).End(xlUp).Row If u < 8 Then MsgBox "No existen filas a copiar" Exit Sub End If ' filas...

Prueba con la siguiente macro Sub Macro1() ' ' Copiar a concentrado Set h1 = Sheets("CAPTURA") Set h2 = Sheets("concentrado") ' u = h1.Range("A" & Rows.Count).End(xlUp).Row If u < 8 Then MsgBox "No existen filas a copiar" Exit Sub End If ' filas = u...

Puedes poner la macro que estás utilizando. ¿Qué mensaje de error aparece? ¿En qué línea de la macro se detiene? ¿Si te genera algunos pdf?