Filtre uygulanmış bir kolondan başka bir kolona kopyalama

[nalantur]

Merhaba arkadaşlar;

Ben filtre edilmiş bir kolonda seçtiğim seçenekleri başka bir kolona kopyalayabilmek istiyorum ama bunu yapamıyorum. Mesela A sütununda seçmiş olduğum 1.,3., ve 5. satırları B sütununda yine bu satırlara bir kerede kopyalayabilir miyim? Yardımlarınız için şimdiden teşekkürler

 

[Orion1]

Aşağıdaki kodu kullanınız.

Sub secilen()
Dim hcr As Range
Range("B1:B65536").ClearContents
For Each hcr In Selection
    hcr.Offset(0, 1).Value = hcr.Value
Next
End Sub

 

[nalantur]

Deniyeceğim çok teşekkür ederim.