Modifica codice con FORMULA

Hai un problema con Excel?

Nuova discussione

Modifica codice con FORMULA
di Mangusta (utente non iscritto) data: 01/05/2013 20:05:57
Ciao a tutti ragazzi sto usando a piene braccia un frammento di codice consigliato tempo fa di Isy
Sub Test_IQ()
With Range("I5:Q5")
.Formula = "=SUM(I6:I1000)"
'.Value = .Value
End With
End Sub
non riesco però a modificare inserendo. formula il codice di confronto al quale ha lavorato il buon HarryBosch e Vecchio Frac (cito i nomi solo per facilitare la consultazione dei loro appunti) di seguito codice da convertire dove si va a cercare un parametro x in un foglio1 e lo si confronta con quello in foglio2

With Sheets(F2)

                    Set x = tab2.Find(cella.Value, LookAt:=xlWhole)
                    If Not (x) Is Nothing And cella.Value <> "" Then
                        trovato = True

                        If cella.Offset(0, 11).Value <> .Cells(x.Row, 11) Then
                            cella.Offset(0, 13) = "VERIFICARE"
                           cella.Offset(0, 14) = .Cells(x.Row, 10) - cella.Offset(0, 9)    ' colli
                            cella.Offset(0, 15) = .Cells(x.Row, 11) - cella.Offset(0, 10)    ' peso
                            cella.Offset(0, 16) = .Cells(x.Row, 12) - cella.Offset(0, 11)    ' prezzo
                            cella.Offset(0, 17) = cella.Offset(0, 11).Value / cella.Offset(0, 10).Value ' tariffa al kg.
                        Else
                            cella.Offset(0, 13) = "OK"
                                                        
                        End If
                        If .Cells(x.Row, 12) - cella.Offset(0, 11) = 0 Then
                        cella.Offset(0, 13) = "OK"
                         End If
                    End If

di ISY data: 01/05/2013 20:38:06
Ciao

Cit: non riesco però a modificare inserendo. formula il codice di confronto al quale ha lavorato il buon HarryBosch e Vecchio Frac

Puoi allegare un esempio con i dati da testare mi incuriosisce la richiesta: .formula
La tua ricerca termina appena trovato il singolo valore con .Find?

Vedi: hhhh://www.ozgrid.com/VBA/find-method.htm
Mi riferisco all'esempio ozgrid

Sub Find_Bold_Cat()
    Dim lCount As Long
    Dim rFoundCell As Range
    Set rFoundCell = Range("A1")
    For lCount = 1 To WorksheetFunction.CountIf(Columns(1), "Cat")
        Set rFoundCell = Columns(1).Find(What:="Cat", After:=rFoundCell, _
            LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, MatchCase:=False)
         With rFoundCell
             .ClearComments
             .AddComment Text:="Cat lives here"
         End With
    Next lCount
End Sub

di Magusta (utente non iscritto) data: 08/05/2013 18:35:07
Sto reperendo un esempio ! una volta trovato il valore si effetuano delle semplici operazioni matematiche.
in sintesi con find trova (se c'è) il numero di una fattura in un secondo foglio e effettua la sottrazione tra i valori della stessa fattura nei 2 fogli.
se valore = 0 vuol dire che non ci sono differenze
se valori diversi da 0 mi riparta la differenza.

Vuoi Approfondire?