En ucuz Teklife göre Firma listeleme

[Yesilyurtlu]

Ekli dosyada Firmaların verdiği teklife göre firmaları sıraya dizmek istiyorum.

Yardımcı olabilir misiniz?

 

[Emir Hüseyin Çoban]

Merhaba,

Ekteki dosyayı inceleyin.

Sub fiyat_sırala()
    Range("A11:D20").Select
    Range("D11").Activate
    Selection.Sort Key1:=Range("D12"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Çalışmanın son hali 4# nolu ileti ekindedir.

 

[Yesilyurtlu]

Eyvallah elinize sağlık. Bunu butona değil de hücrede veri değiştirip de entere basınca gerçekleştirilmesini sağlayabilir miyiz?

 

[Emir Hüseyin Çoban]

Elbette, ekteki dosyayı inceleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d12:d20")) Is Nothing Then Exit Sub
    Range("A11:D20").Select
    Range("D12").Activate
    Selection.Sort Key1:=Range("D12"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("D12").Select
    Sheets("sayfa2").Select
    Range("d65536").End(3).Offset(1, 0).Activate
End Sub

 

[Yesilyurtlu]

Ellerinize Sağlık
Teşekkür Ederim. Hakkınızı Helal Edin

 

[Emir Hüseyin Çoban]

Ellerinize Sağlık
Teşekkür Ederim. Hakkınızı Helal Edin

Rica ederim, forumdaki ustalarımız haklarını helal etsin.

 

[Emir Hüseyin Çoban]

Merhaba, #4 nolu iletideki kodlarda değişiklik yaptım inceleyiniz. Tabloda herhangi bir hücrede değişiklik yapınca kodlar çalışmaya başlıyordu. Sorun giderildi.