Jump to content
Sign in to follow this  
Pedro Maias

Range con variable

Recommended Posts

Buenos días, os hago una pregunta

estoy limpiando unas macros y quisiera saber sin el Range se puede ejecutar con variable, aquí va una explicación

    If Range("s50") >= 1 Then

     Range("U50") = ("=U47+S50")

    zz=b2 :  xx=s2  ' Variables que después toma el range en la sub

    Call Datos

    Else: Range("u50") = C:End IF


     If Range("S2") >= 1 Then 

     'Range("U2") = ("=U50+S51")

     xz=63 : zy=76 ' Variables que después toma el range en la sub

    Call Datos

     Else: Range("u51") = C: End IF

 

Sub Datos()

Worksheets("Hoja2").Unprotect Password:=PR
  Range("zz:xx") .Copy Sheets("Hoja2").Range("b1048576").End(xlUp)(2) 'aqui es donde el range tomaria el valor
Worksheets("Hoja2").Protect Password:=PR
End Sub

 

esto es posible si es asi NO me sale y si se puede hacer os pido si me podéis ayudar

Muchas gracias

Share this post


Link to post
Share on other sites

Mira aquí te envío una copia de un libro que funciona y lo que quiero es que esta linea

       Range("B62:R62").Copy Sheets("Resumen Impagos").Range("b1048576").End(xlUp)(2)
que no se repita tanto, de ay que lo que intento hacer es esto

If Range("o62") >= "1" Then

zz=B62:xx=R62             ' que tome esta Variable

Call Prueba

end if

Sub Prueba()

     'que el range tome la variable

Range("zz:xx").Copy Sheets("Resumen Impagos").Range("b1048576").End(xlUp)(2)

end sub

espero haberme explicado bien

Libro2.xlsm

Share this post


Link to post
Share on other sites

Hola Pedro Maias,

Bueno si lo que quieres es depurar un poco el código y simplificar su lectura

sustituye el código de resto() por este

For I = 62 To 66
 If Range("o" & I) >= "1" Then
       Range("q" & I) = ("=o" & I & "+3 * 21%+3"): Range("s" & I) = TG
       Range("B" & I & ":R" & I).Copy Sheets("Resumen Impagos").Range("b1048576").End(xlUp)(2)
 Else: Range("q" & I & ",s" & I) = C:  End If
Next

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5