Ara Bul Farklı Sutuna Yapıştır

[askm]

Kolay gelsin.
2 tane sayfam mevcut. Sayfa1 de B sutunundaki veriler içerisinden Sayfa2 deki C sutunundaki verileri arayacak. Değer bulunursa sayfa2 nin E sutununa Sayfa1 in G Sutunundaki değer gelecek. Bu işlem Sayfa2 deki değerler için tamamen olacak.
Yani kısacası Düşeyara formulunun makro hali gerekli. Ama ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Sayfa1!C2:C7,6,0)" şeklinde değil de find ile.

 

[Orion1]

Örnek dosya eklerseniz ,sorunuza daha çabuk yanıt alma şansınız var.

 

[askm]

Private Sub CommandButton111_Click()
Dim S1 As Worksheet, S2 As Worksheet, Veri As Variant, Veri2 As Variant

Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Personel Listesi")

On Error Resume Next

For X = 2 To S2.Cells(Rows.Count, 3).End(xlUp).Row
' Err.Clear
If S2.Cells(X, 3) <> "" Then
Veri = Application.WorksheetFunction. _
VLookup(S2.Cells(X, 3), S1.Range("b:G"), 6, 0)
'If Err.Number = 0 Then
S2.Cells(X, 5) = Veri
'Else
' S2.Cells(X, 5) = ""
'End If
Veri2 = Application.WorksheetFunction. _
VLookup(S2.Cells(X, 3), S1.Range("b:G"), 5, 0)
'If Err.Number = 0 Then
S2.Cells(X, 6) = Veri2
End If
Next

Set S1 = Nothing
Set S2 = Nothing

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub


kodları ile hallettim teşekkürler.

 

[Orion1]

Find komutu ile yapmamışsınız.Yine vlookup ile yapmışsınız.

 

[askm]

Find veya like ile yapamadım. En azından bu şekilde olsun dedim.