If LCase(veri(i, 13)) = "yabancý araç plakasýna" Then

                say = say + 1

                arr(i, 1) = veri(i, 6)

                arr(i, 2) = veri(i, 19) & " " & veri(i, 7)

                arr(i, 3) = veri(i, 2) & " " & veri(i, 3)

                arr(i, 4) = veri(i, 12)

                arr(i, 5) = veri(i, 4)

            End If

Zaman bulunca kodu inceleyim dedim hatalı yazmışım 5.mesajdaki kodu.
Doğrusu alttaki gibi olacak yani arr(i,1) gibi yerlerdeki i yerine say gelecekti
Koduda değiştiririm birazdan.
Ayrıca formatlamalarınıda yapıp tamamını eklerim kodun.

            If LCase(veri(i, 13)) = "yabancı araç plakasına" Then

                say = say + 1

                arr(say, 1) = veri(i, 6)

                arr(say, 2) = veri(i, 19) & " " & veri(i, 7)

                arr(say, 3) = veri(i, 2) & " " & veri(i, 3)

                arr(say, 4) = veri(i, 12)

                arr(say, 5) = veri(i, 4)

            End If