در خواست راهنمائی در تغییر 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~]

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


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]

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

Dim M

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

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

[Nima]

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

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

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

با تشکر

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

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

[daghyad]

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

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

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