Hücredeki kritere göre aktarma

[recepm]

Selam, dün gece epey uğraştım fakat beceremedim döngüyü yardımcı olur musunuz ?





Ekli dosyayı görüntüle Book2222i.xls

 

[suleyman242]

Tekrar Gidecek Ve Ok kelimelerini büyük küçük duyarlı yaz ayrıca "I" sutununda arama yapıcaksın galiba dosyayı incelermisin.

 

[recepm]

Tekrar Gidecek Ve Ok kelimelerini büyük küçük duyarlı yaz ayrıca "I" sutununda arama yapıcaksın galiba dosyayı incelermisin.

Hocam tarih kriteri iyi ama diğerleride olması cok cok işimi kolaylaştıracak başka verilerde çekeceğim bu çalışmanın içinde sütün yazdığımda çok şık olacak anlayacağınız..

 

[recepm]

Yokmu yardımcı olacak ?

 

[recepm]

Selam, bu konu herkezin çok işine yarayacağına eminim arkadaşlar yardımcı olur musunuz ?

 

[Orion1]

Dosyanız ektedir.

Sub aktar()
   Application.ScreenUpdating = False
   y = 2
   Sheets(2).Range("a2:g100").ClearContents
For x = 2 To Sheets("2013.Hasarlı.Listesi").Cells(Rows.Count, "ı").End(3).Row
    If Sheets("2013.Hasarlı.Listesi").Cells(x, "A").Value = Range("K1").Value And _
            Sheets("2013.Hasarlı.Listesi").Cells(x, Range("L1").Value) = Range("M1").Value Then
        Sheets(2).Cells(y, "a") = Sheets("2013.Hasarlı.Listesi").Cells(x, "a")
        Sheets(2).Cells(y, "b") = Sheets("2013.Hasarlı.Listesi").Cells(x, "b")
        Sheets(2).Cells(y, "c") = Sheets("2013.Hasarlı.Listesi").Cells(x, "c")
        Sheets(2).Cells(y, "d") = Sheets("2013.Hasarlı.Listesi").Cells(x, "d")
        Sheets(2).Cells(y, "e") = Sheets("2013.Hasarlı.Listesi").Cells(x, "e")
        Sheets(2).Cells(y, "f") = Sheets("2013.Hasarlı.Listesi").Cells(x, "f")
        Sheets(2).Cells(y, "g") = Sheets("2013.Hasarlı.Listesi").Cells(x, "g")
        y = y + 1
    End If
Next x
y = 0
Application.ScreenUpdating = True
MsgBox "TAMAMLANDI" & vbLf & _
    "R.M.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[recepm]

Evren Hocammm ellerinize süpersiniz .. Birgün bende İnş. kod yazıp birilerine yardım edebilecek düzeye gelirim. Şu olaya bayılıyorum

Dosyanız ektedir.cool