listeleme hk.

[nongeyikm]

Sn. Üstadlarım,

Ekteki excel sayfasında belirttiğim verilerin yine belirtilen formatta listelenmesine ihtiyacım var. Yardım edebilirmisiniz.

Saygılarımla,

 

[Necdet]

Merhaba,

Aynı kilometreden bir başka satır olursa ne olacak? Yoksa örnekteki verinin istediğiniz gibi düzenlenmesini mi istiyorsunuz?

 

[nongeyikm]

Aynı km. olabilir farketmez. Verilen değerleri aynı sırala listelesin.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Not : Başlıkların Birinci Satırda Olduğu Varsayılmıştır. Değilsi döngüdeki i değişkeninin başlangıç değerini siz belirtiniz.

Sub Duzenle()

    Dim s1  As Worksheet, _
        s2  As Worksheet, _
        i   As Long, _
        j   As Long
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    j = s2.Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    If j < 2 Then j = 2
    
    s2.Range("A2:E" & j).ClearContents
    
    j = 0
    
    For i = 2 To s1.Cells.Find("*", , , , xlByRows, xlPrevious).Row
        j = j + 2
        s2.Cells(j, "A") = s1.Cells(i, "A")
        s2.Cells(j, "B") = s1.Cells(i, "B")
        s2.Cells(j + 1, "B") = s1.Cells(i, "C")
        s2.Cells(j, "C") = s1.Cells(i, "D")
        s2.Cells(j + 1, "C") = s1.Cells(i, "E")
        s2.Cells(j, "D") = s1.Cells(i, "F")
        s2.Cells(j + 1, "D") = s1.Cells(i, "G")
        s2.Cells(j, "E") = s1.Cells(i, "H")
        s2.Cells(j + 1, "E") = s1.Cells(i, "I")
    Next i
    
    MsgBox "İŞLEM TAMAMLANMIŞTIR...", vbInformation, "www.excel.web.tr"
    
End Sub

 

[nongeyikm]

Sn. Necdet,

hata alıyorum.

İnceleyebilirmisiniz

 

[Necdet]

Merhaba,

Sayfa2 de başlıkları eklerseniz hata almazsınız.

 

[tahsinanarat]

Sn. nongeyikm, sayfa2 nin a sütununda herhangi bir hücrenin dolu olmasını sağlayın, satır başlığının alınması içinde

For i = 1 To s1.Cells.Find("*", , , , xlByRows, xlPrevious).Row

For i = 2 yi 1 olarak değiştirin

 

[tahsinanarat]

Sn. Necdet hocam affedersiniz cevabınızı ben gönderdikten sonra gördüm. Kusura bakmayın lütfen.

 

[Necdet]

Rica ederim Sayın tahsinanarat.
Saygılar.

 

[nongeyikm]

Çok çok teşekkür eder saygılar sunarım.

Kalın sağlıcakla,