selezione celle

Hai un problema con Excel?

Nuova discussione

Selezione celle
di Korsakoff (utente non iscritto) data: 03/09/2013 12:31:36
Quello sottostante è il mio script attuale che viene lanciato da un pulsante sul foglio di lavoro. Compara i valori delle celle selezionate con celle di altri fogli e se ne trova di uguali mi importa nel foglio della selezione il valore contenuto nell'offset. Vorrei che lo script venisse lanciato solo se le celle selezionate si trovano nella colonna D.
Spero di essere stato abbastanza chiaro.
Grazie in anticipo dell'aiuto!!

Sub Find_Matches_TUTTI()
    Dim CompareRange1 As Variant, CompareRange2 As Variant, CompareRange3 As Variant
    Dim x As Variant, a As Variant, b As Variant, c As Variant, d As Variant
    Set CompareRange1 = Worksheets("Working Station").Range("B2:B50")
    Set CompareRange2 = Worksheets("MDP").Range("B2:B200")
    Set CompareRange3 = Worksheets("Console").Range("B2:B50")
    
    d = "140.80.1.1"

    For Each x In Selection
            For Each a In CompareRange1
            If x = a Then x.Offset(0, -1).Value = a.Offset(0, 3).Value
        Next a
        For Each b In CompareRange2
            If x = b Then x.Offset(0, -1).Value = b.Offset(0, 27).Value
        Next b
        For Each c In CompareRange3
            If x = c Then x.Offset(0, -1).Value = c.Offset(0, 25).Value
        Next c
        If x = "Auto" Then x.Offset(0, -1).Value = d
    Next x
End Sub

di Vecchio Frac data: 03/09/2013 14:36:06
Verifica che la colonna della selezione sia la n° 4 ("D") quindi prosegui col successivo ciclo.
For Each x In Selection if x.column = 4 then For Each a In CompareRange1 ... next a ... end if next x

Vuoi Approfondire?