[Çözüldü] Dolu Hücreleri sayfa2'ye aktar

[Black Lord]

Merhaba Arkadaşlar ekli dosyada Toplamı sıfırdan büyük olan hücreleri sayfa2 makro ile aktarmak istiyorm.

[Hüseyin Çoban]

Merhaba,

Dosyanız eklenmemiş Mahir Bey, kontrol eder misiniz.

[Black Lord]

Evet Dikkat Etmemişim.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Hüseyin Çoban]

Tam mesai bitimi kafamı toplamıyorum, kusura bakmayın. 
Sayfa 1 de P sütununda sıfırdan büyük olan değerlerin satırını mı?
Sayfa2 ye aktarmak istiyorusunuz. Öyle ise şu kodları dener misiniz.

Kod: [Seç]

Sub aktar()
Sheets("Sayfa2").Range("P2:P100").ClearContents
sat = 2
For r = 2 To Worksheets("Sayfa1").Cells(Rows.Count, "P").End(3).Row
 
If Sheets("Sayfa1").Cells(r, "P").Value > 0 Then
For i = 2 To 16
Sheets("Sayfa2").Cells(sat, i).Value = Sheets("Sayfa1").Cells(r, i).Value
Next i
sat = sat + 1
End If
Next r
MsgBox "Aktarma işlemi başarıyla gerçekleşti", vbInformation, "www.excelce.net"
End Sub

[Black Lord]

Tam olarak budur. Teşekkür Ederim hüseyin bey

[Hüseyin Çoban]

Rica ederim, iyi çalışmalar.

Dosyanızda 1000 satıra uygulanacak demişsiniz. Kodlarda gözümden kaçmış 100 olarak yapmışım.

Kod: [Seç]

Sheets("Sayfa2").Range("P2:P100").ClearContents
Kod satırındaki P100 ü,  P1000 olarak değiştiriniz.

[Black Lord]

Hüseyin bey çok teşekkür ederim. Uyarlağım dosya fayet başarılı bir şekilde çalışıyor.