DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhabaİhsan bey;
ben ilk verileri p sütununa kadar giriyorum p sütunundan sonraki verileri daha sonra giriyorum.
ama sizin dediğinizi anladım sizin kod tablosunda b - p sütunlarının arasını sıraya sokuyor. o zaman ben tablomu değiştireyim. p sütunundan sonraki verileri p sütunundan önceye alayım ve gizleyim görünmesin böylece onlarda sıraya girer.
şimdi p sütunundan sonraki verileri N ve AD sütununun arasına ekleyerek gizledim. siz kodu AE sütununa son veriyi girecek gibi yapabilir misiniz? Yeni tabloyu ekledim.
Çoook teşekkür ederim.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3:P" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 16 Then
Range("B3:P" & Cells(65536, "B").End(xlUp).Row).Sort key1:=Range("F3"), key2:=Range("P3")
End If
End Subİhsan Hocam,olabilir isterseniz bir örnek dosya ekleyin bakalıom
kod olarak bu işinizi görürİhsan Hocam,
Örnek Ekte J Sutunundaki Tarihe göre sıralamak istiyorum.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:O" & Cells(65536, "A").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 15 Then
Range("A5:O" & Cells(65536, "A").End(xlUp).Row).Sort key1:=Range("J5"), key2:=Range("O5")
End If
End Subbirleştirilmiş hücre kullanmamalısınız. ondan kaynaklanıyorİhsan Bey;
Sizin dediğiniz gibi P sütununa son veriyi girince sarı olan sütunlar karıştı.
Benim dediğim gibi sarı alanların yerini değiştirip gizleyince son veriyi AE olarak ayarlamak için verdiğiniz kodtaki P harflerini AE yapmak yeterli olur mu?
Bir başka konuda veri girerken hiç boş hücre olmayacak değil mi?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3:AE" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 16 Then
Range("B3:AE" & Cells(65536, "B").End(xlUp).Row).Sort key1:=Range("F3"), key2:=Range("P3")
End If
End SubOlmadı hocam çalışmıyor sizde bakarsaanız 28-29 satırdaki veriler hala yerlerinde duruyor.kod olarak bu işinizi görürKod:Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A5:O" & Cells(65536, "A").End(xlUp).Row)) Is Nothing Then Exit Sub On Error Resume Next If Target.Column = 15 Then Range("A5:O" & Cells(65536, "A").End(xlUp).Row).Sort key1:=Range("J5"), key2:=Range("O5") End If End Sub
birleştirilmiş hücre kullanmamalısınız. ondan kaynaklanıyor
kod'u'da bununla değişin
Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B3:AE" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub On Error Resume Next If Target.Column = 16 Then Range("B3:AE" & Cells(65536, "B").End(xlUp).Row).Sort key1:=Range("F3"), key2:=Range("P3") End If End Sub
problem yok bendeOlmadı hocam çalışmıyor sizde bakarsaanız 28-29 satırdaki veriler hala yerlerinde duruyor.
rica ederimİhsan Bey;
Verdiğiniz bu son kodla tam istediğim gibi oldu.
Çok teşekkür ederim Allah ne muradınız varsa versin.
Evet Ben hiç veri girmeden denemiştim olmuyordu en alta yeni veri girdiğimde çalıştı.problem yok bende
buda dosyanız
rica ederimEvet Ben hiç veri girmeden denemiştim olmuyordu en alta yeni veri girdiğimde çalıştı.
Teşekkürler.
merhabaHocam Gene Olmadı Kendi Listeme uyguladığımda Hata Alıyorum size Kendi Dosyamı Gönderiyorum bakabilirmisiniz.
Teşekkürler
bunun sebebi 2007 ve üstü sürümlerde makro'yu normal dosya şeklinde kayıt yapamıyoruz yeni bir özellik olan .xlsm olarak kaydetmemiz gerekiyor. bunun için lütfen tıklayınİhsan bey;
yardımlarınız için çok teşekkürler birşey sormak istiyorum. Verdiğiniz kod sorunsuz çalışıyor. Benim dosyamda 10 farklı sayfa var ben hepsine sağ tıklayıp kod görüntüle kısmına verdiğiniz kodu yapıştırdım. her seferinde de kayıt ettim. dosyayla işim bitip kapattıktan sonra tekrar açınca kodlar yok oluyor. Kapatırken kayıt sırasında aşağıdaki gibi bir uyarı veriyor.
Aşağıdaki özellikler makro içermeyen çalışma kitaplarına kaydedilemez.
*VB Projesi
Dosyayı bu özelliklerde kaydetmek için HAYIR'ı tıkladın ve ardından Dosya Türü listesinde makro özelliği etkinleştirilmiş bir dosya türü seçin.
Makro içermeyen çalışma kitabı olarak kaydetmeye devam etmek için EVET'i seçin
Hocam Listeyi inceledim ama bütün dosya bozulmuş. Ben gene eskisi gibi kullanmaya devam etsem iyi olacak.merhaba
eki inceler misiniz
rica ederimteşekkürler sanırım çözdüm.
Dosyayı 2003 olarak kayıt ettim makro güvenliğinide orta seviyeye çektim oldu.
Sadece dosyayı açarken makro etkinleştirme soruyor evet deyince düzgün şekilde kodları uyguluyor
sorunuzu yeni gördümHocam Listeyi inceledim ama bütün dosya bozulmuş. Ben gene eskisi gibi kullanmaya devam etsem iyi olacak.
Yardımlarınız için Teşekkürler.