Makroda Referans Hücre

[kemalist]

Arkadaşlar Merhaba; elimde soldaki gibi bir sıralama makrosu var;benim öğrenmek istediğim F2 hücresine yazacağım hücre numarasının makrodaki kırmızı yazı ile olan yerlerde ;H2 ihücresine yazacağım hücre numarasının makrodaki mavi yazı ile olan yerlerde olmasını sağlamak.Yani bir başka deyişle makrodaki ilgili hücreler F2 ve H2 yi referans alsınlar . İlginiz için şimdiden teşekkür ederim.

Örnek dosya ektedir.

 

[turist]

Sub CH_271()

Windows("LERTER.xlsm").Activate
    Sheets("EMAS").Select
    birinci = Range("f2").Text
    ikinci = Range("h2").Text
    Range(birinci,ikinci).Select
    ActiveWorkbook.Worksheets("EMAS").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("EMAS").Sort.SortFields.Add Key:=Range(birinci), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("EMAS").Sort
        .SetRange Range(birinci,ikinci)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
End Sub

şeklinde deneyin.

 

[kemalist]

Sub CH_271()

Windows("LERTER.xlsm").Activate
    Sheets("EMAS").Select
    birinci = Range("f2").Text
    ikinci = Range("h2").Text
    Range("birinci,ikinci").Select
    ActiveWorkbook.Worksheets("EMAS").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("EMAS").Sort.SortFields.Add Key:=Range(birinci), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("EMAS").Sort
        .SetRange Range("birinci,ikinci")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
End Sub

şeklinde deneyin.

sayın turist kod hata veriyor resim ektedir

 

[turist]

Range([B][COLOR="Red"]"[/COLOR][/B]birinci,ikinci[B][COLOR="red"]"[/COLOR][/B])

şeklinde yanlış olmuş.

Range(birinci,ikinci)

olacak şekilde düzelterek deneyin.
(İlk mesajda da Kod düzeltilmiştir.)

 

[kemalist]

Range([B][COLOR="Red"]"[/COLOR][/B]birinci,ikinci[B][COLOR="red"]"[/COLOR][/B])

şeklinde yanlış olmuş.

Range(birinci,ikinci)

olacak şekilde düzelterek deneyin.
(İlk mesajda da Kod düzeltilmiştir.)

Teşekkür ederim İŞLEM TAMAM

 

[kemalist]

Aşağıdaki kodda çalışma sayfasınıda eklemek için bir değişiklik yaptım fakat kod daha önce resmini göndermiş olduğum hatayı veriyor.Nerede hata yaptım acaba?
Sub İSTEKLİSIRALA()


Windows("LERTER.xlsm").Activate
birinci = Range("ez2").Text
ikinci = Range("fd2").Text
üçüncü = Range("fe2").Text
Range(birinci).Select
Range(ikinci, üçüncü).Select
ActiveWorkbook.Worksheets(birinci).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(birinci).Sort.SortFields.Add Key:=Range(ikinci), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(birinci).Sort
.SetRange Range(ikinci, üçüncü)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

 

[turist]

Worksheets(birinci)

şeklinde tanımlamanız hatalı olmalı.
Sayfa adını "ez2" hücresinden almasını isterseniz, başka bir tanım yapmak gerekir.

 

[kemalist]

Worksheets(birinci)

şeklinde tanımlamanız hatalı olmalı.
Sayfa adını "ez2" hücresinden almasını isterseniz, başka bir tanım yapmak gerekir.

Evet dediğiniz gibi sayfa ismini ez2 hücresinden almasını istiyorum.Yardım ederseniz sevinirim.
İlginize teşekkür ederim..

 

[turist]

Sub İSTEKLİSIRALA()
Windows("LERTER.xlsm").Activate
birinci = Range("ez2").Text
ikinci = Range("fd2").Text
üçüncü = Range("fe2").Text
On Error Resume Next
Sheets(birinci).Activate
ActiveWorkbook.Worksheets(birinci).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(birinci).Sort.SortFields.Add Key:=Range(ikinci), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(birinci).Sort
        .SetRange Range(ikinci, üçüncü)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

şeklinde deneyin.

 

[kemalist]

Sayın turist tekrar teşekkür ederim...

 

[kemalist]

Arkadaşlar Merhaba;benim yapmak istediğim "SİL" isimli dosyadan yani bu sayfadan "DATALAR " dosyasındaki istenilen sayfadan seçili hücreler arasını silmek yani temizlemek.Yukarıdaki makro ile aynı dosya içinde yapabiliyorum.Bu makroyu istemiş olduğum şekilde değişiklik yapabilirmiyiz? Örnek dosya ektedir.İlginiz için şimdiden teşekkür ederim....