سؤالات مربوط به VBA در اکسل

سلام وقت بخیر

لیست حقوق و دستمزدی از پرسنل دارم که میخوام خالص پرداختی رو به مبلغ قرارداد برسونم اینکار رو با Goal Seek انجام میدم از اونجایی که تعداد نفرات زیاد هستن نمیشه نفر به نفر اینکار رو انجام داد. حالا میخوام بدونم چه کدی داخل VBA نوشته بشه که این عملیات تکرار بشه تا آخرین نفر لیست

با عرض سلام و وقت بخیر خدمت اساتید محترم:

در یک فایل اکسل که یک سری مشخصات وارد شده باشد از محدوده b3تا j3 و ادامه دار هستش و همچنین b3 به پایین مختص شماره ردیف می باشد. اگر بخواهیم در یک سلول مشخص و ثابت مثلآ a5 زمانی که شماره ردیف را وارد کنیم اون ردیف مورد نظر از b تا j حذف بشه و همچنین در یک شیت دیگر paste بشه البته با vba . راه حلش چیه؟

در صورت امکان راهنمایی بفرمایید

سلام

وقتی دستور msgbox را می نویسم و در سلولی کلمه فارسی تایپ می شود و به آن کلمه فارسی رفرنس داده میشود مسیج باکس علامت سوال به جای حروف فارسی نشان می دهد ولی با حروف انگلیسی مشکلی ندارد

ممنون از زحمات شما

توی اکسل میشه کاری انجام داد ک کاربر فقط یکبار بتونه توی یه سلول یه عدد وارد کنه اگه بخاد عدد رو تغییر بده پیغام خطایی بده

با سلام

من یه یوزر فرم یا همون باکس جستجو در اکسل طراحی کردم که داخل یک جدول سرچ را انجام میده

حالا سوالی که دارم میخوام این جستجو را از یه فایل اکسل دیگه انجام بده آیا امکانش هست؟

سلام.

یه سوال داشتم!

دو تاشیت داریم. در شیت اول در محدوده a2:az1000 دیتایی داریم که بعضی از سلول ها با رنگ های مختلف هایلایت شده اند.

میخواهم سلول هایی که در این دیتا هایلایت هستند:
اطلاعات درون سلول. آدرس آن سلول ها و کدرنگ پس زمینه آن سلولها در یک شیت دیگر و در سه ستون مجزا و زیر هم نمایش داده شود.

لام و وقت بخیر

بر اساس دو شرط در دو سلول اطلاعات product1 و farm 1 میخوام در ردیف زوج در شیت مقصد و در صورتی که product 2 و farm 2 باشه در ردیف خالی فرد شیت مقصد درج بشه

زمانی که prodcuct2 و farm2 یا زمانی که procuct2,و farm1 انتخاب میشه موقع اجرا کد ارور 400 میده

ممنون میشم راهنمایی بفرمایین

یکی از کاربران زحمت کشیدن یه جوابی چند روز پیش به این سوالم دادن ولی مشکلم حل نشد و مجدا این سوال مطرح کردم و نمونه فایل هم ضمیمه کردم

سلام و وقت بخیر

بر اساس دو شرط در دو سلول اطلاعات product1 و farm 1 میخوام در ردیف زوج در شیت مقصد و در صورتی که product 2 و farm 2 باشه در ردیف خالی فرد شیت مقصد درج بشه

این فرمول در قسمت دوم عمل نمیکنه

ممنون میشم راهنمایی بفرمایین

Option Explicit

Sub Button_Click()

Dim source As Worksheet

Dim destination As Worksheet

Dim a As Integer

Dim j As Integer

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

If Sheet2.Cells(2, 1) = "product1" And Sheet2.Range("a1") = "farm1" Then

Set source = Worksheets("sheet2")

Set destination = Worksheets("sheet4")

a = 1

Do Until Sheet4.Cells(a, 2) = "" And a Mod 2 <> 0

a = a + 1

Loop

For j = 2 To 91

Sheet4.Cells(a, j) = Sheet2.Cells(2, j)

Next j

ElseIf Sheet2.Cells(2, 1) = "product2" And Sheet2.Range("a1") = "farm1" Then

Set source = Worksheets("sheet2")

Set destination = Worksheets("sheet4")

Do Until Sheet4.Cells(a, 2) = "" And a Mod 2 = 0

a = a + 1

Loop

For j = 2 To 91

Sheet4.Cells(a, j) = Sheet2.Cells(2, j)

Next j

End If

If Sheet2.Cells(2, 1) = "product1" And Sheet2.Range("a1") = "farm2" Then

Set source = Worksheets("sheet2")

Set destination = Worksheets("sheet1")

a = 1

Do Until Sheet1.Cells(a, 2) = "" And a Mod 2 <> 0

a = a + 1

Loop

For j = 2 To 91

Sheet1.Cells(a, j) = Sheet2.Cells(2, j)

Next j

ElseIf Sheet2.Cells(2, 1) = "product2" And Sheet2.Range("a1") = "farm2" Then

Set source = Worksheets("sheet2")

Set destination = Worksheets("sheet1")

Do Until Sheet1.Cells(a, 2) = "" And a Mod 2 = 0

a = a + 1

Loop

For j = 2 To 91

Sheet1.Cells(a, j) = Sheet2.Cells(2, j)

Next j

End If

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub

سلام، من میخوام با VBA و فرم اطلاعات داده در اکسل ذخیره کنم. چطوری بفهمم در شیت داده هام چند ردیف پر شده تا داده جدید رو بعد اون ثبت کنم؟

ممنون