satır seçme

[Hulyaa1]

önce sıralama yaptırdım. ve sonra bu sıralamada sıfırdan büyük olan değerleri seçip keseceğim ve başka bir sayfaya yapıştıracağım. ben aşağıdaki koda benzer birşey düşündüm. fakat kodun son kısmında kırmız ile gösterdiğim yerde seçili olan satıra kadar nasıl seçeceğimi anlamadım. yardımcı olabilirseniz sevinirim.


Range("h3").Activate
For s = 3 To [B65536].End(3).Row
If ActiveCell.Value >= 0 Then
ActiveCell.Offset(1, 0).Select
Else
Rows("3:Activecell.rows").Select
End If
Next

 

[AS3434]

Sub sayfayaAktar()
For i = 3 To [b65536].End(3).Row
w = Sheets("Sayfa2").[a65536].End(3).Row + 1
If Cells(i, "b").Value >=0 Then
Sheets("Sayfa2").Rows(w).Value = Sheets("Sayfa1").Rows(i).Value
End If
Next
End Sub

Böyle birşey olabilir.
Sheets("Sayfa2") Aktaracağınız sayfa adı
Sheets("Sayfa1") işlem yaptığınız sayfa adı
Cells(i, "b") İşlem yaptığınız sayfanın B sütunu


Hata benim. Düzelttim.

w = Sheets("Sayfa2").[a65536].End(3).Row + 1
w aktarma yapacağınız sayfanın a sütununun ilk boş satırı.

 

[Hulyaa1]

program hata veriyor 2. satırda

 

[Hulyaa1]

oradaki w ve z nin ne anlama geldiğini açıklayabilirmisiniz??

 

[Orion1]

Merhaba.
Aşağıdaki kodu kendiinize göre ayarlayınız.

Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "D")).Select

 

[AS3434]

Kodları düzelttim.

 

[Hulyaa1]

evet olduu fakat sayfa1den sayfa2ye aktarırken sayfa1deki 0dan büyük olan satırı sildirmemiz mümkün mü acaba?? bu kodlarla o satırı sayfa 2ye kopyalıyor. ben sayfa1 den silip sayfa2 ye yapıştırsın istiyorum. umarım yardımcı olabilirsiniz....