ورود اطلاات به ليست باكس

[4017]

سلام عليكم
با توجه به عكس
ميشه ليست باكس طوري تنظيم بشه كه اگه رنج o2: o20 عدد بود فقط اون سطر بياد در ليست باكس بشينه و اگه صفر باشه در ليست باكس نشون داده نشه؟
از راهنماييتون ممنون ميشم

[حسینعلی]

Listbox1.rosurse=SHEET1.RANGE("o220")

[4017]

ممنون از پاسخي كه دادين
اما اين فقط كل ليستو نشون ميده. درخواست من چيز ديگه اي بوده

[komeilex]

دوست عزیز از اونجایی که الان دیر وقته و من مغزم درست و حسابی کار نمی کنه و در کل زیادم وی بی وارد نیستم فقط یه راه حل به نظرم رسید که شاید به شما ایده بده.
من نظرم اینه شما آدرسی که به لیست باکست میدی رو از قبل صفراشو حذف کن.
که البته به ازای هر ستون که بخوای انجام بدی این کارو، باید از سلول کمکی استفاده کنی که خوب کارآیی فایلت میاد پایین.
در هر صورت این یه ایده بود و مطمئنن اساتید راهنماییتون می کنن.
اینم فایل نمونه:
BookUF.xlsm

[Javid Mokhtari]

ممنون از پاسخي كه دادين
اما اين فقط كل ليستو نشون ميده. درخواست من چيز ديگه اي بوده

با سلام.

Dim rng As Range
For Each rng In ActiveSheet.Range("o2:o20") 
   If rng <> "" And rng <> 0 Then  
      Me.ListBox1.AddItem rng  
  End If
Next rng 

اگر محدوده o2: o20 ثابت است که هیچ درغیر اینصورت می توان محدوده را پویا نمود.

[4017]

ممنون از پاسختون. درباره پويا كردنش هم ميشه بگين چه كاري بايد انجام بشه؟

[Javid Mokhtari]

ممنون از پاسختون. درباره پويا كردنش هم ميشه بگين چه كاري بايد انجام بشه؟

اگر ستون O مدنظر شما باشد باید گفت:

Dim rng As Range
For Each rng In ActiveSheet.Range("o1", Range("o1000000").End(xlUp).Address)
    If rng <> "" And rng <> 0 Then 
       Me.ListBox1.AddItem rng  
  End If
Next rng 

[4017]

اينجا فقط اين ستون نشون داده ميشه. نميشه سطر متناظر با اين ستون نشون داده بشه؟

[Javid Mokhtari]

اينجا فقط اين ستون نشون داده ميشه. نميشه سطر متناظر با اين ستون نشون داده بشه؟

خب باید چهارجوبی برای فرمتون قرار بدین یا نه.مثلا کل ستون o یا کل ستون a شما باید تعیین کنید که چهارچوب اطلاعاتتون کجاست.درغیر اینصورت باید برای کلیه محدوده استفاده شده در شیت کد نوشت که زیاد معقول نیست.چون ممکه خیلی از آیتمها مد نظر شما نباشه ولی در لیست باکس بیهوده جا گرفته.

[Javid Mokhtari]

یه راه ساده تری هم هست که اگه فایلتون رو بذارین رو اون انجام میدم.

[4017]

ممنونم كه حتي اين وقت از صبح هم به سوالاتم پاسخ ميدين
بيشتر اين خواسته منه كه اگه اين ستون عددي ازش عدد شد سطرشو تو ليست باكس بياره

[4017]

يه راه ديگه پيدا كردم اما اونجا هم موندمخواستم يه ليست جدا تشكيل بدم كه ليست باكس از اونجا خونده بشهاما به يه مشكل برخوردماونم اينه كه تو يه ستون اگه مثلا 2تا سطر بخوام كپي كنم عملي نميشه. فايل پيوست دوومو هم ميذارم يه نگاهي بهش ميندازين؟

[4017]

يه راه ديگه پيدا كردم اما اونجا هم موندمخواستم يه ليست جدا تشكيل بدم كه ليست باكس از اونجا خونده بشهاما به يه مشكل برخوردماونم اينه كه تو يه ستون اگه مثلا 2تا سطر بخوام وارد كنم عملي نميشه. فايل پيوست دوومو هم ميذارم يه نگاهي بهش ميندازين؟

[Javid Mokhtari]

ممنونم كه حتي اين وقت از صبح هم به سوالاتم پاسخ ميدين
بيشتر اين خواسته منه كه اگه اين ستون عددي ازش عدد شد سطرشو تو ليست باكس بياره

با سلام.
منکه نفهمیدم منظورتون از "این ستون" کدام ستون ها بود.
پیوست Copy هم که چیزی توشت نیست که نگاهی بهش بندازم.

[4017]

با تشكر از شما
از يه راه ديگه حلش كردم. اصولي نيست اما جواب داده
ممنون كه وققتتونو بهم دادين