domandona x cominciare il 2011 col buonumore
se devo fare un "For each cell in range"...
con range
- Codice: Seleziona tutto
Set rng = Range("A1").End(xlToRight)
il ciclo non è gestibile in caso dovessi passare alla riga successiva con "B1" tramite variabile.
Solitamente con le rows...basta usare un valore numerico..ma qui?
ecco la macro da me realizzata:
- Codice: Seleziona tutto
Sub CheckRighePAVIA()
Dim pippo As Integer
Dim cella As Range
Dim rng As Range
riga = Worksheets("Foglio1").Range("A1").Row
riga2 = Worksheets("Foglio2").Range("A1").Row
Dim gotoahahahgiando As Integer
contacolonna = Worksheets("Foglio1").Range("A1").End(xlToLeft).Column + 1
Sheets("Foglio1").Select
For gotoahahahgiando = 1 To ActiveSheet.UsedRange.Rows.Count * ActiveSheet.UsedRange.Columns.Count Step 1
Sheets("Foglio1").Select
folder = Cells(riga, 1)
cellacheck = Cells(riga, contacolonna)
Sheets("Foglio2").Select
For Each cell In Range("A:A")
If cell = folder Then
'scandaglia in orizzontale
'Set rng = Cells(pippo, Columns.Count).End(xlToLeft)
Set rng = Range("A1").End(xlToRight)
For Each cella In rng
If cella = cellacheck Then
riga2 = riga2 - 1
contacolonna = contacolonna + 1
'Else
'Cells(riga2, 1).End(xlToRight) = cellacheck
End If
Next cella
Exit For
End If
riga2 = riga2 + 1
Next cell
Next 'gotoahahahgiando
End Sub