SATIR KOPYALAMAK İSTİYORUM

[Hantor]

Sheet1 sayfasında B4:AB16 ya kadar bir tablom mevcuttur. Benim sizlerden uygunsa eğer isteğim Sheet1 deki tabloda C4 hücresin de dolu olan satıları seçerek seçtiği satır kadar Sheet2 sayfasında bulunan aynı tablo gibi yapıştırmasını istemekteyim. Mümkün müdür. Şimdiden teşekkür ederim. Konuyu anlatabildim mi ? Anlamadığınız bir şey var ise yazarsanız sevinirim.

 

[Hantor]

Ne denediysem olmadı acaba olmuyor mu? Daima aradaki gizlenen satırlarda çıkıyor.

 

[merakli_72]

Selam,
istediğiniz tam olarak anlaşılamıyor, muhtemel cevap alamama sebebiniz de bu,
örneğin:
"Sheet1 deki tabloda C4 hücresin de dolu olan satıları...."
C4 hücresinde dolu olan satırlar ne demek
Sakin kafayla açıklama yazarken başka bir şey düşünmeden açıklama yapmaya çalışırsanız daha faydalı olacaktır, kanaatindeyim.
Sayılarımla

 

[Hantor]

Hocam C4 başyalıp C16 hücresine kadar dolu olan satır varsa hepsini alsın boşları almasın kaçtane dolu avrsa alsın onları kopyalasın şimdi anlatabildim mi?

 

[Hantor]

Bu Formül ile sorunu Çözdüm Teşekkür Ederim.

Sheets("AnaData").Select 'Sayfanin Sifresini Kaldirir.
Worksheets("AnaData").Unprotect "THYTK"

Rows("3:3").Select 'Süzmeden Ayiklanan Verileri Kopyalar ve Yapistirir. Sonra Sayi Olarak Tekrar Yapistirir.
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Range("$C$2:$AA$16").AutoFilter Field:=1, Criteria1:=">0", _
Operator:=xlAnd
Selection.Copy
Sheets("TümAnaData").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2:A20").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C2").Select
Sheets("AnaData").Select
ActiveSheet.ShowAllData
Range("C2").Select

Sheets("AnaData").Select 'Sayfanin Sifresini Aktif Hale Getirir.
Worksheets("AnaData").Protect "THYTK"

Sheets("TümAnaData").Select 'Arti Bir Koyup Siralama Yapar.
Range("B4").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("C2").Select

Sheets("AnaData").Select 'AnaData Kitli Olmayan Hücreleri Temizler
Worksheets("AnaData").Unprotect "THYTK"
Range("F4:Y16").Select
Range("Y16").Activate
Selection.ClearContents
Range("C2").Select