Soy nuevo en esto de las macros. El tema es que tengo que usar una macro para insertar filas dependiendo del valor de una celda. Tengo una lista de datos de 12000 filas así que he intentado hacerlo directamente seleccionando todos los valores a la vez, en lugar de ir uno por uno. Al activar la macro me sale el error 13 no coinciden los tipos.
el codigo de la macro es:
Sub Macro1()
Dim Filas As Single, MiRango As Object
Filas = Selection.Value2 - 1
Set MiRango = Range(Selection.Offset(1, 0), Selection.Offset(Filas, 0))
Hola !!
Soy nuevo en esto de las macros. El tema es que tengo que usar una macro para insertar filas dependiendo del valor de una celda. Tengo una lista de datos de 12000 filas así que he intentado hacerlo directamente seleccionando todos los valores a la vez, en lugar de ir uno por uno. Al activar la macro me sale el error 13 no coinciden los tipos.
el codigo de la macro es:
Sub Macro1()
Dim Filas As Single, MiRango As Object
Filas = Selection.Value2 - 1
Set MiRango = Range(Selection.Offset(1, 0), Selection.Offset(Filas, 0))
MiRango.EntireRow.Insert (xlShiftDown)
Selection.Offset(0, -10).Copy Destination:=MiRango.Offset(-Filas, -10)
Selection.Offset(0, -9).Copy Destination:=MiRango.Offset(-Filas, -9)
Selection.Offset(0, -8).Copy Destination:=MiRango.Offset(-Filas, -8)
Selection.Offset(0, -7).Copy Destination:=MiRango.Offset(-Filas, -7)
Selection.Offset(0, -6).Copy Destination:=MiRango.Offset(-Filas, -6)
Selection.Offset(0, -5).Copy Destination:=MiRango.Offset(-Filas, -5)
Selection.Offset(0, -4).Copy Destination:=MiRango.Offset(-Filas, -4)
Selection.Offset(0, -3).Copy Destination:=MiRango.Offset(-Filas, -3)
Selection.Offset(0, -2).Copy Destination:=MiRango.Offset(-Filas, -2)
Selection.Offset(0, -1).Copy Destination:=MiRango.Offset(-Filas, -1)
Selection.Value = 1
MiRango.Offset(-Filas, 0) = 1
Selection.Offset(0, 1).Copy Destination:=MiRango.Offset(-Filas, 1)
Selection.Offset(0, 2).Copy Destination:=MiRango.Offset(-Filas, 2)
Selection.Offset(0, 3).Copy Destination:=MiRango.Offset(-Filas, 3)
Selection.Offset(0, 4).Copy Destination:=MiRango.Offset(-Filas, 4)
Selection.Offset(0, 5).Copy Destination:=MiRango.Offset(-Filas, 5)
Selection.Offset(0, 6).Copy Destination:=MiRango.Offset(-Filas, 6)
Selection.Offset(0, 7).Copy Destination:=MiRango.Offset(-Filas, 7)
Selection.Offset(0, 8).Copy Destination:=MiRango.Offset(-Filas, 8)
Selection.Offset(0, 9).Copy Destination:=MiRango.Offset(-Filas, 9)
Selection.Offset(0, 10).Copy Destination:=MiRango.Offset(-Filas, 10)
Selection.Offset(0, 11).Copy Destination:=MiRango.Offset(-Filas, 11)
Selection.Offset(0, 12).Copy Destination:=MiRango.Offset(-Filas, 12)
If MiRango.Cells(1, 1).Value2 <> "" Then
Selection.End(xlDown).Select
Else
MiRango.Cells(1, 1).Select
End If
Set MiRango = Nothing
End Sub
[code]
el error aparece en "Filas = Selection.Value2 - 1" muchas gracias!