مشکل در کد vba فاکتور

[anzan7]

با سلام خدمت دوستان گلم عید پیشا پیش به همه دوستای گلم تبریک میگم
یه فاکتور طراحی کردم کد vba هم گذاشتم اما ارور میده لطفا کمک کنین.
داخل این کد کل مشخصات فاکتور میبره داخل شیت frosh قرار میده اما هر کاری میکنم انجام نمیشه ارور میده از اساتید گرامی میخوام یه نگاه بندازن
با تشکر

[misammisam]

سلام
شما وقتی میخواید اطلاعات رو انتقال بدید باید آخرین سط پر شده از اطلاعات رو در شیت frosh پیدا بکنید ، که اینجا شما به متغیر x ارجاش دادید و نحوه صیح فرمولی که باید بزنید اینجوریه

 x = Sheet3.Range("c:c").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 

[anzan7]

سلام
شما وقتی میخواید اطلاعات رو انتقال بدید باید آخرین سط پر شده از اطلاعات رو در شیت frosh پیدا بکنید ، که اینجا شما به متغیر x ارجاش دادید و نحوه صیح فرمولی که باید بزنید اینجوریه

 x = Sheet3.Range("c:c").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 

با تشکر فراوان.اما همون شیت frosh 4ردیف دیگخ جلوتر داره که داخل فرمول به عنوان y تعریف شده واسه اون چه فرمولی میخواد؟

[misammisam]

با تشکر فراوان.اما همون شیت frosh 4ردیف دیگخ جلوتر داره که داخل فرمول به عنوان y تعریف شده واسه اون چه فرمولی میخواد؟

نفهمیدم با این y میخواید دقیقا چیکار کنید ، شماره ستونه یا میخواید یه حلقه برای تعداد ردیف فاکتورتون بسازید.

[anzan7]

نفهمیدم با این y میخواید دقیقا چیکار کنید ، شماره ستونه یا میخواید یه حلقه برای تعداد ردیف فاکتورتون بسازید.

داخل همون شیت frosh میخوام قسمت Y هم پر بشه.این قسمت و واسه جای دیگه میخوام.میخوام زیر فاکتور اصلی یه فاکتور بازیابی درست کنم که وقتی شماره فاکتور بهش بدم کل فاکتور بیار

[anzan7]

سلام
شما وقتی میخواید اطلاعات رو انتقال بدید باید آخرین سط پر شده از اطلاعات رو در شیت frosh پیدا بکنید ، که اینجا شما به متغیر x ارجاش دادید و نحوه صیح فرمولی که باید بزنید اینجوریه

 x = Sheet3.Range("c:c").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 

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

[anzan7]

نفهمیدم با این y میخواید دقیقا چیکار کنید ، شماره ستونه یا میخواید یه حلقه برای تعداد ردیف فاکتورتون بسازید.

واقعا از اساتید کسی نیست جواب بده.من داخل این فاکتور میخوام مشخصات فاکتور داخل یه شیت دیگه ذخیره بشه.نصفش به کمک دوستم میثم حل شد.اما میخوام ریز فاکتور مثل فی نام کالا هم بتونم وارد کنم.لطفا راهنمایی بفرمایید.تشکر

[anzan7]

راهنمایی

واقعا از اساتید کسی نیست جواب بده.من داخل این فاکتور میخوام مشخصات فاکتور داخل یه شیت دیگه ذخیره بشه.نصفش به کمک دوستم میثم حل شد.اما میخوام ریز فاکتور مثل فی نام کالا هم بتونم وارد کنم.لطفا راهنمایی بفرمایید.تشکر

واقعا کسی نیست جواب بده یا سوال سختی؟

[misammisam]

با یه count تعداد ردیفهای فاکتورتونو بشمارید و بعد با یه حلقه for به قسمت دیتاتون انتقال بدید .
بطور مثال :

Private Sub CommandButton1_Click()

factor_serial = Range("G30")
count_code = Application.WorksheetFunction.Count(Sheet1.Range("code"))

For i = 1 To count_code
x = Sheet3.Range("c:c").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
Sheets("Frosh").Cells(x, 2) = factor_serial
Sheets("Frosh").Cells(x, 3) = Cells(31, 3)
Sheets("Frosh").Cells(x, 4) = Cells(33, 3)
Sheets("Frosh").Cells(x, 5) = Cells(32, 2)
Sheets("Frosh").Cells(x, 6) = Cells(53, 6)
Sheets("Frosh").Cells(x, 7) = Cells(31, 6)
Sheets("Frosh").Cells(x, 8) = Cells(32, 6)
Sheets("Frosh").Cells(x, 9) = Cells(39, 9)
Sheets("Frosh").Cells(x, 10) = Cells(33, 5)

Sheets("Frosh").Cells(x, 13) = factor_serial
Sheets("Frosh").Cells(x, 14) = Cells(34 + i, 2)
Sheets("Frosh").Cells(x, 15) = Cells(34 + i, 3)
Sheets("Frosh").Cells(x, 16) = Cells(34 + i, 6)
Next i

    Range("F31:G31").ClearContents
    Range("E33:G33").ClearContents
    Range("B35:C52").ClearContents
    Range("A29").Select
    
End Sub 

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