da neofita di VB, sto cercando di fare una macro per inserire una formula il tutte le celle di una colonna.
Per il momento con questo codice sono riuscito a farlo per una singola cella
- Codice: Seleziona tutto
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
code = Range("P2").Value
If Range("Q2").Value = "SEDEX" Then
Range("I2").Select
ActiveCell.FormulaR1C1 = "=FDF|Q!'" & code & ";Ask'"
Else
Range("I2").Select
ActiveCell.FormulaR1C1 = "=FDF|Q!'" & code & ".TX;Ask'"
End If
End Sub
e ho provato ad esterderlo per tutte le celle della colonna, facendogli contare le celle non vuote modificando il codice come di seguito. Il codice viene eseguito il problema è che devo interrompere il codice manualmente altrimenti rimane tutto bloccato.
- Codice: Seleziona tutto
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
rigax = Range("P2").End(xlDown).Row
For i = 2 To rigax
code = Range("P" & i).Value
If Range("Q" & i).Value = "SEDEX" Then
Range("I" & i).Select
ActiveCell.FormulaR1C1 = "=FDF|Q!'" & code & ";Ask'"
Else
Range("I" & i).Select
ActiveCell.FormulaR1C1 = "=FDF|Q!'" & code & ".TX;Ask'"
End If
Next i
End Sub
Come posso risolvere?