sıralama

[semih_can]

merhaba arkadaşlar
sorduğum soru çok basit olabilir ama excel e yeni başladım
ayrıca forumda arama yaptığımda çok komplike sonuçlar çıktı
benim yapmak istediğim şu

G sütünunu artan sıralama yapmak
tabi bunu otomatik olarak
-excel dosyası her açıldığında
-yeni bir giriş olduğunda
-herhangi bir hücrede değişiklik olduğunda

yapmak

yardımlarınız için tşk

 

[Fuat Şirin]

sub Auto_open
Range("A1:M65536").Select
Selection.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
end sub

bu kodları modül e yaz
ben a ile m arası aldım ama
olmazsa dosyanı ekle yapalım

 

[semih_can]

aslında oldu
ancak değerler değişince otomatik olarak sıralama yapmıyor
ben dosyayı ekledim

kısaca açıklamak gerekirse
ambarda stoklu malzemelerin durumunu gösteriyor
ekim ayı için
E sütunu stoktaki malzeme miktarını gösteriyor
F sütunu bu malzeme için minimum miktarın ne kadar olduğunu gösteriyor
G sütunu ise E-F eksik malzeme miktarını gösteriyor (koşullu biçimlendirme[G "0" dan küçükse] ile dolgu rengi kırmız&#305

ben stoka yeni malzeme aldığımda değer artı olacağı için dolgu rengi beyaz oluyor ama sıralama eski halinde kalıyor
her değişiklik için sıralama yapması gerekiyor kodun


umarım açıklama yeterlidir

 

[Fuat Şirin]

dosya ekte

düzeltmeyi yaptım
bir buton koydum
işiniz bittiğinde butona basarsanız
buton sıralamayı yapar

bunun üzerinde isteğinizi eklerseniz daha iyi olur
olduysa doğrudur

 

[semih_can]

konu ile ilgili bir kod buldum
yani otomatik sıralama için

bi yanlışlık var ama bulamadım

kod :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim whereIam As Range
Set whereIam = ActiveCell
If Intersect(Target, Range("A:M65536")) Is Nothing Then
Exit Sub
End If
Range("A1:M65536").Select
Selection.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:M65536")) Is Nothing Then Exit Sub
Range("A1:M65536").Select
Selection.Sort Range("G1")
Range("A1").Select
End Sub

 

[semih_can]

ikinizede çok teşekkür ederim
son derece güzel oldu

 

[Orion1]

ikinizede çok teşekkür ederim
son derece güzel oldu

Rica ederim.
İyi çalışmalar.

 

[28camgoz]

bende busıralamaları çok merak ediyorum, bu vermiş olduğunuz kodları nereye yazacam yardım edermisiniz?

 

[28camgoz]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:M65536")) Is Nothing Then Exit Sub
Range("A1:M65536").Select
Selection.Sort Range("G1")
Range("A1").Select
End Sub

bu kodları nereye yazacam ki otomatik sıralama yapsın...
İlginize şimdiden teşekkür ederim.