Soru bir hücredeki değeri sorgulayarak başka bir hücreden başlayan aralığı seçtirmek

[kdzgn]

Merhaba, linkini aşağıya bıraktığım bir uygulamam var. Takıldığım nokta listeye yeni ürün eklemeleri yaptığımda ve makroyu çalıştırdığımda E/L sütunu olarak belirttiğim yerde değeri L olan ilk hücreye göre aynı satırdaki c hücresinden e de bulunan son hücreye (eklenebilir bir alan olduğu için) kadar seçim yapan bir koda ihtiyacım var. bu seçili alanı kendi içinde makine 2ye göre büyükten küçüğe sıralanmasını sağlayacağım. makronun içi incelendiğinde bu sıralamanın var olduğunu görebilirsiniz ancak
range ("c7:f11").select tipinde değişime açık olmayan bir kod göreceksiniz. bu kodun belirttiğim şekilde değişime açık hale getirildiğinde sorunun çözülebileceğini düşünüyorum.

Zamanınızı ayırıp bilgilerinizi paylaşırsanız sevinirim, teşekkürler.

https://www.dosyaupload.com/ozJK

 

[ÖmerFaruk]

Sub SeçimYap()
Dim Alan As Range
Dim SatırNo As Integer, SonSatır As Integer
    On Error Resume Next
    SatırNo = WorksheetFunction.Match("L", Columns(6), 0)
    If SatırNo = 0 Then MsgBox "L içeren satır yok": Exit Sub
    SonSatır = Cells(SatırNo, 5).End(xlDown).Row
    Set Alan = Range(Cells(SatırNo, 3), Cells(SonSatır, 6))
    Alan.Select
End Sub

 

[kdzgn]

Sub SeçimYap()
Dim Alan As Range
Dim SatırNo As Integer, SonSatır As Integer
    On Error Resume Next
    SatırNo = WorksheetFunction.Match("L", Columns(6), 0)
    If SatırNo = 0 Then MsgBox "L içeren satır yok": Exit Sub
    SonSatır = Cells(SatırNo, 5).End(xlDown).Row
    Set Alan = Range(Cells(SatırNo, 3), Cells(SonSatır, 6))
    Alan.Select
End Sub

Çok teşekkür ederim bu kod sorunumu çözdü.