Katılım bilgisi aktarma ile ilgili

[velostar]

İyi günler, ekli dosyada Sayfa1 de ana listem var. Yapmak istediğim Yoklama sayfası "O" sütununda bulunan numaraları Sayfa1 "c" sütununda aratıp karşılığına* x ya da Geldi yazdırıp, Yoklama sayfası "o" sütunundaki verileri silmek. Kodu her çalıştırdığımda yazılacak sütun değişecek. Bunun için kodu her çalıştırdığımda hangi sütuna yazdırılacağını "f" sütunundan itibaren bana sorması gerekiyor.

Konu hakkındaki yardımlarınız için şimdiden teşekkür ederim.

 

[velostar]

Sorunu aşağıdaki kodlar ile çözdüm.

Sub isaretle()
Dim say1, say2, i, j As Integer
say1 = WorksheetFunction.CountA(Sheets("Yoklama").Range("O2:O10001"))
say2 = WorksheetFunction.CountA(Sheets("Sayfa1").Range("F4:F10001"))
qname = InputBox("Lütfen kayıt yapılacak eğitimin sütun ismini girin:")
If qname = "" Or qname = False Then Exit Sub



For i = 2 To say1 + 3
For j = 4 To say2 + 3


If Sheets("Yoklama").Range("O" & i) = Sheets("Sayfa1").Range("F" & j) Then
Sheets("Sayfa1").Range(qname & j) = "X"
End If

Next j
Next i
End Sub