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

• #15131 Delila_1 veterán Attas #15130

  Új Válasz 2012-10-05 14:36:59 #15131

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

  Mivel nem árultad el, hol lesznek az adatok, a D2:E8 tartományra írtam meg, majd átalakítod a makrókat.

  Sub Start()
  UserForm1.ListBox1.List = Sheets("Munka1").Range("E2:E8").Value
  UserForm1.Show
  End Sub

  Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim sor%, usor%, nev$
  sor% = Me.ListBox1.ListIndex + 1
  usor% = Cells(Rows.Count, "A").End(xlUp).Row + 1
  nev$ = Me.ListBox1.List(Me.ListBox1.ListIndex)
  Range("B" & usor%) = nev$
  Range("A" & usor%) = Range("D" & Application.WorksheetFunction.Match(nev$, Columns(5), 0))
  End Sub

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