در خواست راهنمائی در تغییر Range

[Nima]

با سلام می خواستم ماکرو زیر رو تغییر بدم طوریکه به جای رنج فعلی رنج تا اخـرین سلول که پر هستش انتخاب بشه لطفا راهنمائی بفرمائید:

Private Sub CommandButton1_Click()
'
' Dup_Remov Macro
'

'
    ActiveSheet.Range("$A$1:$R$30000").RemoveDuplicates Columns:=1, Header:= _
        xlYes
End Sub 

[~M*E*H*D*I~]

RE: در خواست راهنمائی در تغییر Range

سلام
لینک زیر روببین


http://forum.exceliran.com/thread-222-page-2.html?highlight=%D8%A2%D8%AE%D8%B1%DB%8C%D9%86+%D 8%B1%D8%AF%DB%8C%D9%81

[MEYTI]

RE: در خواست راهنمائی در تغییر Range

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

Dim M

M = Sheet1.Range("B1").End(xlDown).Address

Sheet1.Range("A1", M).Select 

[Nima]

RE: در خواست راهنمائی در تغییر Range

با تشکر از دوستان عزیز

یه سوال دیگه دارم نمیدونم اینجا جاش یا نه:

برای اینکه از همین حالت تو conditional formating هم استفاده کنیم چه راه حلی است یعنی فرض کنید یه شیت داریم و میخوایم که conditional formating تا اخرین ردیف پرشده اعمال بشه چون ما هر روز یه سری دیتا به شیت اضافه میکنیم.

با تشکر

[~M*E*H*D*I~]

RE: در خواست راهنمائی در تغییر Range

سلام
از name manager استفاده کنید و با استفاده از offset محدوده رو گسترش بدید

[daghyad]

RE: در خواست راهنمائی در تغییر Range

اگر از این روش برای حذف رکورد های تکراری استفاده کنی رکورد ها ت حذف می شه و بهتره که از کد زیر استفاده کنی فیلتر پیشرفته که رکورد های تکراری را هم حذف میکنه

 Range("B10").Select
    Range("A2:A11").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "K2"), Unique:=True 

البته هر بار قبل از فیلتر باید محلی که داده های یونیک ما در انجا کپی می شوند را از داه خالی کنی و کلیییرکانتت را برای اون محدوده تا محدوده ای که داده هست را قبل از این کد بذاری و محدوه را هم با روش فوق پویا کنی