Kodlarda revize

[1903emre34@gmail.com]

Merhaba,

Sayda 1'de açıklama kısmında metin içerisinde "yazılım ve vekil, gıda ifadeleri var ise; bağlı bulunduğu kayıt sayfa2 getrilmesi için kodlarda nasıl değişiklik yapabiliriz (Örnek olarak sayfa2'de yapılmıştır)

Option Explicit
Sub aktar()
Dim a(), s1 As Worksheet, s2 As Worksheet
Dim s As Long, X As Long, Y As Byte
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
a = s1.Range("A2:H" & s1.Cells(Rows.Count, 1).End(3).Row)
    For X = 1 To UBound(a)
        If a(X, 6) Like "*yazılım*" Then
            s = s + 1
            For Y = 1 To UBound(a, 2)
                a(s, Y) = a(X, Y)
            Next Y
        End If
    Next X
s2.Range("A2:H" & Rows.Count).ClearContents
If s > 0 Then s2.[A2].Resize(s, UBound(a, 2)) = a
MsgBox "İşlem tamamlandı.", vbInformation
End Sub

 

[askm]

Option Explicit
Sub aktar()
Dim a(), s1 As Worksheet, s2 As Worksheet
Dim s As Long, X As Long, Y As Byte
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
a = s1.Range("A2:H" & s1.Cells(Rows.Count, 1).End(3).Row)
    For X = 1 To UBound(a)
        If a(X, 6) Like "*YAZILIM*" Or a(X, 6) Like "*VEKİL*" Or a(X, 6) Like "*GIDA*" Then
            s = s + 1
            For Y = 1 To UBound(a, 2)
                a(s, Y) = a(X, Y)
            Next Y
        End If
    Next X
s2.Range("A2:H" & Rows.Count).ClearContents
If s > 0 Then s2.[A2].Resize(s, UBound(a, 2)) = a
MsgBox "İşlem tamamlandı.", vbInformation
End Sub