örnek sayfayı ekledim ustalar yardım edermisiniz

Anladığım kadarıyla,
Sayfa1 deki A sütünu G sütünuna eşitse
Sayfa2 ye tcno,id ve telno yu aktarsın
Sayfa1 deki AKTAR Butonuna tıklayın
Makro çalışmassa Makro güvenlik seviyesini kontrol ediniz

Dosya ektedir

(12/02/2015, 20:40)cemil_orhan yazdı: Dosya ektedir

yardım için tşk ederim ama benim demek istediğim A SÜTÜNU 1-656350 sonuna kadar G sütununa eşitse ,Sayfa2 ye A,B ve H hücresini aktarması

(13/02/2015, 14:52)yok_06 yazdı:

(12/02/2015, 20:40)cemil_orhan yazdı: Dosya ektedir

yardım için tşk ederim ama benim demek istediğim  A SÜTÜNU 1-656350 sonuna kadar  G  sütununa eşitse ,Sayfa2 ye A,B ve H hücresini aktarması

Bence 65536 kadar makroyu çalıştırmak zaman alır
Bunun yerine dolu hücre sayısı kadar işlem yaptırmak daha mantıklı olur,
dosya ektedir

usta yardımın için çok teşekkür ama ben anlatamadım sanırım

Sub aktar()
For i = 2 To 65536
Sheets("Sayfa2").Cells(i, 1) = ""
Sheets("Sayfa2").Cells(i, 2) = ""
Sheets("Sayfa2").Cells(i, 3) = ""
If Sheets("Sayfa1").Cells(i, 1) = Sheets("Sayfa1").Cells(i, 7) Then satırda 1inci sutünün 1inci satırını 7inci sutünün 7inci satırını eşleştiriyo sorun burda sanırım 1 sutun 1 satır 7 sutunda aratmak istiyorum eğer doğruysa sayfa 2 ye almak istiyorum
Sheets("Sayfa2").Cells(i, 1) = Sheets("Sayfa1").Cells(i, 1)
Sheets("Sayfa2").Cells(i, 2) = Sheets("Sayfa1").Cells(i, 2)
Sheets("Sayfa2").Cells(i, 3) = Sheets("Sayfa1").Cells(i, 8)
End If
Next i
MsgBox "Aktarım Tamam", , "Aktarım..........."
Sheets("Sayfa2").Select
End Sub