Aşağıdaki kodları bir butona bağlayıp denermisiniz.
Kod:
Sub LİSTELE()
[C:C].ClearContents
S = 0
For X = 1 To [A65536].End(3).Row
If Cells(X, 1) <> "" Then
S = S + 1
Cells(S, 3) = Cells(X, 1)
End If
Next
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.