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

[khoshdel]

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

[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]

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

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

[Javid Mokhtari]

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

Book.test

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

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

[khoshdel]

فایل ضمیمه

با سلام...

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

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

Book.test

[Javid Mokhtari]

با سلام

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

با سلام...

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

[khoshdel]

با سلام

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