VBATools

Jeśli zastanawiasz się jak utworzyć listę poprawności z wielu zakresów oto przykład zastosowania.

Wystarczy zdefiniować odpowiednio zakresy w kodzie VBA.

 Option Explicit

Sub Validation_two_ranges()
 Dim a$, el As Range
 Dim rng1 As Range, rng2 As Range
 Set rng1 = Range("c3:c5") 'możesz przypisać nazwę zakresu
 Set rng2 = Range("d3:d5")
 For Each el In rng1 'pierwszy zakres
 a = a & el.Value & ","
 Next
 For Each el In rng2 '2 drugi
 a = a & el.Value & ","
 Next
 With Range("A1").Validation 'docelowa lista
 .Delete
 .Add Type:=xlValidateList, Formula1:=a
 End With
 Set rng1 = Nothing
 Set rng2 = Nothing
End Sub

Oto widok:

(c) Shon Oskar – www.VBATools.pl