takip eden verilerin düzenlenmesi

[onurfesel]

Merhaba,
Örnek dosyada bulunan veriler gibi 1000lerce verim var.Bunları D sütununa göre düzenlemem gerekiyor.Yapmak istediğim D sütununda birbirini takip eden aynı verileri tek satır olarak yazdırmak.A sütunu aynı kalacak B sütunundaki küçük veriyi C sütunundaki büyük vereyi alacak.Olmasını istediğim son hal MAvi dolgulu kısım.
YArdımcı olursanız sevinirim

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Aktar()
Set s1 = Sheets("Sheet1")
x = 0
For i = 2 To s1.Range("D" & Rows.Count).End(3).Row
    If s1.Cells(i, 4).Value = s1.Cells(i + 1, 4).Value Then
      x = x + 1
    Else
        k = WorksheetFunction.Min(Range("B" & i - x & ":B" & i))
        b = WorksheetFunction.Max(Range("C" & i - x & ":C" & i))
        ss = s1.Range("H" & Rows.Count).End(3).Row + 1
        Cells(ss, 8).Value = Cells(i, 1).Value
        Cells(ss, 9).Value = k
        Cells(ss, 10).Value = b
        Cells(ss, 11).Value = Cells(i, 4).Value
        x = 0
    End If
Next i
MsgBox "Aktarma Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[onurfesel]

Teşekkür ederim, asıl dosyama uygulamaya çalışınca biraz sorun yaşadım, macro bilmediğim için düzeltemedimde.Dosyanın aslını yolluyorum, bakabilirseniz çok sevinirim.

 

[dEdE]

Merhaba,
Asıl dosyanız örnek dosyanızdan farklı.
-Bu nedenle Plotcode sütununu sıralamak gerekli. Sıralama yapmadan bulunacak çözüm uzun ve zor olacaktır. Sıranın değişmesi sizin için önemli mi?

Aynı Plotcode sahip olup Hole_ID si farklı olan satırlar var.
- Örneğin Plotcode _Ox olan birden fazla satırda Hole_ID ler farklı. Bu nedenle "...A sütunu aynı kalacak B sütunundaki küçük veriyi C sütunundaki büyük vereyi alacak..." ise bazı Hole_ID ler liste dışı kalacaktır. Bu önemli mi?

Eğer bunların önemi yoksa dosyanız ilişiktedir.

 

[onurfesel]

evet ne yazıkki önemli...sadece birbirini takip eden aynı plotcod aralıklarının birleşmesi gerekli..HoleIdye göre manuel olarak filtreleme yaparak çalıştırsak..Her çalışmadan sonra çıkan sonucu manuel başka sheete yapıştırmakta bir yol olabilir.Bu durum için çalışacak bir makroda işimi görür.

 

[dEdE]

...sadece birbirini takip eden aynı plotcod aralıklarının birleşmesi gerekli...

Bu durumda kodun 3. satırını (sıralama yapan) sildikten sonra dosyanızın yedeğini alıp dener misiniz?
Silinecek satır aşağıdadır.

s1.Range("A2:D" & Rows.Count).Sort Key1:=[D2], Order1:=1

 

[onurfesel]

Yanlış mı anlıyorum sanırım 3. satırı silip son gönderdiğinizi yazmam gerekiyor di mi?

 

[dEdE]

Yanlış mı anlıyorum sanırım 3. satırı silip son gönderdiğinizi yazmam gerekiyor di mi?

Merhaba,
Yanlış anlaşıldı. Son gönderdiğim 3. satır. Yanlış anlaşılmasın karşılaştırma yapılsın diye silinecek satırı eklemiştim. Herhangi bir ek yapılmayacak. Sıralama yapan satır çıkarılacak.
Hoşçakalın.

 

[onurfesel]

AYnı satırdan yokda o yüzden şaşırdım.
3. satırı silincede hata veriyor.

 

[dEdE]

Merhaba,
Söz konusu satır 4. mesaja eklediğim dosyadaki kodların içinde.
Siz ".. makro bilmediğim için düzeltemedim.." dediğiniz için dosya eklemiştim. Aslında 2. mesajdaki kodları aynısı sadece bir satrır eklemiştim. Sıralama olmayacak dedğiniz için sıralama satırını çıkarmıştım.
2. mesajdaki kodlarda ne gibi bir sorun yaşadığınızı belirtirseniz yardımcı olmaya çalışalım.

 

[onurfesel]

O eklentiyi fark etmemişim.O satırı çıkartınca sanırım ilk gönderdiğinizle aynı oluyor.
Çok teşekkür ederim, kontrol edebildiğim kadarıyla şu an için bir sıkıntısı yok,sadece HoleID'leri farklı olan PostCodelar aynı ve birbirini takip ediyor oluyorsa sorun çıkıyor.Belki koşul olarak HoleID aynı olmalı gibi birşey eklenebilirse düzebilir.
Bu hali bile işimi çok kolaylaştırdı.
Çok teşekkürler