به روز رسانی اطلاعات از طریق فروم ........ لطفااا راهنماییی کنید

[DOLFIN]

سلام خدمت همه ی دوستان
فایلی داریم که از سه ستون تشکیل شده و اطلاعات در ستون اول منحصر به فرد و در دو ستون دیگر امکان تکرار وجود دارد.
یک فرم طراحی شده که با انتخاب هر name اطلاعات مربوط به سطرهای دیگه داخل دو textbox نمایش داده میشه.
حالا ما می خوایم با تغییر اطلاعات هر تکس باکس و زدن دکمه update تنها سلول مربوط به همان فرد تغییر پیدا کنه.
مثلا ما اسم حسین رو انتخاب می کنیم و code رو از 3 به 10 تغییر میدیم و با زدن دکمه update تنها code مربوط به حسین از 3 به 10 تغییر میکنه.
لطفا دوستان راهنمایی کنید.خیلی مهمه
ممنونم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[امين اسماعيلي]

با درود

من کد زیر رو چون اولین بار بود که سوال شما رو میدیدم براتون میزارم هر چند خودم این کد رو دوست ندارم چون اسم اشخاص ممکنه تکراری بشن و اولین اسم مشابه رو در نظر میگیره .و همچنین اون vlookup که نوشتی بعدا مشکل به هم میزنی- پس بهتره یه ستون برا کد پرسنلی یا هر چی اظافه کنی که منحصر به فرد باشه یا از شماره ردیف استفاده کنی
ولی خوب در هر حا واسه استارت اینم کد بقیش دستتو میبوسه کاکووووو این کد رو برای کلید مربوطه بزار

Dim lastrow As Long
Dim c As Range
lastrow = Application.WorksheetFunction.CountA(Range("A:A"))
For Each c In Sheet1.Range("A1:A" & lastrow)
If c.Value = ComboBox1.Value Then
c.Offset(0, 1).Value = TextBox1.Value
c.Offset(0, 2).Value = TextBox2.Value
End If
Next c

[DOLFIN]

سلام
ممنونم از شما.حالا یه سوال داشتم اگر راهنمایی کنید ممنون میشم . من کد زیر رو تونستم بنویسم واسه این کار. حالا سوالم اینجاست با فرض اینکه ستونname منحصر بفرد و اینکه تعداد ستون ها زیاد باشه استفاده از کدوم کد مناسب تره به نظر شما ؟! مرسی از راهنماییتون
Dim a
Dim b
b = ComboBox1.Value
a = Application.WorksheetFunction.Match(b, Sheet1.Range("a1:a20"), 0)
Sheet1.Cells(a, 2).Value = TextBox1.Value
Sheet1.Cells(a, 3).Value = TextBox2.Value

[DOLFIN]

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