Aynı verileri bulup yazma. destek

[plesk]

Merhaba arkadaşlar.


a-b-c sütününda 50000 tane veri var G Sütünunda da aranacak veriler var. istediğim şu G1 deki veriyi b sütününda tamamen arasın o 5000 verinin arasında bulduğu satırı a-b-c olarak alıp boş olan h sütününa yazsın.

50000 verinin içinde aktif olan 5000 veri var bunları bulup boş bir yere yazdırmak istiyorum komple teşekkürler.




foruma 7 yıl önce kayıt olmuşum kısmet bugüneymiş.saygılar sevgiler.

 

[Zeki Gürsoy]

Deneyin....

[SIZE=2]Sub Test()
    
    For i = 1 To Cells(Rows.Count, "g").End(3).Row
    
        Set f = Range("b:b").Find(Cells(i, "g"), lookat:=xlWhole)
        
        If Not f Is Nothing Then
        
            Cells(i, "h") = Cells(f.Row, "a")
            Cells(i, "ı") = f
            Cells(i, "j") = Cells(f.Row, "c")
            
        End If
        
    Next
    
End Sub[/SIZE]

 

[plesk]

yapamadım bu kodu nereye ekleyeceğim

Deneyin....

[SIZE=2]Sub Test()
    
    For i = 1 To Cells(Rows.Count, "g").End(3).Row
    
        Set f = Range("b:b").Find(Cells(i, "g"), lookat:=xlWhole)
        
        If Not f Is Nothing Then
        
            Cells(i, "h") = Cells(f.Row, "a")
            Cells(i, "ı") = f
            Cells(i, "j") = Cells(f.Row, "c")
            
        End If
        
    Next
    
End Sub[/SIZE]

 

[Zeki Gürsoy]

Alt + F11 ile VB penceresini açın. "Insert" menusunden "Module" seçtikten sonra gelen beyaz sayfaya yapıştırdıktan sonra F5 tuşu ile çalıştırın.

 

[plesk]

kod mükemmel çalışıyor.


Değerli zamanınızı ayırıp ilgilendiğiniz için teşekkür ederim.


saygılar.