Range con variable

[Pedro Maias]

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

[Antoni]

zz=62 :  xx=75

Range(zz & ":" & xx)  equivale a Range("62:75")

[Pedro Maias]

Esta función ya la echo y no funciona, os envío un ejemple del error

Libro1.xlsm

[Antoni]

Lo que tienes no funciona tal como está, y no veo claro lo que pretendes hacer.

Explícalo con un ejemplo.

[Pedro Maias]

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

[nachobm]

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

 

[Pedro Maias]

Perdón por la tardanza, pues por problemas familiares he estado un mes si salir por aquí, podéis dar este tema por cerrado ya lo tengo solucionado, una vez mas gracias a todos