Crear una macro
Hola experto, tengo una consulta, tengo 2 hoja de cálculos en la hoja1 quiero cargar los valores, lo que quiero saber es si existe algún método utilizando macro que cargue automáticamente en la hoja2 los mismos valores indicándole en que celda rellenar.
Saludos Arnaldo..
Saludos Arnaldo..
1 Respuesta
Respuesta de inforvago
1
Una macro que lo hace es la siguiente:
Es configurable... en cuantas columnas, y filas...
Ojo solo esta para las columnas de la A a la Z.
Pero t puede dar una idea de como fabricar tu macro...
Espero t sirva...
Lógicamente esta robada.
Si hubiesen dudad avisame...
Sub Macro3()
Dim i, j, limite_Columna, limite_fila, inicio_columna, inicio_fila
Dim ABC As String
Dim rango As String
'Inicialización
ABC = "ABCDEFGHIJKLMNOPQRTUVWXIZ"
limite_Columna = 5 'termina en la Columna E
limite_fila = 5
inicio_columna = 2 'Inicia en la columna B
inicio_fila = 2
'Iniciamos limpiando toda el área de trabajo:
Sheets("Hoja2").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
'Iniciamos con el ciclo, barriendo columnas
For j = inicio_columna To limite_Columna
'Iniciamos con el ciclo, barriendo filas
For i = inicio_fila To limite_fila
Sheets("Hoja2").Select
rango = Mid(ABC, j, 1) & CStr(i)
Range(rango).Select
ActiveCell.FormulaR1C1 = "=Hoja1!RC"
rango = Mid(ABC, j, 1) & CStr(i)
Range(rango).Select
Sheets("Hoja1").Select
Next
Next
End Sub
Es configurable... en cuantas columnas, y filas...
Ojo solo esta para las columnas de la A a la Z.
Pero t puede dar una idea de como fabricar tu macro...
Espero t sirva...
Lógicamente esta robada.
Si hubiesen dudad avisame...
Sub Macro3()
Dim i, j, limite_Columna, limite_fila, inicio_columna, inicio_fila
Dim ABC As String
Dim rango As String
'Inicialización
ABC = "ABCDEFGHIJKLMNOPQRTUVWXIZ"
limite_Columna = 5 'termina en la Columna E
limite_fila = 5
inicio_columna = 2 'Inicia en la columna B
inicio_fila = 2
'Iniciamos limpiando toda el área de trabajo:
Sheets("Hoja2").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
'Iniciamos con el ciclo, barriendo columnas
For j = inicio_columna To limite_Columna
'Iniciamos con el ciclo, barriendo filas
For i = inicio_fila To limite_fila
Sheets("Hoja2").Select
rango = Mid(ABC, j, 1) & CStr(i)
Range(rango).Select
ActiveCell.FormulaR1C1 = "=Hoja1!RC"
rango = Mid(ABC, j, 1) & CStr(i)
Range(rango).Select
Sheets("Hoja1").Select
Next
Next
End Sub
