takip eden verilerin düzenlenmesi

Katılım
21 Eylül 2010
Mesajlar
31
Excel Vers. ve Dili
2016
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
 

Ekli dosyalar

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
Aşağıdaki kodu dener misiniz?
Kod:
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
 
Son düzenleme:
Katılım
21 Eylül 2010
Mesajlar
31
Excel Vers. ve Dili
2016
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.
 

Ekli dosyalar

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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.
 

Ekli dosyalar

Katılım
21 Eylül 2010
Mesajlar
31
Excel Vers. ve Dili
2016
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

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
...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.
Kod:
s1.Range("A2:D" & Rows.Count).Sort Key1:=[D2], Order1:=1
 
Katılım
21 Eylül 2010
Mesajlar
31
Excel Vers. ve Dili
2016
Yanlış mı anlıyorum sanırım 3. satırı silip son gönderdiğinizi yazmam gerekiyor di mi?
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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.
 
Katılım
21 Eylül 2010
Mesajlar
31
Excel Vers. ve Dili
2016
AYnı satırdan yokda o yüzden şaşırdım.
3. satırı silincede hata veriyor.
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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.
 
Katılım
21 Eylül 2010
Mesajlar
31
Excel Vers. ve Dili
2016
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
 
Üst