cioa Mario
l'idea è buona anche se la bandiera viene mostrata dopo la scelta.
Piccola nota:
nella tua descrizione parli di textBox, ma le istruzioni fanno riferimento ad una label:
ActiveSheet.Label1.Caption = Sheets("Foglio2").Cells(rg, 2)
quindi o si interisce una Label oppure si modifica:
ActiveSheet.TextBox1 = Sheets("Foglio2").Cells(rg, 2)
Infine, non è necessario dare dimensioni grandi alla Combo per farci entrare l'immagine; nei parametri dell'oggetto immagine, basta variare:
PictureSizeMode a: fmPictureSizeModeStretch
saluti
[Modificato da dodo47 21/02/2021 16:42]
Domenico
Win 10 - Excel 2016