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

zz=62 :  xx=75

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

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

Libro1.xlsm

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

Explícalo con un ejemplo.

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

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

 

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