SEÇENEKLİ LİSTE

[ismailayan]

SEÇENEKLÝ LÝSTE

Merhaba arkadaşlar


biliyorum çok fazla oluyorum zannedeceksinizki bu hiçbir şey bilmiyormuuuuu....

neyse ben sotuma geçeyim..

isim listesinde yanına işaret koyduğum (*) gibi

bir başka excel sayfasına işaretli olan isim listesini ekleyecek



yardımınız için şimdiden teşekkürler

 

[mehmett]

Sn ismailayan

"Makro Kaydet" yöntemiyle hazırladığım örnek dosya ektedir.

 

[aucar19]

secileni aktarmada daha hızlı bir cözüm..

Aşağıdaki Kodu Kullanınız.
Sub secileni_aktar()
Dim i As Integer
sat = Sheets("Sayfa1").Range("B1").End(xlDown).Row
k = 2
Sheets("Sayfa3").Cells(1, 2) = "ADI SOYADI"
For x = 2 To sat
If Cells(x, 1) = "*" Then
Sheets("Sayfa3").Cells(k, 1) = k - 1
Sheets("Sayfa3").Cells(k, 2) = Cells(x, 2)
k = k + 1
End If
Next x
Sheets("Sayfa3").Select
End Sub