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

[khoshdel]

با سلام

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

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

[Javid Mokhtari]

با سلام

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

با سلام...

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

[khoshdel]

با سلام...

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

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

Book.test

[Javid Mokhtari]

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

Book.test

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

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]

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