Veri satırını diğer sayfaya aktarma

[Tarkan VURAL]

Merhaba;

Sayfa1' de a2 hücresinde Mehmet yazdığını, b2 hücresinde 34ZR1033, c2 hücresinde de 34ZR1033 yazdığını varsayalım.
a8 hücresinde Ahmet g8 hücresinde 34ZR1033 h8 hücresinde de 34ZR1033 yazdığını varsayalım.

Şimdi kesinlikle plaka numarasından veri aratarak, verinin bulunduğu satırı Sayfa2'ye alt alta aktarmak istiyorum.

Plakanın bulunduğu satırda aynı plakadan birden fazla var ise bu satırı tek seferde Sayfa2' ye aktarmalı. Yani bir plaka numarası 2 satırda ama 10 hücrede de geçiyor olsa, sadece o ilgili 2 satırın diğer sayfaya aktarılmasını nasıl sağlarım? Yardımcı olabilecek arkadaşlardan bilgi rica ediyor iyi akşamlar diliyorum.

Saygılar;
Tarkan VURAL

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde birkaç örnekle izah edebilir misiniz?

 

[Tarkan VURAL]

İş' te olduğum için dosyanın orjinaline benzerini gönderiyorum, dosya evdeki bilgisayarımda. Ama fikir verebilir sanıyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.Cells.ClearContents
For a = 2 To s1.[a65536].End(3).Row
say = WorksheetFunction.CountIf(s1.Rows(a), TextBox1)
If say = 0 Then GoTo 10
c = c + 1
s2.Rows(c) = s1.Rows(a).Value
10 Next
End Sub

 

[Tarkan VURAL]

Verdiğiniz kod örneği gönderdiğim dosyada tam olarak anlatmak istediğim gib çalışıyor. Ancak kendi dosyama uyarladığımda;

s2.Row(c).Value = s1.Rows(a).Value

satırında tanımsızlık çıktı. Sanırım diğer kodlar ile bağlanıldığında bir sorun oluşturuyor. Şimdilik onu bulmaya çalışıyorum ama verdiğiniz kod işimi görüyor. Emeğinize ve ilginize teşekkür ediyorum. İyi çalışmalar Levent Bey.

Selamlar;
Tarkan

 

[Levent Menteşoğlu]

Eğer birleştirilmiş hücreler mevcutsa o satırda hata verebilir, bu açıdan bir incelemenizi öneririm.