Excel - Izrada padajućeg popisa s dinamičke liste u VBA

Problem

Pokušavam napraviti makro koji može stvoriti padajući popis s dinamičke liste u stupcu A. Do sada sam smislio sljedeći kôd:

 Pod-test () Raspon ("A1", Raspon ("A65536"). Kraj (xlUp)) Naziv = "MyList" ćelije (1, 3) .Select With Selection.Validation .Delete. : = xlValidAlertStop, Operator: = _ xlBetween, Formula1: = "= & MyList" .IgnoreBlank = Netočno. InCellDropdown = True. InputTitle = "" .ErrorTitle = "". .ShowError = Istinski kraj s krajnjim podskupom 

Međutim, pozivanje usluge MyList ne funkcionira.

Riješenje

Pokušaj ovo:

• Idite na provjeru podataka, odaberite popis i upišite = Moj popis
• Sada kliknite desnom tipkom miša na karticu s listovima i odaberite kôd prikaza i zalijepite sljedeći kôd:

 Privatni pod radni list_Promjena (ByVal Target As Range) Ako je sjecište (Target, Stupci ("A: A")) nije ništa tada izaći pod dim lRow As Integer lRow = Raspon ("A" & Rows.Count). End (xlUp). Raspon redaka ("A1: A" & lRow) .Name = "Moja lista" Završi pod 

• Ovaj kôd će promijeniti raspon MyList-a kad god se promijeni u stupcu A.

Zahvaljujući TrowaD-u na ovom savjetu.