Marcial C. C.

Esta macro hace lo que tu deseas. Sub Grabar_Rango_En_Libro_Nuevo() Dim NL As Workbook ruta = "u:/produccion/cuentas\" nombre = [a1] Range("B1:G40").Copy 'Guardamos el libro en una variable' Set NL = Workbooks.Add 'Pegamos los valores en el libro...

Esta macro hace lo que tu quieres, independientemente del número de filas o columnas. Sub SumarCantidades() uf = Range("A" & Rows.Count).End(xlUp).Row uc = Range("A8").End(xlToRight).Column For t = 8 To uf For j = 3 To uc Select Case...

El problema lo tienes porque no sabes si será Hoja1 la que tienes que borrar, puede ser hoja2, hoja3, etc. Para solucionarlo, guarda el nombre de la hoja al crearla y después usa este nombre para seleccionar la hoja, antes de borrarla. Asi: Sub...

Para ponerla en ThisWorkbook haz lo siguiente: 1.- Pulsa ALT + F11 e irás al editor de VBA 2.- Haz doble clic sobre ThisWorkbook 3. Utiliza el evento Open de Workbook Y copia dentro de ella el código de tu macro. Si te ha valido la respuesta.

Copia esta macro en la/las hoja/s que quieras controlar la celda B4: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B4")) Is Nothing Then Select Case [B4] Case "Proyecto_1": Proyecto_1 Case "Proyecto_2":...

El error se debe a actualizaciones de Windows y se soluciona borrando los archivos con extensión exd de office. No pasa nadapor borrarlos, porque en cuanto arranques una aplicación Office, se vuelven a crear. Puedes buscarlos con el buscador de...

Una manera es recorrer los libros abiertos de esta forma: Dim Libro As Workbook For Each Libro In Workbooks If LCase(Libro.Name) = "libro.xlsx" Then MsgBox "El archivo libro.xlsx está abierto" End If Next Cambia libro.xlsx por tu archivo. Por favor,...

El error se debe a actualizaciones de Windows y se soluciona borrando los archivos con extensión exd de office. No pasa nadapor borrarlos, porque en cuanto arranques una aplicación Office, se vuelven a crear. Puedes buscarlos con el buscador de...

Copia esta macro en la/las hojas que quieras controlar la celda C1: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C1")) Is Nothing Then If Range("C1") = 123 Then Macro1 End If End If End Sub Por favor, si te ha...

Podrías especificar más tu pregunta. Dices " la celda AX que los contiene", para activar esa celda con una fila determinada puedes hacerlo así: Range("AX" & fil).Activate Donde fil es la variable que guarda el número de fila.