Saltar al contenido

Error 13 no coinciden los tipos

publicado

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!



			
				

			

			
		


		

	

	
	





	










	















	
	

	
	
    
		
  • 
			
		
    • 
		
		
	










	

		

			
Featured Replies

			



	
	


		

		
	







	


		
		

			
			
				

					

					
					








	
		
	
	

	



	

		

			publicado 
			
			
    
				
				
				
				
                
				
			

			
			
		

		

		

		

		
		


			
			

				

Explica con detalle lo que pretendes hacer y sube una muestra del archivo.


Tu macro no se aguanta por ningún sitio.



			

			
		


		

	

	
	





                    
                    
					
					
					

					
					
					
				
			
			



		

		
	

	
	
		

			
Archivado

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

		

	
	
	

	





	

		
			
				Ir al listado de temas