Farklı Sayfalardan Veri Çekme Kod Güncellemesi

Merhaba,
Farklı sayfalardan veri çekme ile ilgili, sayın Emre Bey’in @cakarem katkılarıyla bir makro çalışmamız olmuştu. Hazırlamış olduğu makroyu, ekip olarak aktif kullanıyoruz, yeri gelmişken kendisine tekrar teşekkür ederiz.
Bu makrodaki kurallarımızın birinde, küçük bir güncellemeye ihtiyaç duyulmuştur. Yapılabilirliği varsa eğer, her zamanki desteğinizi rica ederim.
Kodlar içerisinde belirtilen, aşağıdaki 2 numaralı talepte , beyan numaraları yansıyor, fakat sayfa 1’ ile sayfa 2’ deki kap adedi ve brüt ağırlık bilgilerindeki eşleşmelerine göre, beyanname numaraları çapraz yansıyor. Diğer kodlarda herhangi bir problem yoktur.

'2 numaralı istek
' 2 - Sayfa 2' de tek taşıma senedine bağlı, birden fazla beyan no varsa eğer,
' Sayfa 1 ' deki marka noların yanına, sadece Sayfa 2' deki beyan no numarası yansımalı

If degerbir = degeriki Then
For ii = 2 To Sayfa2.Cells(Sayfa2.Rows.Count, 1).End(3).Row
If Sayfa2.Cells(ii, 1) = veri(i) Then
For iii = 2 To son
If .Cells(iii, 1) = veri(i) And .Cells(iii, 2) = "" Then
.Cells(iii, 2) = Sayfa2.Cells(ii, 2)
iii = son
End If
Next iii
End If
Next ii
GoTo devam
End If

Her 2 sayfada bulunan, kap ve brüt ağırlık eşleşmelerine göre, doğru beyan numaralarının aktarılabilmesi için kodda güncelleme yapılabilir mi ? Örnek olarak, kod çalıştırıldıktan sonra, beyan numarası yanlış gelen ve olması gereken dosya ekteki gibidir. Mümkünse kontrolünü ve desteğinizi rica ederim.
Teşekkürler

Sayfa 2' de bulunanTaşıma Senedi numarası göre, olması gereken Beyan Numaraları :





Kod çalıştırıldığında çapraz gelen Beyan Numaraları :






End If

Next iii

End If

Next ii

GoTo devam

End If