Yeni Sayfa açarak listelemek

[Mdemir63]

Selamlar,

Arkadaşlar benim bir isim listem var. Bu listeden Ç yazan satırları mevcut listeden silerek başka bir sayfada listelemek istiyorum. Nasıl Yapabilirim?

Saygılar

 

[Merhum İdris SERDAR]

Selamlar,

Arkadaşlar benim bir isim listem var. Bu listeden Ç yazan satırları mevcut listeden silerek başka bir sayfada listelemek istiyorum. Nasıl Yapabilirim?

Saygılar

Dosyanız ekte.


..

 

[Mdemir63]

Hocam elinize sağlık tam istediğim gibi iyiki varsınız.

Saygılarımı sunuyorum.

Not: Aynı işlem VB kodları ile de olabilir mi?

 

[Mdemir63]

Hocam özür dilerim

bir eksiklik gözümden kaçmış, Ç olanlar listeleniyor ancak asıl sayfamdan da silinmesini istiyorum olabilir mi?

Saygılar sunarım

 

[Ali]

Ç olanlar listeleniyor ancak asıl sayfamdan da silinmesini istiyorum olabilir mi?

Saygılar sunarım

Rapor adlı bir sayfa oluşturun ve modüle aşağıdaki kodları ekleyerek deneyiniz.

Sub verileriaktar()
Dim b
Sheets("Rapor").Select
b = 1
For Each secim In Worksheets("ANA LİSTE").Range("E:E")
If secim = "Ç" Then
    b = b + 1
    Worksheets("Rapor").Cells(b, 1) = secim.Offset(0, -4)
    Worksheets("Rapor").Cells(b, 2) = secim.Offset(0, -3)
    Worksheets("Rapor").Cells(b, 3) = secim.Offset(0, -2)
    Worksheets("Rapor").Cells(b, 4) = secim.Offset(0, -1)
End If
Next
Sheets("ANA LİSTE").Select
For x = [e65526].End(3).Row To 2 Step -1
    If Cells(x, 5).Value = "Ç" Then Rows(x).Delete
Next
MsgBox ("Veriler aktarıldı")
End Sub

 

[Mdemir63]

Ali Hocam çok teşekkürler elinize sağlık

Saygılar

 

[Mdemir63]

Rapor adlı bir sayfa oluşturun ve modüle aşağıdaki kodları ekleyerek deneyiniz.

Sub verileriaktar()
Dim b
Sheets("Rapor").Select
b = 1
For Each secim In Worksheets("ANA LİSTE").Range("E:E")
If secim = "Ç" Then
    b = b + 1
    Worksheets("Rapor").Cells(b, 1) = secim.Offset(0, -4)
    Worksheets("Rapor").Cells(b, 2) = secim.Offset(0, -3)
    Worksheets("Rapor").Cells(b, 3) = secim.Offset(0, -2)
    Worksheets("Rapor").Cells(b, 4) = secim.Offset(0, -1)
End If
Next
Sheets("ANA LİSTE").Select
For x = [e65526].End(3).Row To 2 Step -1
    If Cells(x, 5).Value = "Ç" Then Rows(x).Delete
Next
MsgBox ("Veriler aktarıldı")
End Sub

Hocam merhaba
Tekrar rahatsız ediyorum.Bu verdiğiniz kodlar işimi gördü yalnız şöyle bir şey eklemek istiyorum "Ç" yazan satırları aktarıyor ama ben "T" yazan satırları da aktarsın istiyorum verdiğiniz kodlarda nasıl bir değişiklik yapmalıyım

Saygılar sunarım

 

[Ali]

If secim = "Ç" Then

yerine

If secim = "Ç" Or secim = "T" Then

If Cells(x, 5).Value = "Ç"

yerine

If Cells(x, 5).Value = "Ç" Or Cells(x, 5).Value = "T" Then Rows(x).Delete

yazarak deneyiniz.

 

[Mdemir63]

Hocam çok teşekkür ederim.Ellerinize sağlık

İyi akşamlar

Saygılar