makro ile sil sırala

[hayri tekin]

Merhaba arkadaşlar,
ekli dosyamda makro ile silme ve sıralama işlemi yapmak istiyorum.


Sub sil2()
Range("A11").ClearContents
End Sub

sizleri fazla yormak istemem.Bu nedenle yukarıdaki makroda silinecek alan A11 olarak görünüyor.Fakat bu alan değişken.Ben de hücredeki bu değişken alanı makroda tanıtamadım.Asıl amacım bu alanı makroda nasıl tanıtabilirim.

 

[Mustafa MUTLU]

'Silme işlemi
Range("Sayfa1!A2:Z65536").ClearContents
'-----------------------
'Sıralama İşlemi
Range("A2:Z65536").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select

 

[hayri tekin]

'Silme işlemi
Range("Sayfa1!A2:Z65536").ClearContents
'-----------------------
'Sıralama İşlemi
Range("A2:Z65536").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select

Mustafa bey ilginize teşekkürler ama istediğim bu değil.