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

• #8054 zsotesz81 senior tag Fire/SOUL/CD #8050

  Új Válasz 2010-09-07 15:23:32 #8054

  Ú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

  

  zsotesz81

  senior tag

  válasz Fire/SOUL/CD #8050 üzenetére

  Hi!
  
  Úgy tűnik sikerült megoldanom a visszaolvasást listbox-ba. Igaz nem egyedül jöttem rá, túrtam a netet rendesen.
  
  Private Sub UserForm_Initialize()
  Dim cells As Range
  Dim Rng As Range
  
  
  With ThisWorkbook.Sheets("listbox1")
  Set Rng = .Range("a1", .Range("a1").End(xlDown))
  End With
  
  For Each cell In Rng.cells
  Me.ListBox1.AddItem cell.Value
  Next cell
  End Sub

• #8051 zsotesz81 senior tag Fire/SOUL/CD #8050

  Új Válasz 2010-09-03 13:53:15 #8051

  Ú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

  

  zsotesz81

  senior tag

  válasz Fire/SOUL/CD #8050 üzenetére

  oks, köszi, majd hétvégén kicsit töröm rajta a fejem.

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