Like ile joker karakterle iki kriter göre veri bulma

[aygun78]

Private Sub hastane()

Set s1 = Sheets("rapor")
Set S2 = Sheets("mükerrer")
Set S3 = Sheets("mükerrerolmayan")
Set s4 = Sheets("tcolmayan")
Set S5 = Sheets("hastaneler")

S5.[A2:z65536].ClearContents
s = 1
S5.Select

For x = 2 To S3.[A65536].End(3).Row
If S3.Cells(x, 2) Like "*HASTA*" Then
s = s + 1

S5.Cells(s, 2) = S3.Cells(x, 2)
S5.Cells(s, 3) = S3.Cells(x, 3)
S5.Cells(s, 4) = S3.Cells(x, 4)
S5.Cells(s, 5) = S3.Cells(x, 5)
S5.Cells(s, 6) = S3.Cells(x, 6)
S5.Cells(s, 7) = S3.Cells(x, 7)
S5.Cells(s, 8) = S3.Cells(x, 8)
S5.Cells(s, 9) = S3.Cells(x, 9)


End If


Next
Range("A2:z1000").Sort key1:=[B2]
For sira = 1 To WorksheetFunction.CountA(Range("b1:b65536"))

'a sütununa b sütunundaki dolu hücreler kadar 1,2,3 diye değer atıyoruz

Range("a" & sira + 1) = sira


Next
End Sub



Private Sub hastane2()

Set s1 = Sheets("rapor")
Set S2 = Sheets("mükerrer")
Set S3 = Sheets("mükerrerolmayan")
Set s4 = Sheets("tcolmayan")
Set S5 = Sheets("hastaneler")



S5.Select

For x = 2 To S3.[A65536].End(3).Row

If S3.Cells(x, 2) Like "*BAKIM*" Then
a = S5.Cells(65536, "A").End(3).Offset(0, 0)
S5.Cells(65536, "A").End(3).Offset(1, 0) = a + 1
S5.Cells(65536, "A").End(3).Offset(0, 1) = S3.Cells(x, 2)
S5.Cells(65536, "A").End(3).Offset(0, 2) = S3.Cells(x, 3)
S5.Cells(65536, "A").End(3).Offset(0, 3) = S3.Cells(x, 4)
S5.Cells(65536, "A").End(3).Offset(0, 4) = S3.Cells(x, 5)
S5.Cells(65536, "A").End(3).Offset(0, 5) = S3.Cells(x, 6)
S5.Cells(65536, "A").End(3).Offset(0, 6) = S3.Cells(x, 7)
S5.Cells(65536, "A").End(3).Offset(0, 7) = S3.Cells(x, 8)
S5.Cells(65536, "A").End(3).Offset(0, 8) = S3.Cells(x, 9)

End If
Next

Range("A2:z1000").Sort key1:=[B2]
For sira = 1 To WorksheetFunction.CountA(Range("b1:b65536"))

'a sütununa b sütunundaki dolu hücreler kadar 1,2,3 diye değer atıyoruz

Range("a" & sira + 1) = sira

Next
End Sub


makrolara hastane ve hastane2 makrosunu ayrı ayrı çalıştırınca içinde "HASTA" ve "BAKIM" olanları ayrı ayrı bulabiliyorum

benim istedigim ikisinide aynı anda sıralaya bilirmiyim
call komutu ile denediğimde hastane2 makrosu çalışıyo fakat hastane makrosunun verilerini değiştiriyor

daha kolay bir yolu varmıdır
"If S3.Cells(x, 2) Like "*HASTA*" Then "in yanına ikinci bi kriter oalan "BAKIM "nasıl eklenir

 

[Ferhat Pazarçevirdi]

İkisinden birinde; döngü içerisindeki koşulu aşağıdaki gibi değiştirin. Böylelikle, hücre içeriğinde hem "HASTA" hem de "BAKIM" kelimesi olanlar listelenir.

    If s3.Cells(x, 2) Like "*HASTA*" Or _
       s3.Cells(x, 2) Like "*BAKIM*" Then

 

[aygun78]

çok teşekkürler eline sağlık