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

• #17966 Delila_1 veterán Vladek83 #17962

  Új Válasz 2013-04-27 19:40:46 #17966

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

  Átírtam.

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

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