COPIA RANGE DA FOGLIO "X" A FOGLIO "Y" IN BASE ALLA DATA INSERITA - VBA

Question

Buongiorno gruppo, ho un piccolo quesito da porvi: come posso copiare un range di celle (riferimento settimana) da foglio "GIUSTIFICATIVI" A FOGLIO "CALENDARIO" in base ad una DATA inserita? 

volevo aggiungere file ma nn ho trovato come fare. Cmq se puo essere di aiuto nelle celle F2 e H2 del foglio GIUSTIFICATIVI vengono calcolate le colonne dove copiare il RANGE in base alla data inserita in A1. Le righe del RANGE sono "fisse" e vanno dalla 5 alla 49. Mi manca il codice vba da inserire in Command button per automatizzare la copia :(

Ovviamente la cartella comprende moti piu fogli, ma gli scrennshot inseriti sono stati creati per semplificare la cosa. Ho bisogno di un vostro aiuto. 

Help me

Answer 1

Ciao mirco68,

Ho provato ad inserire questo codice ma da errore:

Private Sub CommandButton1_Click()

Var1 = Range("F2").Value

Var2 = Range("H2").Value

Worksheets("CALENDARIO").Range(Cells(5, Var1), Cells(49, Var2)).Value = ActiveSheet.Range("B5:H49").Value

End Sub

Prova la seguente modifica del tuo codice:

'========>>

Option Explicit

Private Sub CommandButton1_Click()

    Dim Var1 As Long, Var2 As Long

    Var1 = Range("F2").Value

    Var2 = Range("H2").Value

    With Worksheets("CALENDARIO")

        .Range(.Cells(5, Var1), .Cells(49, Var2)).Value = ActiveSheet.Range("B5:H49").Value

    End With

End Sub

'<<========

===

Regards,

Norman

Answer 2

Ho provato ad inserire questo codice ma da errore:

Private Sub CommandButton1_Click()

Var1 = Range("F2").Value

Var2 = Range("H2").Value

Worksheets("CALENDARIO").Range(Cells(5, Var1), Cells(49, Var2)).Value = ActiveSheet.Range("B5:H49").Value

End Sub