Satırı sıraya dizme

[mest3651]

Merhaba Arkadaşlar. C sütunuda her satıra yazdığımız isim soyismini enter a bastığımızda otomatik isim sırasına göre sıraya dizdirebilirmiyiz. satırdaki bilgilerde ona bağlı olarak atacak. Teşekkürler.

 

[Ömer BARAN]

Merhaba.

Doğru ve kesin sonuç için örnek belge üzerinden gitmek gerekir ancak şunu söyleyeyim.

Sayfadaki tablonun A sütun aralığında yer aldığı düşünülürse,
sayfaya veri girişi yapılırken (C sütununa ELLE VERİ GİRİŞİ YAPILDIĞI varsayımıyla),
satırdaki verilerden EN SON C SÜTUNUNDAKİ bilgi yazılmak kaydıyla aşağıdaki kodu kullanarak
istediğiniz sonuç alınabilir.

-- Alt taraftan işlemin uygulanacağı sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
.

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then Exit Sub
Range("[B]A2:D[/B]" & Cells(Rows.Count, "A").End(xlUp).Row).Sort Key1:=[C1], Order1:=[B][COLOR="Red"][SIZE="5"]1[/SIZE][/COLOR][/B] [COLOR="Blue"]'**AZALAN SIRALAMA İÇİN [B][COLOR="Red"][SIZE="5"]2[/SIZE][/COLOR][/B][/COLOR]
[B]End Sub[/B]

 

[mest3651]

Teşekkür ederim. Birleiştirilen hücrelerin aynı boyutta olması gerekir hata değeri veriyor. Bunu nasıl düzeltebiliriz. C sütunundaki Hücreler aynı boyutta

 

[mest3651]

Bu dosyaya uyarlamak istiyorum. Saolun.

 

[Ömer BARAN]

Tekrar merhaba.

Birleştirilmiş hücrelerle uğraşmak her zaman sorunludur.
Hücre birleştirmelerinden kaçınmanızı öneririm.

Forumda birleştirilmiş+alfabetik+sıralama şeklinde arama yaparsanız belki benzer bir konu bulabilirsiniz.
.