Son Değeri Girince Yandaki Satırları Sıralama

[Ali Faruk]

Arkadaşlar benim bir tablom var. Bu tablomda bir satırda bir çok veri giriyorum ama belli bir hücreye son veriyi girdiğimde o satırdaki tüm verileri uygun adres sırasındaki yerine taşıyor buraya kadar sorun yok. Ama ben alt alta birçok veri girince ve ilk satırın son hücresine değeri girince alttaki satırlarıda uygun adres sırasındaki yerlerine taşıyor ben bunu istemiyorum sadece son değerini girdiğim satırın uygun adres sırasına taşınmasını istiyorum.

Dosyam ekte zaten parlak yeşille işaretlediğim yere 5 haneli bir değer girerseniz o satırı adres sırasındaki uygun yerine güzelce taşıyor.

Ama sıkıntı son değerini girmediğim verileride adres sırasındaki yerine taşıması.

Benim istediğim her satırın son değerini girdikçe adres sırasına taşıması

Not : Bana bu tabloyu bu forumdan İHSAN TANK usta kod yazarak oluşturmuştu.
Dosyayı açarken " Makroları Etkinleştir " mutlaka seçilmeli

 

[İhsan Tank]

Merhaba
Öncelikle kod benim değil Orion1 hocama ait kod.
Sorunuzun ne olduğu anlamadım o kadar yazmışsınız ama sonuç boş

 

[Ali Faruk]

kusura bakmayın anlatamadım. İhsan ustam ekteki dosyanın en sonunda 6 adet adres mevcut.

N2775 hücresine değeri girince sadece bulunduğu satırı adres sırasına taşımıyor altındaki değerleride adres sırasına taşıyor. Benim istediğim her satıra tüketim noktasını girdikçe sadece kendi satırını adres sırasına taşısın.

 

[Ali Faruk]

İhsan Ustam yardımcı olabilir misin?

 

[İhsan Tank]

kusura bakmayın anlatamadım. İhsan ustam ekteki dosyanın en sonunda 6 adet adres mevcut.

N2775 hücresine değeri girince sadece bulunduğu satırı adres sırasına taşımıyor altındaki değerleride adres sırasına taşıyor. Benim istediğim her satıra tüketim noktasını girdikçe sadece kendi satırını adres sırasına taşısın.

Bu istediğiniz otomatik yazınca sıralasın şeklinde olmaz. Ama bir butonla bu istediğiniz gerçekleşir.

 

[İhsan Tank]

Buyrun otomatik kodu bu

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B10:AC" & Cells(65536, "N").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 14 Then
Range("B10:AC" & Cells(65536, "N").End(xlUp).Row).Sort key1:=Range("F10"), key2:=Range("N10")
End If
End Sub