Dante Amor

Prueba lo siguiente: Sub test() Dim n As Long n = 2 'cantidad de celdas a seleccionar Hoja1.Range("A" & Rows.Count).End(xlUp).Offset(n * -1 + 1).Resize(n).Select End Sub Nota: La cantidad de celdas a seleccionar debe ser menor o igual a la fila de la...

Prueba la siguiente macro. Tu información en la hoja "Datos" empezando en la celda A1. El resultado en la hoja "Resultado". Sub Pasar_datos_de_filas_a_columnas() Dim a As Variant, b As Variant Dim i As Long, j As Long, k As Long, m As Long, lr As...

Prueba lo siguiente: Sub fecha() With Range("D2:D" & Range("C" & Rows.Count).End(3).Row) .Formula = "=INT(RC[-1])" .Value = .Value End With End Sub

Debes tener activo el segundo libro para importar la macro. Prueba así: Sub EXPORTAR_ARCHIVO() Dim ruta As String ruta = "F:\GESTIO DIARIA\Nueva carpeta (2)\" ThisWorkbook.VBProject.VBComponents("FICHERO_1").Export (ruta & "fichero_1.bas")...

Revisa lo siguiente: 1. El número progresivo en el archivo va al inicio del nombre y después lleva un guión bajo ( _ ) 895_16-03-2018-141733. Pdf 2. Los nombres en excel empiezan en la celda A2 y hacia abajo 3. Los nombres en excel no tienen la...

Entra a las propiedades del botón y selecciona la opción: "No mover, ni cambiar tamaño con celdas"

Está perfecto tu código, solamente debes poner entre comillas "A1" LibroOrigen.Sheets(1).Cells.Copy Destination:=LibroDestino.Sheets(4).Range("A1")

Prueba lo siguiente: Sub BuscarDocumento() Dim h1 As Worksheet, h2 As Worksheet Dim i As Long, j As Long Dim b As Range ' Application.ScreenUpdating = False Set h1 = Sheets(2) 'COMPRAS REPORTADAS Set h2 = Sheets(3) 'COMPRAS REGISTRADAS j = 2 For i =...

Prueba lo siguiente: Sub Compra() Dim valor As String Dim f As Range valor = "Libro AAAA" Application.ScreenUpdating = False With Sheets("Compras") .Visible = xlSheetVisible .Select .Unprotect Password:="xxxxxxxxx" With .Range("$B$7:$I$100") Set f =...

Puedes poner varios ejemplos de los nombres de los archivos