Kopyalanan bir veriyi filtre edilen başka bir tabloya yapıştırma

[kaydina]

Arkadaşlar merhaba bir excedel 50 satırlık bir verim var. Mesela Şehirler olsun örnek olarak. Bu veriyi başka bir tabloma kopyalamak istiyorum o tablomdada satırlar 0,1 diye numaralandırılmış olsun ben 0 ları süzüp gelen veriye aynen ilk kopyaladığım 50 veriyi yapıştırdığımda yapıştırdığım tabloda 50 veri değişmiyor altta seçmediğim 1 lerede veri yapıştırıyor yani sadece süzülen ekranda işlem yapamıyorum yöntemi nedir, saygılarımla

 

[kaydina]

İnternetde ve forumlarda bulduğum kaynaklar hep filtrelenmiş bir kaynakveriyi başka filtrelenmiş hedefe kaydetme şeklinde benim verim sabit ve filtrelenmiş kaynağa kopyalamak istiyorum

 

[alicimri]

Bu işlem kopyala yapıştırmakla olmaz zannediyorum ama makro ile olur, ancak süzülen "0" ların sayısı ile yapıştırılacak veri sayısının aynı olması gerekiyor.

 

[kaydina]

Sayıyı aynı olarak yaparım makro ile nasıl yaparız

 

[alicimri]

Aktaracağınız verileri seçin, aşağıdaki makroyu çalıştırın, Seçili hücre sayısı kadar, A sütununda ilk satırdan başlayarak değeri 0 olan hücreleri değiştirecektir.
Dosya yapınızı bilmediğimden aktarılacak ve değişecek verilerin aynı sayfada ve birer sütun olduğunu varsaydım.

Sub aa()
Say = 1
For i = 1 To Range("a65536").End(3).Row
If Range("A" & i) = 0 Then
Range("A" & i).Value = Selection(Say)
Say = Say + 1
End If
Next
End Sub

 

[kaydina]

Ali bey teşekkür ederim