Osaisiko joku kertoa? Millainen makro tehdään Combo Box:iin, jolla saa kopioitua valitun otsikon tiedot seuraavalta lehdeltä? Seuraavalla lehdellä (esim. Taul2)on otsikon alla 10 riviä tietoa. Näitä sarakkeita voi olla kymmeniä. Kiitos näin etukäteen!
Combo Box ja kopiointimakro
Combo
2484
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
Tuosta kun vähän viilaa niin onnistuu - voipi olla, koodi on joskus täältä kopsattu.
Private Sub UserForm_Initialize()
Dim rarray As Variant
Dim vika As Double
Sheets("Sheet1").Activate
vika = Range("B65536").End(xlUp).Row
rarray = Range("B2:B" & vika)
With ComboBox1
.List() = rarray
.ListIndex = -1
End With
End Sub
Indeksi -funktiolla ja lomakkeiden yhdistelmäruudun avulla homma onnistui kätevästi.