Saltar al contenido

Rrellenar celdas automaticamente

publicado

Hola amigos.

por favor si pueden darme una ayuda.

es q con la macro que va en el libro adjunto, puedo iserrtar dos columnas cada 8 especies , en cuyas columnas insertadas quiero que se copie los valores de las primeras dos columna y no sé como hacerlo.

Los resultados que se busca figura en la hoja "Modelo".

Gracias por anticipado.

Copia celdasautomaticamente.zip

Featured Replies

publicado

Hola, intenta con esto:

Sub Macro1()
[A4:AP4].SpecialCells(xlCellTypeBlanks).Select
[A4:B13].Copy Selection
End Sub[/CODE]

publicado

.

Si lo he entendido:

Esto es lo que has pedido:

Sub InsertarTítulos()
Dim x As Long
x = 11
Do Until Trim(Cells(4, x + 1)) = Empty
If Not Cells(4, x) = Range("A4") Then
Range("A4:B13").Copy
Cells(4, x).Insert Shift:=xlToRight
End If
x = x + 10
Loop
End Sub[/CODE]

Esto te podría valer:

[CODE]Sub FijarRango()
Range("C3").Select
ActiveWindow.FreezePanes = True
End Sub[/CODE]

.

PD: Saludos Armando

.

  • 2 weeks later...
publicado
  • Autor

Gracias a ambos por su esfuerzo.

sin embargo yo pretendía que los rangos deben de ser variables.

y la solución adecuada para este caso es la que proporciona nuestro amigo Macro Antonio( Armando).

Mil Gracias

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.