Y

Çözüldü Kodda Revize Tarihe Göre Sıralama

YasarPiskin

Yıllık Forum Üyesi
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
ThisWorkbook sayfasında var olan B11 hücresinden itibaren girilen verileri tarih sırasına sıralayan kodu çalıştıramıyorum. Bu kodun revize edilmesi hususunda yardımlarınızı rica ediyorum.
 

Ekli dosyalar

-- ŞABLON sayfasının kod bölümünde mevcut Worksheet_Change kod blokunda;
If Intersect(Targ.... satırının üstüne If Selection.Count > 1 Then Exit Sub şeklinde yeni bir satır ekleyin (şart değil, eklenmesi yerinde olur).
-- Thisworkbook bölümünde mevcut Workbook_SheetChange kod blokunda ilgili satırı
Range("B11:J" & s).Sort [B10], 1 şeklinde değiştirin.

Bu haliyle sorun olmaması gerekir.
 
Üst