Alfabetik Sıralama Yapan VBA Kodu Yazma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

YasarPiskin

VIP Üye
Kullanıcı
Katılım
6 Ara 2016
Mesajlar
2,059
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Bu konu ile ilgili açılan talepte sorun çözülmüş idi fakat sorun tekrar etmeye başlayınca tekrar konu açmak zorunda kaldım. Sorum şu idi D8: F aralığına girilen bilgileri E sütununa veri girilince alfabetik sıralamayı sağlan mevcut kodun, E sütununa veri girilince değil de F sütununa veri girilince alfabetik sıralamanın sağlanması için mevcut kodların düzenlenmesi hususunda yardımlarınızı rica ediyorum.​
 
Makrolar ile Alfabetik Sıralama
SQL Server Bağlantı Hatasını Çözme
SQL Server Bağlantı Hatasını Çözme

Ekli dosyalar

Çözüm
Ömer BARAN
Sorun nedir anlayamadım.

-- Önce, kodun baş tarafındaki ilgili satırı şöyle değiştirin ve denemeler yapın.
If Intersect(Target, Range("F8:F407, F409:F508")) Is Nothing Then Exit Sub

-- Ardından da, koddaki şu satırların SOL BAŞINA TEK TIRNAK işareti ekleyerek denemeler yapın.
ElseIf Target.Column = 5 And Cells(Target.Row, 6).Value = "" Then
Range("H" & Target.Row & ":AL" & Target.Row + 1).ClearContents
SIRALAMA

Yani sorun veri girişi sırasında mı oluşuyor, yoksa H-AL sütunlarındaki bilgilerin TEMİZLENMESİ kısmıyla mı ilgili onu anlayalım bakalım.
Tarihe göre sırala Oylamaya göre sırala
Sorun nedir anlayamadım.

-- Önce, kodun baş tarafındaki ilgili satırı şöyle değiştirin ve denemeler yapın.
If Intersect(Target, Range("F8:F407, F409:F508")) Is Nothing Then Exit Sub

-- Ardından da, koddaki şu satırların SOL BAŞINA TEK TIRNAK işareti ekleyerek denemeler yapın.
ElseIf Target.Column = 5 And Cells(Target.Row, 6).Value = "" Then
Range("H" & Target.Row & ":AL" & Target.Row + 1).ClearContents
SIRALAMA

Yani sorun veri girişi sırasında mı oluşuyor, yoksa H-AL sütunlarındaki bilgilerin TEMİZLENMESİ kısmıyla mı ilgili onu anlayalım bakalım.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt