kykbt
Altın Üye
- Katılım
- 12 Nisan 2006
- Mesajlar
- 287
- Excel Vers. ve Dili
-
Office 2003
Office 2007
- Altın Üyelik Bitiş Tarihi
- 29-05-2025
-----------------------------
Range("W6").Select
Range("W7:Y300").ClearContents
Range("C6:C2000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"W6:W200"), CopyToRange:=Range("W6"), Unique:=True
Range("V5").Select
Range("W7:W300").Select
Selection.Sort Key1:=Range("W7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("Z5").Select
------------------------------
Arkadaşlar yukarıdaki kod içinde farkındasınızki son hücreyi belirtmek durumunda kalıyorum bu durum beni bazen yetersiz hücre adresi belirtmemden sıkıntıya sokuyor.
İstediğim; örnek --Range("W7:W300").Select-- bu kod yerine --Range("W7:W**").Select-- yani W sutunundaki gerekli olan en son veriye kadar kendi bilsin istiyorum. Ne yapmalıyım.
Range("W6").Select
Range("W7:Y300").ClearContents
Range("C6:C2000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"W6:W200"), CopyToRange:=Range("W6"), Unique:=True
Range("V5").Select
Range("W7:W300").Select
Selection.Sort Key1:=Range("W7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("Z5").Select
------------------------------
Arkadaşlar yukarıdaki kod içinde farkındasınızki son hücreyi belirtmek durumunda kalıyorum bu durum beni bazen yetersiz hücre adresi belirtmemden sıkıntıya sokuyor.
İstediğim; örnek --Range("W7:W300").Select-- bu kod yerine --Range("W7:W**").Select-- yani W sutunundaki gerekli olan en son veriye kadar kendi bilsin istiyorum. Ne yapmalıyım.
