verileri nasıl çekebilirim?

[vetco120]

Merhaba,
Ekte .dat uzantılı dosyanın excel’e aktarılmış listesi yer almaktadır. Yapmak istediğim makro kullanarak liste adlı sayfada bir butona bastığımda veri adlı sayfadaki A sutunu “11111111” olan satırların B,D ve en son dolu olan hücrelerini yeni bir sayfada satır satır listelemek.


Anlaşılmak adına ekteki dosyada almak istediğim hücreleri renklendirdim.
Konuya yabancıyım yardımlarınızı bekliyorum.
Teşekkürler.

 

[mancubus]

aşağıdaki kodu bir butona atamak yeterli olur.

Sub uyanlari_aktar()

Dim wsVeri As Worksheet, wsListe As Worksheet
Dim ssat As Long, sut As Long, i As Long, j As Long
Dim krit

Set wsVeri = Worksheets("veri")
Set wsListe = Worksheets("liste")

krit = 11111111
j = 0
With wsVeri
    ssat = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = 1 To ssat
        If .Cells(i, "A").Value = krit Then
            j = j + 1
            wsListe.Cells(j, "A") = .Cells(i, "B")
            wsListe.Cells(j, "B") = .Cells(i, "D")
            sut = .Cells(i, .Columns.Count).End(xlToLeft).Column
            If sut > 4 Then 'B ve D sütununlarındaki veriler zaten aktarıldığından, en sağdaki dolu hücre D'den sonra ise aktar
                wsListe.Cells(j, "C") = .Cells(i, sut)
            End If
        End If
    Next
End With

End Sub

 

[vetco120]

çok teşekkür ederim, peki b sütunu için liste sayfasında tarih formatlı nasıl biçimlendiririm, tarih olmadığı için bozuk geliyor.

 

[mancubus]

rica ederim.

kodda en alttaki End Sub satırından önce gelmek üzere aşağıdaki satırı ekleyelim.

wsListe.Range("A1:A" & wsListe.Cells(Rows.Count, "A").End(xlUp).Row).NumberFormat = "dd.mm.yyyy"