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

• #17958 Delila_1 veterán Vladek83 #17955

  Új Válasz 2013-04-27 18:51:53 #17958

  Ú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 Vladek83 #17955 üzenetére

  Lehet, hogy nem jól értelmeztem a kérdést, és a ListBox2-ben csak az éppen kiválasztott rekord 3 adatának kell megjelennie, nem egy növekvő lista utolsó sorának a 3 adata. Ebben az esetben a makró

  Private Sub CommandButton1_Click()
  Dim nev As Variant, WF As WorksheetFunction
  Dim WS As Worksheet
  
  Set WF = WorksheetFunction
  Set WS = Sheets("Munka1")
  nev = ListBox1.Value
  
  WS.Cells(2, 7) = nev
  WS.Cells(2, 8) = WF.VLookup(nev, WS.Range("A:E"), 3, 0)
  WS.Cells(2, 9) = WF.VLookup(nev, WS.Range("A:E"), 4, 0)
  ListBox2.RowSource = "G2:I2"
  End Sub

  Azért a G2:I2-be teszem az adatokat, mert az első a címsor, amit a ListBox2-ben megjelenítek (ColumnHeads=True).

• #17956 Delila_1 veterán Vladek83 #17955

  Új Válasz 2013-04-27 18:03:38 #17956

  Ú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 Vladek83 #17955 üzenetére

  A ListBox1 bemenete nálam a Munka1!A:E oszlopában van, a Listbox2-é a G:I-ben.

  Private Sub CommandButton1_Click()
  Dim usor As Integer, nev As Variant, WF As WorksheetFunction, WS As Worksheet
  
  Set WF = WorksheetFunction
  Set WS = Sheets("Munka1")
  usor = Sheets("Munka1").Range("G" & Rows.Count).End(xlUp).Row + 1
  nev = ListBox1.Value
  
  WS.Cells(usor, "G") = nev
  WS.Cells(usor, "H") = WF.VLookup(nev, WS.Range("A:E"), 3, 0)
  WS.Cells(usor, "I") = WF.VLookup(nev, WS.Range("A:E"), 4, 0)
  End Sub

  Ahhoz, hogy a kiválasztás és a CommandButton1 működtetése után a bevitt adatok meg is jelenjenek a ListBox2-ben, újra kell inicializálnod.

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