افزایش داده های List

[sunstar]

سلام علیکم
من یک فایل اکسل دارم که برای سل های ستون a از طریق data validation لیستی از داده ها تعریف کرده ام .بعضی از مواقع ضرورت دارد اقدام به افزایش تعداد داده های لیست سل های مذکور نمایم .آیا کدی وجود دارد تا از طریق inputbox نسبت به افزایش داده ها به شرط تکراری نبودن اقدام نمایم؟ از اساتید و بزرگواران محترم خواهشمندم دراین خصوص راهنمایی فرمایند.

[generalsamad]

با سلام
شما میتونید لیست منو خود رو بر اساس یک ستون انجام بدید که مثلا هر چی توی اون ستون تایپ بشه به لیستتون اضافه بشه
به فرض رفرنس لیست شما a:a میباشد.
برای تولید سلول منحصر به فرد توی انجمن جستجو کنید

[iranweld]

با سلام و تشکر از جنرال صمد
دو تا عکس آموزش مراحل کار را ضمیمه کردم

[sunstar]

سلام متاسفانه به سئوال من اصلا توجهی نشده ، لیست رو من دارم. میخواستم از طریق inputbox نسبت به افزایش داده ها اقدام کنم . پاسخ عزیزان ارتباطی به سئوال من نداشت.

[Ali Parsaei]

ليست ديتا وليديشن را به يک محدوده ارجاع داده ايد يا اينکه مقادير را مستقيما" داخل ديتا وليديشن نوشته ايد؟

[sunstar]

سلام استاد
من یک محدوده ستونی رو به لیستم ارجاع داده ام ، اگه در مورد حل مشکل درهردو حالت هم توضیح بدید سپاسگذار میشم.

[generalsamad]

با سلام
این کد رو امتحان کنید
خواسته شما این بوده؟

Private Sub CommandButton1_Click()
Dim ans As String, lr As Long
ans = InputBox("áØÝÇ ãÞÏÇÑ ÑÇ æÇÑÏ ˜äíÏ", "ÇÖÇÝå ÔÏä Èå áíÓÊ ãäæ")
If ans = "" Then
    Exit Sub
Else
    lr = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & lr).Value = ans
End If
Columns("A:A").Select
    ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("B1").Select
End Sub 

فایل ضمیمه گردید