For Next Döngüsü ile verileri aktarmak

[hakantb]

Değerli arkadaşlar karışık yazılmış sınıf listesinden istediğim sınıfın listesini For Next döngüsü ile almaya çalıştım ama alamadım dosya ektedir yardımlarınızı bekliyorum.

 

[apocalyt]

merhaba..ağağıdaki kodu deneyebilirsiniz..not: e ve f sutunlarındaki birleştirmeleri hücre birleştirmelerini her iki sayfadada kaldırınız..

Sub daylight()
Application.ScreenUpdating = False
Sheets(2).Range("a2:f1000").ClearContents
Set ben = Sheets(1).Range("a3:b" & Sheets(1).[a10000].End(3).Row).Find(Sheets(1).[g1], , , 1)
adr = Not ben Is Nothing
If adr = True Then
adr1 = ben.Address
End If
Do
Set ben = Sheets(1).Range("a3:b" & Sheets(1).[a10000].End(3).Row).FindNext(ben)
Sheets(1).Range("b" & ben.Row & ":e" & ben.Row).Copy
Sheets(2).Cells(Sheets(2).[b1000].End(3).Row + 1, 2).PasteSpecial
Loop While Not ben Is Nothing And ben.Address <> adr1
Sheets(2).Range("b2:e1000").Sort key1:=Sheets(2).Range("b2")
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[hakantb]

Sayın Apocalyt gösterdiğiniz ilgiye teşekkür ederim.
Bayramınızı en içten dileklerimle kutlar sağlık başarı ve mutluluklar dilerim.
Problemi çözdüm ilgi duyan için link aşağıda

http://www.excel.web.tr/f48/sayfa1-den-sayfa2-ye-veri-alma-t132117.html