Hücre içinden bir bölümü şart kabul etme

[yusufbayram]

hocam benim istediğim ektede belirttim
hücre icini şart kabul ederek satırı diğer sayfaya atabilimek
şimdiden teşekkürler

 

[hamitcan]

Sub NN()
kelime = InputBox("Anahtar Kelimeyi Gir")
For i = 1 To [a65536].End(3).Row
If Cells(i, 1) Like "*" & kelime & "*" Then
k = k + 1
Sayfa2.Rows(k) = Sayfa1.Rows(i).Value
End If
Next
MsgBox "Bitti."
End Sub

 

[yusufbayram]

hocam makron çok güzel çalışıyo çok teşekkürler
yalnız abi ben bunu sayfanın tamamı için değilde sadece L sütünu için yapmak istiyorum.
tşk...

 

[yusufbayram]

For i = 1 To [a65536].End(3).Row
kısmını değiştirdim ama yapamadım

 

[hamitcan]

satırı diğer sayfaya atabilimek

yalnız abi ben bunu sayfanın tamamı için değilde sadece L sütünu için yapmak istiyorum.

Sorularınız çelişkili. Sayfa1 içindeki hangi hücreyi Sayfa2 içinde hangi hücreye aktarmak istiyor sunuz ?

 

[yusufbayram]

evet anlatamamış olabilirim
sayfa 1 deki a sütünunda (sayfanın tamamında değil) anahtar kelime varsa, anahtar kelimenin olduğu tüm satırlar sayfa 2 ye aktarılsın
bilmem anlatabildim mi tşk..

 

[hamitcan]

Zaten kod bu şekilde çalışıyor.