Makro ile satırları merge etme

[comanndos]

Merhabalar Üstat'lara bir sorum olacak

resimdeki gibi bir excel sayfam var

06 FP 4550 PLAKASINA AİT 25 SATIR VAR (bu 1000 satırda olabilir)

amacım bu plakaya ait verileri birleştirmek ve tek satıra indirmek şöyle ki

06 FP 4550 PLAKASINA AİT son satırdaki konum F2'ye gelsin
06 FP 4550 PLAKASINA AİT son satırdaki tarih I2'ye gelsin
06 FP 4550 PLAKASINA AİT son satırdaki saat J2'ye gelsin
06 FP 4550 PLAKASINA AİT mesafe kolonu toplanıp D2'ye yazılsın.

bu işlemler bittikten sonra tüm satırlar silinsin.

aynı işlemleri diğer plakalar için yapmaya devam etsin kaç plaka var ise

plakalar örnek veriyorum 06 FP 4550 2 ile 26. satırlardaysa sayfa 10bin satır olsa bile sonuna kadar başka hiç bir yerde karşımıza çıkmaz

işin açıksası çok araştırdım ancak hakkından gelemedim yardımcı olursanız sevinirim. herkese şimdiden teşekkürler

 

[askm]

Örnek dosyanızı yüklerseniz yardımcı olmaya çalışalım.

 

[askm]

Sanki bir de resme göre açıklama da eksik gibi. Sadece ilk plakayı istiyormuşsunuz gibi anlatılmış. Plakaların son konumları ile alt alta listelemek değil mi amacınız. Yani
F2 = 06 FP 4550 ise
F3 = 06 PF 5440 şeklinde devam edecek. Tabi diğer bilgilerde yanlarında diğer hücrelerde.

 

[comanndos]

Sanki bir de resme göre açıklama da eksik gibi. Sadece ilk plakayı istiyormuşsunuz gibi anlatılmış. Plakaların son konumları ile alt alta listelemek değil mi amacınız. Yani
F2 = 06 FP 4550 ise
F3 = 06 PF 5440 şeklinde devam edecek. Tabi diğer bilgilerde yanlarında diğer hücrelerde.

merhabalar hocam
doğrudur anlatamamış olabilirim ama her plaka için işlemi tekrarlamasını istiyorum
yani tam olarak sizin dediğiniz gibi

question.xls - 792 KB

nihai halininin böyle olmasını istiyorum


dosya linkini koydum cevap olarak dosya ekleyemiyorum sebebini bilmiyorum bunun içinde kusura bakmayın

 

[askm]

Verilerini bu şekilde sıralı mı?

 

[comanndos]

verilerim bu şekilde sıralı geliyor bana

10bin satır falan oluyor bir sürü farklı plaka
tek sabit olan yanı şu tablonun

a2 deki plaka'ya ait toplam satır 1000 ise (az da fazla da olabilir)
a1002'e kadar aynı plaka yazar a1003 de başka plaka gelir ve a2 a1002 de yazan plaka bir daha karşımıza çıkmaz

kısaca

x Plakasına ait tüm satırların bulunup mesafe sütununun toplanarak yazılması ve x plakasına ait son satırın bulunup ilgili verilerin yanyana getirilmesi işlemini yapmak istiyorum kısaca

dilim anlatmaya bu kadar dönüyor hocam kusura bakmayın söylediklerinizi yanlışta anlıyor olabilirim

 

[askm]

Aşağıdkai kodları bir modüle yapıştırıp deneyin.

Sub ASKM_Ozetle()
Dim SonSat1, SonSat2 As Long
SonSat1 = Range("A" & Rows.Count).End(xlUp).Row
SonSat2 = Range("A" & Rows.Count).End(xlUp).Row
For i = SonSat1 To 2 Step -1
toplam = WorksheetFunction.SumIf(Range("A2:A" & i), Cells(i, 1), Range("D2:D" & i))

    For x = SonSat2 To 2 Step -1
        say = WorksheetFunction.CountIf(Range("A2:A" & SonSat2), Cells(x, 1))
        If say > 1 Then
            Rows(x).Delete
            i = i - 1
            SonSat2 = SonSat2 - 1
        Else
            GoTo 10
        End If
    Next x
10:
   Cells(i, 4) = toplam
   SonSat2 = SonSat2 - 1
Next i
MsgBox "Veriler özetlendi...", vbInformation, "ASKM"
End Sub

 

[comanndos]

evet üstadım aynen yaptı çok teşekkür ederim tek bir şey kaldı

x plakasının son satırında
x plakasının son konumu tarihi ve saati var onları da ilk satırın yanına getirebilirseniz
inanılmaz bir şeyden kurtulacağım sayenizde

 

[askm]

Zaten kodun mantığı son satırdan başlıyor bir önceki satır ile aynı ise satırı siliyor. Yani son satır konumu kalmıyor mu? Asıl dosyanızı buradan paylaşmak istemiyorsanız askmadige34@hotmail.com adresine mail olarak atın asıl dosya üzerinden kontrol edeyim. Burada veriler hep aynı olunca tam anlaşılmıyor sanırım.