Aiutino per formula

[Statix]

Ciao a tutti ,ho un problemino a
modificare la formula

Codice: Seleziona tutto

=SE(CONTA.SE($D7:$H7;$B$2)=1;RIF.RIGA();"")

in

Codice: Seleziona tutto

Cells(7 + I, "J").FormulaLocal = "=se(Conta.se($D" & (7 + I) & ":$H" & (7 + I)&";B$2)" =1&;Rif.Riga();"""")"


questa è naturalmente quella da correggere.

[Anthony47]

Un po' criptica la domanda, azzardo la risposta:

Codice: Seleziona tutto

Cells(7 + I, "J").FormulaLocal = "=se(Conta.se($D" & (7 + I) & ":$H" & (7 + I) & ";B$2)=1;Rif.Riga();"""")"


Che secondo me equivale a scrivere la prima formula e copiarla poi nelle N righe successive

Ciao

[Statix]

Ciao Anthony , la tua formula l'avevo già provata

non scrive nelle cella

[Statix]

Codice: Seleziona tutto

Sub Formule()
Dim myArr, I As Integer, myI4 As Integer, C As Integer, UR As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
UR = 1626
Range("K7:R1626") = ClearContents
Application.Calculation = xlCalculationManual

myArr = Range("I7").Resize(UR).Value
myI4 = Range("J5").Value
 

For I = 1 To (UR - 1)
    If myArr(LBound(myArr, 1) + I, 1) <> "" Then
   
   
           
           
            Cells(7 + I, "J").FormulaLocal = "=Se(Conta.se($D" & (7 + I) & ":$H" & (7 + I) & ";$B$2)=1;Rif.Riga();"""")"

           
           
           
         Cells(7 + I, "K").FormulaLocal = "=Se($J" & (7 + I) & "="""";"""";Se(Somma($M" & (7 + I) & ":$O" & (7 + I) & ")>0 ;1;""""))"
             
        Cells(7 + I, "M").FormulaLocal = "=Conta.se($D" & (8 + I) & ":$H" & (7 + I + myI4) & ";$D$2)"
        Cells(7 + I, "N").FormulaLocal = "=Conta.se($D" & (8 + I) & ":$H" & (7 + I + myI4) & ";$E$2)"
       ' Cells(7 + I, "O").FormulaLocal = "=Conta.se($D" & (8 + I) & ":$H" & (7 + I + myI4) & ";$F$2)"
        Cells(7 + I, "Q").FormulaLocal = "=Se.Errore(Piccolo($P" & (8 + I) & ":$P" & (7 + I + myI4) & ";1);"""")"
        Cells(7 + I, "R").FormulaLocal = "=Se.Errore(Somma($Q" & (7 + I) & "- $J" & (7 + I) & ");"""")"
      End If
      Next I
     
  Application.Calculation = xlCalculationAutomatic
 
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


[Anthony47]

Ciao Anthony , la tua formula l'avevo già provata
non scrive nelle cella

Quella istruzione scrive una formula in una cella; se la formula sia quella giusta io non lo so.

Continuo a pensare che il tuo problema sia risolvibile scrivendo la formula in J8 e poi copiandola verso destra e verso il basso, che mi pare piu' semplice e probabilmente piu' veloce

Ciao