~ZeRO sTrEsS~
07-12-2007, 15:14
Bene raga allora ho un codice che funziona alla perfezione... ora il problema sta nel fatto che ho dei range variabili.
NElle caselle J1 e J2, ho il valore delle righe che inizio e fine esempio nella casella J1 ho 3 e nella J2 ho 9
Le colonne sono fisse e non cambiano, mentre se per esempio aggiungo una cella fa l'intervallo A3:F9 nella casella J2 il valore diventa 10.
Vi copio qui sotto un pezzettino di codice, quando lo eseguo mi da errore che non sono coordinate.
Il mio problema consiste solo nel settare il range...
Dim Source As Range
Dim Rigastart As Integer
Dim rigafine As Ingeger
Rigastart = Range("J1").Value
rigafine = Range("J2").Value
Set Source = Nothing
On Error Resume Next
Set Source = Range(Cells(1, Rigastart), Cells(8, rigafine)).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Grazie a tutti in anticipo
NElle caselle J1 e J2, ho il valore delle righe che inizio e fine esempio nella casella J1 ho 3 e nella J2 ho 9
Le colonne sono fisse e non cambiano, mentre se per esempio aggiungo una cella fa l'intervallo A3:F9 nella casella J2 il valore diventa 10.
Vi copio qui sotto un pezzettino di codice, quando lo eseguo mi da errore che non sono coordinate.
Il mio problema consiste solo nel settare il range...
Dim Source As Range
Dim Rigastart As Integer
Dim rigafine As Ingeger
Rigastart = Range("J1").Value
rigafine = Range("J2").Value
Set Source = Nothing
On Error Resume Next
Set Source = Range(Cells(1, Rigastart), Cells(8, rigafine)).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Grazie a tutti in anticipo