چگونگی آدرس دادن محدوده ای از سطر وستون اکسل در vba

[khoshdel]

با سلام

من یه برنامه ساده دارم تو vba بر روی یه فایل اکسل مینویسم و میخوام یه سطر سه ردیفه در جایی که شماره سطرش از یه فرمولی بدست میاد کپی بشه و در جایی که شماره سطر اولیه و پایانی که قراره این سطر سه ردیفه تا اونجا کپی بشه، از یه فرمول دیگه به دست میاد، پیست بشه!
اما نه از Range و نه cells نتونستم استفاده کنم.

[Javid Mokhtari]

با سلام

من یه برنامه ساده دارم تو vba بر روی یه فایل اکسل مینویسم و میخوام یه سطر سه ردیفه در جایی که شماره سطرش از یه فرمولی بدست میاد کپی بشه و در جایی که شماره سطر اولیه و پایانی که قراره این سطر سه ردیفه تا اونجا کپی بشه، از یه فرمول دیگه به دست میاد، پیست بشه!
اما نه از Range و نه cells نتونستم استفاده کنم.

با سلام...

لطفا فایلتون رو ضمیمه کنید

[khoshdel]

با سلام...

لطفا فایلتون رو ضمیمه کنید

با سلام مجدد فایل رو براتون ضمیمه کردم وتوضیحات رو هم درونش نوشتم:

Book.test (http://s9.picofile.com/file/8295603484/Book_test.xlsm.html)

[Javid Mokhtari]

با سلام مجدد فایل رو براتون ضمیمه کردم وتوضیحات رو هم درونش نوشتم:

Book.test (http://s9.picofile.com/file/8295603484/Book_test.xlsm.html)

کد زیر رو به انتهای کدتون اضافه کنید :



Sheet2.Range(Cells(Z, 4), Cells(Sheet1.Range("n1").Value - 1, 6)).Select

Selection.FillDown

[khoshdel]

با سلام و تشکر فراوان جهت پاسخ گویی شما دوست عزیز، باید بهتون بگم که بعد از اظافه کردن این دستور با خطای عکس زیر مواجه میشم!!!؟؟؟

http://s9.picofile.com/file/8295671084/book1_test.png

[Ali Parsaei]

سلام،
شما ابتدا در سل M1 شيت يک فرمول زير را وارد کنيد:


=COUNTA(B5:B20)

بعد کد خود را نيز به صورت زير اصلاح کنيد:


Sub Rectangle1_Click()
Z = Sheets("sheet1").Range("n1").Value
Y = Sheets("sheet1").Range("m1").Value


Sheets("sheet1").Range("b5:c20").Copy
Sheets("sheet2").Cells(Z, 2).PasteSpecial xlPasteValues
Sheets("sheet1").Range("a3:c3").Copy
Sheets("sheet2").Activate
Sheets("sheet2").Cells(Z, 4).Resize(Y, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

[khoshdel]

سلام آقا دستت درد نکنه با یه کم تغییر مشکلم حل شد.