انتقال اطلاعات دریافتی به بانک اطلاعاتی

[elder]

سلام مجدد
یک بانک اطلاعاتی با نام bank.xlsx ایجاد کردم . حالا می خوام کاربران از کامپیوترهای مختلف با وارد کردن اطلاعات در فرم مربوطه در فایلهای متفاوت کل اطلاعات منتقل بشه به این بانک اطلاعاتی .

کد زیر رو ببینید

Private Sub CommandButton1_Click()
Dim c As Range
Sheets("[Bank.xlsx]Sheet1").Activate
For Each c In Range("A1:a1000")
If c = TextBox1.Text And c <> "" Then
MsgBox "خطا" 'پيغام بده
Exit Sub
End If 'پايان شرط
Next

در قسمت قرمز شده خطا وجود دارد لطفا راهنمایی بفرمایید .

[Amir Ghasemiyan]

سلام مجدد
یک بانک اطلاعاتی با نام bank.xlsx ایجاد کردم . حالا می خوام کاربران از کامپیوترهای مختلف با وارد کردن اطلاعات در فرم مربوطه در فایلهای متفاوت کل اطلاعات منتقل بشه به این بانک اطلاعاتی .

کد زیر رو ببینید

Private Sub CommandButton1_Click()
Dim c As Range
Sheets("[Bank.xlsx]Sheet1").Activate
For Each c In Range("A1:a1000")
If c = TextBox1.Text And c <> "" Then
MsgBox "خطا" 'پيغام بده
Exit Sub
End If 'پايان شرط
Next

در قسمت قرمز شده خطا وجود دارد لطفا راهنمایی بفرمایید .

سلام دوست عزيز
فكر كنم مشكل شما اين باشه:

workbooks("bank").activate
sheets("sheet1").activate

[arsalan135]

سلام
فایلی دارم که یکی از شیتهای آن به جدول یکی از صفحات وب لینک شده (از طریق data from web) . در شیت دیگه ای از اطلاعات این شیت استفاده میشه. زمانی که فایل رو برای بروز کردن اطلاعات آن جدول آپدیت میکنم ، فرمولهای این شیت بهم می خوره . ماندم چکارکنم