Condizionale

Hai un problema con Excel?

Nuova discussione

Condizionale
di jey (utente non iscritto) data: 10/05/2014 21:00:23
ciao a tutti,
è possibile usare questa formula in VBA ince che inserirla nella cella?

=SE($Q17<='€Kg (New)'!$F$313;'€Kg (New)'!$G$305;SE($Q17<='€Kg (New)'!$F$314;'€Kg (New)'!$G$314;SE($Q17<='€Kg (New)'!$F$315;'€Kg (New)'!$G$315;SE($Q17<='€Kg (New)'!$F$316;'€Kg (New)'!$G$316;SE($Q17<='€Kg (New)'!$F$317;'€Kg (New)'!$G$317;SE($Q17<='€Kg (New)'!$F$318;'€Kg (New)'!$G$318;SE($Q17<='€Kg (New)'!$F$319;'€Kg (New)'!$G$319;na)))))))

la furmula attualmente è inserita nella cella X17 e poi "trascinata" fino alla cella X478

grazie
di Textomb data: 11/05/2014 00:03:20
Certo che si può.
In linea del tutto generale la sintassi è una cosa del genere:
Range("X17:X478").Formula= "=la_tua_formula...."
Se la scrivi in inglese, cioè i SE diventano IF, l'interprete lo capisce meglio...
di Raffaele_53 (utente non iscritto) data: 11/05/2014 00:04:49
Stramba la formula, comunque se Ti va bene....
>>>Selection.AutoFill Destination:=Range("X17: X478"), Type:=xlFillDefault

di Mister_x (utente non iscritto) data: 11/05/2014 00:14:28
ciao

a parte gli errori che ci sono in quella formula , da come si pensa di capire il foglio da dove
fai il controllo e copi il valore e denominato ( €Kg(New) ) quindi stando ai tuoi dati la sub da
inserire nel foglio dove hai X17-X478 e' questa pressapoco dato che non ho potuto provarla in mancanza di un tuo file

ciao

Option Explicit

Sub X17_X478()
Dim i As Long
'' presumo che €Kg(New) sia un foglio denominato cosi'
For i = 17 To 478
  If Cells(i, "Q") <= Sheets("€Kg(New)").Cells(313, "F") Then
    Cells(i, "X") = Sheets("€Kg(New)").Cells(313, "G")
  ElseIf Cells(i, "Q") <= Sheets("€Kg(New)").Cells(314, "F") Then
    Cells(i, "X") = Sheets("€Kg(New)").Cells(314, "G")
  ElseIf Cells(i, "Q") <= Sheets("€Kg(New)").Cells(315, "F") Then
    Cells(i, "X") = Sheets("€Kg(New)").Cells(315, "G")
  ElseIf Cells(i, "Q") <= Sheets("€Kg(New)").Cells(316, "F") Then
    Cells(i, "X") = Sheets("€Kg(New)").Cells(316, "G")
  ElseIf Cells(i, "Q") <= Sheets("€Kg(New)").Cells(317, "F") Then
    Cells(i, "X") = Sheets("€Kg(New)").Cells(317, "G")
  ElseIf Cells(i, "Q") <= Sheets("€Kg(New)").Cells(318, "F") Then
    Cells(i, "X") = Sheets("€Kg(New)").Cells(318, "G")
  ElseIf Cells(i, "Q") <= Sheets("€Kg(New)").Cells(319, "F") Then
    Cells(i, "X") = Sheets("€Kg(New)").Cells(319, "G")
  Else
    Cells(i, "X") = "na"
  End If
Next i
End Sub

Vuoi Approfondire?