Luis Mondelo

Esta es la solución. Ejecuta esta macro y primero te aparecerá un browser para elegir la carpeta que tu quieras y después te pintará en excel, a partir de la celda activa, todas las hojas de cálculo que hay en esa carpeta que has elegido. Sub...

Mándame el archivo y veré que puedo hacer. [email protected] En el mail copia el enunciado de tu pregunta en todoexpertos para que pueda identificarte.

Aquí tienes la solución, ejecuta esta macro en la hoja donde tengas los hipervínculos y listo: Sub quitarhiper() tot = ActiveSheet.Hyperlinks.Count For x = 1 To tot ActiveSheet.Hyperlinks(1).Delete Next End Sub recuerda finalizar y puntuar

Selecciona el rango de celda que desees y luego ejecuta esta macro: Sub copy_paste() Selection.Copy Selection.PasteSpecial Paste:=xlValues End Sub

Creo que con esta macro lo conseguimos. Es el evento change de la hoja en la que tienes los datos. (También te la he mandado por mail) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$18" Then tope = Target.Value For x = 1...

Dime tu dirección de correo por favor y te mando el archivo

Prueba con esta macro. Primera marca el ratón el rango de celdas con números que quieras y después ejecuta esta macro: Sub moneda() Selection.NumberFormat = "# €" End Sub

Prueba con esta macro y me cuentas: (Empiezo a copiar desde B1 y C1. Si tuvieras encabezados en esas columnas debiéramos empezar desde B2 y C2, se cambiaría en la macro) Sub columnas() Range("b1:b" &Range("b65000").End(xlUp).Row).Copy...

Esta sería mi solución: sigue mis pasos: Ponemos los encabezados tal y como lo comentas, es decir, en A1 fecha, en b1 articulo, en c1 vendidos, en d1 fecha, en e1 articulo y en f1 cantidad. Después rellena los datos como quieras. Ahora en la celda G2...

Aquí tienes la macro: Sub copiado() sheets("Reg Pago Proveedores".select Range("bb3:cd" & Range("bb65000").End(xlUp).Row).Copy Sheets("registros").Select filalibre = Range("b65000").End(xlUp).Row Cells(filalibre, 2).PasteSpecial Paste:=xlValues End Sub