Aktar ile ilgili bir formülde değişiklik hakkında

[konas06]

Merhabalar,
daha önce yine siz üstadların yardımı ile yapılan bir dosyada formül değişikliğine gitmemiz gerekiyor.
İlgilenen herkese şimdiden teşekkürler.


Next t
For t = 2 To 50
Set a = Sheets("APK").Range("a1:q65000").Find(Sheets("Bilgiler").Cells(t, 1).Value, , xlValues, xlWhole)
If Not a Is Nothing Then
Cells(t, 13).Value = Cells(t, 1).Value
Cells(t, 13).Offset(0, 1).Value = a.Offset(0, 1).Value
Cells(t, 13).Offset(0, 2).Value = a.Offset(0, 2).Value
End If

Yukarıdaki formülde, “ Set a = Sheets("APK").Range("a1:q65000").Find(Sheets("Bilgiler").Cells(t, 1).Value, , xlValues, xlWhole) “ a1 hücresinin tamamını değilde, sağdan 7 karakter aynı olduğunda aktarım yapması için formülde nasıl bir değişiklik yapmamız gerekiyor.

 

[konas06]

Formülün gereksiz yerlerini çıkarttım.
Umarım gerekli kodu bu sefer öğrenebilirim.
Selamlar.

 

[İhsan Tank]

Merhaba
Sorunuzu örnek dosya içinde örneklerle açıklarsanız daha iyi olmaz mı_?

 

[konas06]

Merhaba
Sorunuzu örnek dosya içinde örneklerle açıklarsanız daha iyi olmaz mı_?

Sayın İhsan Tank ilginiz için teşekkür ederim.
Bu konuyu kodda değişiklik yapmadan çözdüm. (Dosyada değişiklik yaparak)
Selamlar.