مشکل در لیست باکس

[kaveh_karimi]

با سلام خدمت اساتید گرامی
یک شیت دارم که شامل کد، نام ، نام خانوادگی ، وضعیت و مبلغ هستش. تو یه فرم یه لیست باکس اوردم که میخوام با زدن یک دکمه، به شیت یک نگاه کنه و اگه سل مربوط به کد پر هست بقیه اطلاعات اون کد (نام ، نام خانوادگی ، وضعیت و مبلغ )رو برام بیاره. بالفرض گه تو شیت یک 100 نفر داریم با زن یک دکمه اطلاعات اون 100 نفر رو وراد لیست باکسم کنه. یه کد نوشتم ولی کار نمیکنه
دوستان اگه محبت کنند راهنمایی کنند ممنون میشم

[Javid Mokhtari]

با سلام.
دوست عزیز تقریبا کدتون صحیح بود منتها در قسمت properties مربوط به فرم مقدار columncount را برابر 4 قرار دهید.
فقط یکی دو مورد بود که عوضش کردم.البته کدی که نوشتین محدودیت هایی دارد و اگر پویا بود بهتر میشد.اما تا همینجا هم کارتون خوبه

Dim c As Range
    For Each c In Sheet1.Range("B2:B1000")
      If c.Value <> "" Then
      ListBox1.AddItem c.Value
          ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1)
          ListBox1.List(ListBox1.ListCount - 1, 2) = c.Offset(0, 2)
          ListBox1.List(ListBox1.ListCount - 1, 3) = c.Offset(0, 3)
     End If  Next 

[kaveh_karimi]

دوست عزیز ممنون از راهنمایی تون.
من تازه شروع کردم زیاد وارد نیستم. مشکل این کد چیه؟ از چه کدی استقاده کنم پویا تره؟ نمونه ای دارید اپلود کنید تا بتونم نگاه کنم؟
ممنون