Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: Black Lord - 09 Aralık 2010, 16:22:04

Başlık: [Çözüldü] Dolu Hücreleri sayfa2'ye aktar
Gönderen: Black Lord - 09 Aralık 2010, 16:22:04

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

Başlık: Ynt: Dolu Hücreleri sayfa2'ye aktar
Gönderen: Hüseyin Çoban - 09 Aralık 2010, 16:42:28

Merhaba,

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

Başlık: Ynt: Dolu Hücreleri sayfa2'ye aktar
Gönderen: Black Lord - 09 Aralık 2010, 16:48:31

Evet Dikkat Etmemişim.

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

Başlık: Ynt: Dolu Hücreleri sayfa2'ye aktar
Gönderen: Hüseyin Çoban - 09 Aralık 2010, 17:06:08

Tam mesai bitimi kafamı toplamıyorum, kusura bakmayın.  :hımm
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

Başlık: Ynt: Dolu Hücreleri sayfa2'ye aktar
Gönderen: Black Lord - 09 Aralık 2010, 19:34:51

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

Başlık: Ynt: Dolu Hücreleri sayfa2'ye aktar
Gönderen: Hüseyin Çoban - 10 Aralık 2010, 08:52:42

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.

Başlık: Ynt: Dolu Hücreleri sayfa2'ye aktar
Gönderen: Black Lord - 10 Aralık 2010, 15:09:10

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