macro per fare la differenza

Hai un problema con Excel?

Nuova discussione

macro per fare la differenza
di vale2882 (utente non iscritto) data: 08/10/2014 11:56:29
Buongiorno a tutti! Vorrei chiedere un aiutino! Vorrei fare una macro che dati i valori numerici in col. B e C, mi scriva in col.D le differenze. Le righe della col. B e C sono variabili. Aspetto vostre! Vorrei fare ciò solo su un foglio della cartella di lavoro. Grazie in anticipo!
di Grograman (utente non iscritto) data: 08/10/2014 15:07:18
Ma non serve mica una macro.

Scrivi in D1:
=B1-C1
Poi fai doppioclick sull'angolo inferiore destro della cella e ti trascina la formula fino alla fine.
di Zer0Kelvin data: 08/10/2014 17:21:42
Ciao.
Come scritto da Grograman, non serve affatto una macro; come mai hai questa necessità?

PS: nel caso si trattasse di un esercizio scolastico (scusami, ma ogno tanto qui capitano dei "furbetti") ti consiglio di cercare di risolverlo da solo.

di Raffaele_53 (utente non iscritto) data: 09/10/2014 02:35:53
Casomai Tu avessi richiesto "le celle differenti" da mettere in D

Sub confronta()
Dim X As Long, Ur1 As Long, Ur2 As Long, R As Long, Cel As Range, Ric As Object
Ur1 = Range("B" & Rows.Count).End(xlUp).Row
Ur2 = Range("C" & Rows.Count).End(xlUp).Row
Columns("D:D").ClearContents
R = 1
    For Each Cel In Range("B1:B" & Ur1)
        Set Ric = Range("C1:C" & Ur2).Find(Cel, LookIn:=xlValues, LookAt:=xlWhole) ' Then
        If Ric Is Nothing Then
            Cells(R, 4) = Cel
            R = R + 1
        End If
    Next Cel
    For Each Cel In Range("C1:C" & Ur2)
        Set Ric = Range("B1:B" & Ur1).Find(Cel, LookIn:=xlValues, LookAt:=xlWhole) ' Then
        If Ric Is Nothing Then
            Cells(R, 4) = Cel
            R = R + 1
        End If
    Next Cel
MsgBox " Fatto"
End Sub

di Zer0Kelvin data: 09/10/2014 08:40:58
Beh! se cos' fosse, si è espresso davvero male...

Vuoi Approfondire?