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

• Staby csendes tag

  #955 2007-12-27 09:31:00

  Új Válasz

  Ú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

  

  Staby

  csendes tag

  Sziasztok!

  Segítségre lenne szükségem. VB-ben szeretnék egy táblázatról listát készíteni legördülő menüben, excel-macróban (vb). A list metódust használnám, de folyamatosan hibát ír ki (381) de elvileg minden jól van beírva.
  a forrás:

  Sub UserForm_initialize()
  Sheets("Személyek").Select
  ActiveSheet.Range("A1:" & Ref_Cella).Activate
  ksor = Selection.Rows.Count
  kosz = Selection.Columns.Count
  nevosz = kosz + Nevoszl - 1
  beosz = kosz + Beooszl - 1
  With box
  Cells(ksor, nevosz).Select
  If Selection.Text = "" Then
  i = ksor
  Else
  i = Selection.CurrentRegion.Rows.Count
  End If
  .ColumnCount = Oszam
  .List() = Worksheets("Személyek").Range(Cells(ksor, kosz), Cells(i, kosz + Oszam - 1))
  .ColumnWidths = Mitlatunk
  .Style = fmStyleDropDownCombo
  .Value = ""
  .TextColumn = Nevoszl
  .SetFocus
  End With
  nevmegadas = True
  End Sub

  Ha valaki tudna rajtam segíteni, nagyszerű lenne.
  Előre is köszönöm.

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