Eşleşenleri Yan Yana Yazdırmak

[1Al2Ver]

Merhaba,

Umarım doğru başlık açmışımdır,

B2:B aralığındaki isimlerle eşleşenleri (F2:F) ;

Makro ile C2:C'ye,

KTF ile D2: D'ye getirmek istiyorum,

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

Umarım doğru başlık açmışımdır,

B2:B aralığındaki isimlerle eşleşenleri (F2:F) ;

Makro ile C2:C'ye,

KTF ile D2: D'ye getirmek istiyorum,

Teşekkür ederim.

Merhaba,

Makro yada formül için faydalanabileceğim bir link var mı ?

Teşekkür ederim.

 

[Orion1]

Bu kodlar F kolonunda bulursa F kolnundan C kolonuna taşır.
Diğer isteğiniz Formüllerde bu taşıma işi olmaz.Ancak sorgulanıp o değer yerinde kalıp c sütunan yazılabilir.Bunun içinde ktf ye gerek yoktur.Eğersay ile yapılabilir.
Unutmayın formülle Bir veriyi bir yerden bir yere taşıyamazsınız.

Sub eslestir()
Dim k As Range, i As Long
For i = 2 To Cells(65536, "B").End(xlUp).Row
    Set k = Range("F2:F65536").Find(Cells(i, "B").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(i, "C").Value = k.Value
        k.ClearContents
    End If
Next i
MsgBox "İşlem Tamam"
End Sub

 

[1Al2Ver]

Bu kodlar F kolonunda bulursa F kolnundan C kolonuna taşır.
Diğer isteğiniz Formüllerde bu taşıma işi olmaz.Ancak sorgulanıp o değer yerinde kalıp c sütunan yazılabilir.Bunun içinde ktf ye gerek yoktur.Eğersay ile yapılabilir.
Unutmayın formülle Bir veriyi bir yerden bir yere taşıyamazsınız.

Sub eslestir()
Dim k As Range, i As Long
For i = 2 To Cells(65536, "B").End(xlUp).Row
    Set k = Range("F2:F65536").Find(Cells(i, "B").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(i, "C").Value = k.Value
        k.ClearContents
    End If
Next i
MsgBox "İşlem Tamam"
End Sub

Sayın Evren Gizlen merhaba,

Çözüm ve açıklamalar için teşekkür ederim, çok makbule geçti inanın.

Saygılarımla.

 

[Orion1]

Sayın Evren Gizlen merhaba,

Çözüm ve açıklamalar için teşekkür ederim, çok makbule geçti inanın.

Saygılarımla.

Rica ederim.
İyi çalışmalar.