AccessTr.neT

örnek sayfayı ekledim ustalar yardım edermisiniz[attachment=22042]

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[attachment=22044]

(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
[attachment=22051]

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