JSDJSD

Private Sub CommandButton1_Click() buscado = Hoja2.Range("A" & Rows.Count).End(xlUp) With Hoja1.Range("A4").CurrentRegion .AutoFilter 1, Criteria1:=">" & buscado .Offset(1, 0).Resize(.Rows.Count - 1). _ SpecialCells(12).Copy Hoja2.Range("A" & _ Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1) .AutoFilter End With End Sub BUSCAR Y ESCRIBIR EN OTRA PESTAÑA.xlsm

Una de la muchas posibilidades

Private Sub ComBanco_Change() Dim hojabuscada As String Dim ultFila As Long Dim ultCol As Long hojabuscada = ComBanco With Sheets(hojabuscada) ultFila = .Cells(.Rows.Count, 1).End(xlUp).Row ultCol = .Cells(6, .Columns.Count).End(xlToLeft).Column LstDiario.RowSource = .Range(.Cells(6, 1), .Cells(ultFila, ultCol)).Address(External:=True) End With End Sub El saldo inicial no se si quieres que se muestre, en caso contrario modifica la macro, simplemente cambia en la dos ultimas líneas del bloque with el 6 por el 7 Para Foro.xlsm

Mira a ver si te entendí

Mañana si puedo te lo miro

Si

Me alegro

El archivo CONCENTRADO.xlsm

Sin entender lo que quieres te dejo una posible solución

El archivo, si especificas de donde sacar las sumar te lo implemento prueba1.xlsm

Te dejo una posible solución con formulario

El archivo Prueba de cambio nombre (1).xlsm

A ver, lo que yo te muestro es un formulario, mañana te subo el archivo

No entiendo lo que quieres decirme, puede ser que lo que me quieres decir es que quieres hacerlo mediante tu formulario?

Seleccionas el archivo que quieras pones un nuevo nombre y cuando pulsas guardar te hace los cambios

Observa el gif, hace lo que comentas

Algo como esto ?

En el ejemplo te he puesto 1 segundo para no hacer largo el gif, cámbialo a tu necesidad

Sub RecorrerRangoC() Set hoja = ActiveSheet Set rango = hoja.Range("C2:C" & hoja.Cells(hoja.Rows.Count, "C").End(xlUp).Row) If rango.Cells.Count = 0 Then MsgBox "No hay datos en la columna C.", vbExclamation Exit Sub End If For Each celda In rango.SpecialCells(xlCellTypeVisible) celda.Select Application.Wait Now + TimeValue("00:00:01") Next celda End Sub Prueba y comenta

Hola a ambos lo mismo pero con macros Consulta de Afiliados AFP - PTO ILO.xlsm