kalanı otamatik yazsın

[Muhammet Okumuş]

dosyada 3 kısım var. 1.kısımda isimler yazılı
2.kısıma 1.ksımdan isimleri yazacağım. 3.kısıma 2.kısma yazmayan isimleri yazdırmak istiyorum

 

[muygun]

Slm.
Eki inceleyin.
İyi çalışmalar.

 

[ozgretmen]

Dener misiniz ?k::

Sub aktar()
[C1:C8].ClearContents
For i = 1 To 8
If WorksheetFunction.CountIf(Range("A10:A17"), Cells(i, 1)) = 1 Then
Else
k = k + 1
Cells(k, 3).Value = Cells(i, 1).Value
End If
Next i
End Sub

 

[Muhammet Okumuş]

sayın ozgretmen omuş ancak benim istediğin isim yazdığı anda işlemi otamatik yapması

 

[Muhammet Okumuş]

Sn muygun çok teşşekür ederim.süper...