2ci sf'daki no'yu 1ci sf'da ara,varsa bul , tüm satırı 3cü sayfaya kopyala

[cems]

Değerli arkadaşlar
Sayfa1 de belli tek bir veriyi ki bu cep tel no ;
Sayfa2 de aratmak ( bu sayfa bir adayın tum database'ini satır halinde ve
18000 kisi icin dizmiş durumda ve bu 30000 olacak.
Sayfa1deki cep no sunu sayfa2de bulduğu anda sayfa3e altalta
yazdırarak bir ayıklama gerçekleştirmem için makro kodu oluşturmamda
yardımcı olabilir misiniz?

ekte bunu anlatabilmek için basit bir örnek bulunmakta.
Bu karşılaştırmada bir problem şu ki ; değişik arkadaşların 2 yılda girmesinden
bazı nolar 0537 123 45 67
bazı nolar 537 1234567
bazı nolar 5371234567 yazılmış . Bu belki karşılaştırmada sorun ya da atlamaya sebep olur , bilmiyorum. Yazılış Biçimini bir sütun için Tekil hale getirmek (5371234567 gibi) için bir ön kod belki daha doğru olur ve daha sağlam sonuçlamak mümkün olur.

Desteklerinizi umuyorum
Saygılar

 

[cems]

zor degil biliyorum ama sanırım pazartesi etkisi , bilen arkadaşlar çok yoğun

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Dim sat As Long, i As Long, k As Byte
Sheets("Sayfa3").Select
Application.ScreenUpdating = False
Range("B5:E65536").Clear
sat = 5
For i = 5 To Sheets("Sayfa2").Cells(65536, "B").End(xlUp).Row
    If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("B5:B65536"), Sheets("Sayfa2").Cells(i, "B").Value) > 0 Then
        For k = 2 To 4
            Cells(sat, k).Value = Sheets("Sayfa2").Cells(i, k).Value
        Next k
            sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[cems]

Sayın Orion2
Vermiş olduğunuz kodları uyguladım , ilk anda çalışmadı ama sebebi kodlardan değil , korktuğum gibi numara dizimi problemi . 20 tane ayırarak denediğimde ayıkladı ve yazdı ama büyük listeye giremedim henüz . İki yolum var ya birkaç personele 0573 123 45 67 dizgisindeki tüm numaraları 5731234567 yapacaksınız demek ya da eğer ki bir sütun dolusu hücreler içinde bu birleştirmeyi yapabilecek bir kod yardımı daha rica etmek.
Böyle bir düzeltme için bir fikriniz varsa çok sevinirim
Teşekkür ederim , temel problemi sayenizde çözebildim , bir de bunu yapabilirsem arkadaşlarımı bezdirmemiş olurum .
Çok sağolun