Hücrede bul satırı başka sayfaya aktar

[arslan]

sayfada a1:c100 arasındaki hücrelerde kritere uygun verileri buluyor. Yapmak istediğim hangi stunda bulursa bulsun bulduğu satırları kopyalayıp Sayfa2 ye a stununa alt alta satırı listeleyecek. Saygılar sunuyorum.

Private Sub CommandButton2_Click()
For Each hucre In Range("a1:c100")
arananuzunluk = Len(TextBox1.Value)
hucreuzunluğu = Len(hucre)
For bas = 1 To hucreuzunluğu - arananuzunluk + 1
parca = Mid(hucre, bas, arananuzunluk)
If parca = TextBox1.Value Then


End If
Next
Next
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton2_Click()
For Each hucre In Range("a1:c100")
arananuzunluk = Len(TextBox1.Value)
hucreuzunluğu = Len(hucre)
For bas = 1 To hucreuzunluğu - arananuzunluk + 1
parca = Mid(hucre, bas, arananuzunluk)
If parca = TextBox1.Value Then
[B][COLOR=blue]c=c+1[/COLOR][/B]
[B][COLOR=blue]sheets("sayfa2").rows(c)=rows(hucre.row).value
[/COLOR][/B]End If
Next
Next
End Sub

 

[arslan]

Teşekkürler Sayın Leventm. Herzamanki gibi harikasınız

 

[enteresan]

Arkadaşlar, bu kodların uygulandığı örnek bir dosya koyabilirseniz memnun olurum.
Saygılarımla......

 

[enteresan]

Aslında yukarıdaki kodlar yapmak istediğim bi işi çağrıştırdı da onun için merak etmiştim.
Ben düşüncemi buraya yazayım da o kod veya ona benzer bir kod ile çözülebilir mi bir bakın isterseniz.
Çalışma kitabı içerisinde birden fazla sayfa var ve her sayfadaki bilgilerin sadece A sütunu ortak. Yani her sayfada A sütunundaki bilgiler aynı sırada değil ama içeriği aynı.
Öyle bir kod yapmak istiyorum ki açılan kutuya A sütunundaki veriyi girdiğimde bu veriye ait diğer sayfadaki satırları bulsun ve yan yana eklesin istiyorum. Yani sayfa1 deki ilgili satır K sütununda bitmiş ise Sayfa2 deki ilgili satırı L sütunundan itibaren yapıştırsın o da AB sütununda bitti diyelim, Sayfa3 tekini de AC sütunundan itibaren yapıştırsın. Böyle bir kod düzenlenebilir mi. Eminim ki düzenlenebilir ama buna benim bilgim yetmez. Saygılarımla....

 

[arslan]

Leventm bey tekrar saygılar sunuyorum. Üstte verdiğiniz kod çok işime yaradı fakat Büyük Küçük harf Ayrımı yapıyor. bu sorunu bi türlü aşamadım. Yani hücrede büyük harf kullanılmışsa ve ben aramayı küçük harfle yaptırıyorsam bulamıyor. Tekrar iyi çalışmalar diliyorum

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT]Private Sub CommandButton2_Click()
For Each hucre In Range("a1:c100")
arananuzunluk = Len(TextBox1.Value)
hucreuzunluğu = Len(hucre)
For bas = 1 To hucreuzunluğu - arananuzunluk + 1
parca = Mid(hucre, bas, arananuzunluk)
If [B][COLOR=blue]ucase([/COLOR][/B]parca[COLOR=blue][B])[/B][/COLOR] = [B][COLOR=blue]ucase([/COLOR][/B]TextBox1.Value[COLOR=blue][B])[/B][/COLOR] Then
[B][COLOR=blue]c=c+1[/COLOR][/B]
[B][COLOR=blue]sheets("sayfa2").rows(c)=rows(hucre.row).value
[/COLOR][/B]End If
Next
Next
End Sub[/LEFT]

 

[arslan]

Teşekkürler. Syn Leventm.