A ' dan z ' ye sıralama sorunu

[ramo-62]

Selam arkadaşlar
Önümüzde excel sayfası.Yazdık.A 'dan Z 'ye sırala dedik.Ama listede (NAMI DEĞER ÖZLÜK DOSYASI)Sütun ve satır sayısını bir düşünün.Amacımız arşive gitmeden EXCEL 'den görmek.Güzel fikir ama bakıyorum Z harfiyle yada başka harf listenin başında.Şimdi ne yapsakta ad/soyad yazılırken harf yerine boşluk yada noktalama ile yazamasak.

NOT:Bu hatayı enter esc filan deyip KESİNLİKLE yapamasak,yani doğrusunu yazıncaya kadar.Formül bize asla izin vermese.

 

[Galus]

Veri => Metni sütunlara dönüştür. Sorun neyse boşluk veya virgül metinleri düzenleyip sonra tekrar birleştirmek ve de sıralatmak lazım gibime geldi.

 

[Orion1]

Aşağıdaki kodları ilgili çalışma sayfasının kod bölümüne yazınız.
Bir hücreye değer girdiğinizde Girilen verinin ilk harfi boşluk veye nokta olamaz diye ikaz verir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Left(Target.Value, 1) = " " Or Left(Target.Value, 1) = "." Then
    cancel = True
    Target.Select
    MsgBox "Yazdığınız Veride Boşluk Veya Nokta olamaz..!!", vbCritical
    Exit Sub
End If
hata:
End Sub

 

[ramo-62]

Üstadım orion2 uyarı tamam , ent+ent yapınca yazıyo.
Amaç asla yazamamak.

 

[Orion1]

Üstadım orion2 uyarı tamam , ent+ent yapınca yazıyo.
Amaç asla yazamamak.

Aşağıdaki kodları denermisiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Left(Target.Value, 1) = " " Or Left(Target.Value, 1) = "." Then
target.value=empty
cancel = True
Target.Select
MsgBox "Yazdığınız Veride Boşluk Veya Nokta olamaz..!!", vbCritical
Exit Sub
End If
hata:
End Sub

 

[ramo-62]

Sayın orion2
Tabikiiiiiiiiiiiiiiiiiiiiiiiiii tamam hiç şaşırmadım.
Çoooooooooook teşekkürler.
Saygılarımla.

 

[Orion1]

Sayın orion2
Tabikiiiiiiiiiiiiiiiiiiiiiiiiii tamam hiç şaşırmadım.
Çoooooooooook teşekkürler.
Saygılarımla.

Rica ederim.
İyi çalışmalar.