Bul ve son satırda işaretle...

[harziyan]

Başlık pek de açıklayıcı değil açıkçası. Çok daha mantıklı bir başlık atmak isterdim ama üzgünüm. :frown:
Yapmak istediğim ekli dosyanın "tge" sayfasındaki isimlerin "liste" sayfasında işaretlenmesi.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("tge")
Set s2 = Sheets("Liste")
sat = Sheets("Liste").Cells(65536, "a").End(3).Row + 1
s2.Cells(sat, 1).Value = s1.[f2].Value
s2.Cells(sat, 2).Value = s1.[b15].Value
s2.Cells(sat, 3).Value = s1.[b13].Value
s2.Cells(sat, 4).Value = s1.[f9].Value
s2.Cells(sat, 5).Value = s1.[d19].Value

For Each hcr In s1.Range("A8:A12,F7")
    If hcr <> "" Then
        süt = WorksheetFunction.Match(hcr, s2.Range("1:1"), 0)
        s2.Cells(sat, süt) = "X"
    End If
Next
MsgBox "Tamam."
End Sub

 

[harziyan]

Sayın mucit77 çok teşekkür ederim, tam istediğim gibi.