Új hozzászólás Aktív témák

• #43274 Delila_1 veterán ROBOTER #43273

  Új Válasz 2020-03-17 10:31:35 #43274

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz ROBOTER #43273 üzenetére

  Nem mutattad meg, de talán az általam leírt módszer is jó.
  Két AxtiveX vezérlőt tettem a Munka2 lapra. Ezeknek az az előnyük az érvényesítéssel szemben, hogy a kezdőbetűt leütve a listában szereplő kezdetű tételre ugrik a kijelölés. A ComboBox1-ben a kategóriát választhatod ki, a ComboBox2-ben a terméket. A Munka1 lapon vannak a táblázatok, amikben a második sortól az utolsóig elneveztem a tartományokat a címsornak megfelelően.

  

  A makró a 2 vezérlőhöz:

  Private Sub ComboBox1_Change()
ComboBox2.ListFillRange = "Munka1!" & ComboBox1
End Sub

Private Sub ComboBox2_Change()
Dim sor As Long, oszlop As Integer
sor = Selection.Row

Select Case ComboBox1.Value
Case "keresztnév": oszlop = 1
Case "város": oszlop = 2
Case "zöldség": oszlop = 3
Case "gyümölcs": oszlop = 4
End Select

Cells(sor, oszlop) = ComboBox2.Value
End Sub

  Állsz a soron a Munka2 lapon, ahova be akarod vinni az adatot, és kiválasztod a kategóriát, majd a terméket. Beírja, ahova kell.

Új hozzászólás Aktív témák