Verileri teke düşürme

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim Sayfa1'de C sütunundaki verilere göre yinelenenleri kaldır dediğimde
C sütunundaki verilere göre B sütunundaki verileri teke düşürüp en sondaki veriyi ilk
verinin altına yazmasını istiyorum.

Excelin kendi yinelenenleri kaldır dediğimde bütün verileri teke düşürüyor, ben bu şekilde istemiyorum.

Yardımcı olur musunuz?

http://dosya.co/i6rhxsfp4p62/ÖRNEK.xlsm.html
.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.
.

[B]Sub H_ALANI_AYIR_BRN[/B]
son = Cells(Rows.Count, 1).End(3).Row
Columns("F:H").ClearContents
Range("A1:C1").Copy [F1]
Columns("A:C").AutoFit
For sat = 2 To son
    If Cells(sat, "C") <> Cells(sat - 1, "C") Then
        ilk = sat
        For satt = sat To son
            If Cells(satt, "C") <> Cells(satt + 1, "C") Then
                metin = Cells(ilk, 2).Text & Chr(10) & Cells(satt, 2).Text & " arası"
                fsat = Cells(Rows.Count, "F").End(3).Row + 1
                Cells(fsat, "F") = Cells(ilk, 1): Cells(fsat, "G") = metin
                Cells(fsat, "H") = Cells(ilk, 3): sat = satt: Exit For
            End If: Next: End If: Next
Columns("G:G").ColumnWidth = 22: Columns("F:H").AutoFit
Range("F1:H" & Cells(Rows.Count, "F").End(3).Row).Borders.LineStyle = xlContinuous
MsgBox "İşlem tamamlandı.."
[B]End Sub[/B]

 

[ASLAN7410]

Sayın Ömer Bey hayırlı sabahlar, ilginize çok teşekkür ediyorum.

Ellerinize sağlık kod gayet güzel çalışıyor, bu kodu sadece Sayfa1'de çalışması için nereleri değiştirmem gerekiyor.

 

[Ömer BARAN]

Sadece Sayfa1 derken!...
Sonuçlar nereye yazılacak?

 

[ASLAN7410]

Sayın Ömer Bey aynı sayfaya yazmasını istemiştim.

 

[ASLAN7410]

Sayın Ömer Bey örnek içinde kod güzel çalışıyor, kodu kendi orjinal sayfama uyguladığımdaaşağıdaki kısmı sarıya boyuyor.

WorksheetFunction sınıfının Match özelliği alınamıyor şeklinde uyarı geliyor.

ilk = WorksheetFunction.Match(s1.Cells(brn, 4), s1.Range("D:D"), 0)

 

[ASLAN7410]

Sayın Ömer Bey, orijinal verilerimi göndermiş olduğum örneğin içerisine yapıştırıp kodu çalıştırdığımda ekte gönderdiğim hatayı alıyorum.

 

[ASLAN7410]

Arkadaşlar konu günceldir.

 

[Ömer BARAN]

Önceki kod cevabımı güncelledim.
Kod'u Sayfa1'in kod bölümüne yapıştırıp, çalıştırın.
(alt araftan Sayfa1 adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçince açılan ekranın sağındaki boş alan)
Veiler aynı sayfa F1 hücresinden itibaren yazılır.
.

 

[ASLAN7410]

Sayın Ömer Bey ellerinize sağlık tam istediğim gibi olmuş, Allah razı olsun.

Kodu orijinal bir örnekte denedim sorun yok. Başka sayfalarda deneyeceğim, İnşaAllah bir sorun çıkmaz.

Konu hakkında geri dönüş yapacağım. Hayırlı günler hayırlı çalışmalar dilerim.