Sub Prova() Dim X As Integer Dim Y As Integer Dim rng As Range Dim cl As Range Set rng = Range("g4:g19") For Each cl In rng If cl = "" Then Exit Sub Sheets("Ambi").Select cl.Offset(0, 4).Select 'For X = 1 To Y ActiveCell.Select ActiveCell.FormulaR1C1 = _ "=SUM(--(MMULT(COUNTIF(RC7:RC8,Archivio!R[6]C3:R[16]C22),ROW(R1C1:R20C1)^0)=2))" ActiveCell.Offset(1, 0).Range("A1").Select 'Next X Next End Su |
Sub Prova() Dim X As Integer Dim Y As Integer Dim rng As Range Dim cl As Range Set rng = Range("g4:g19")'<<<=Setto con rng un oggetto formato dalle celle del range For Each cl In rng'<<== per ogni elemento(CL) che è nel rng If cl = "" Then Exit Sub '<<<=== Se CL(quindi la cella che in quel momento sto controllando)è vuota esci dalla Sub Sheets("Ambi").Select cl.Offset(0, 4).Select'<<===Selezionami la cella che si trova sulla stessa riga Col 4 della cella CL 'For X = 1 To Y ActiveCell.Select ActiveCell.FormulaR1C1 = _ "=SUM(--(MMULT(COUNTIF(RC7:RC8,Archivio!R[6]C3:R[16]C22),ROW(R1C1:R20C1)^0)=2))" ActiveCell.Offset(1, 0).Range("A1").Select 'Next X Next End Sub |