Müşteri borç tutarlarının ilgili sayfalara aktarılması

[muzaffer.sm]

Arkadaşlar merhaba,

İlk öncelikle yeni yılınızı tebrik eder, 2018 yılının sağlık ve sıhhatli bir yıl olmasını temenni ederim.

Senenin bu son gününde sizlerden müsait bir zamanda bakma imkanlarınızı rica edeceğim.

Saygılarımla

http://s7.dosya.tc/server/kjm4h3/CARI_HESAP.xls.html

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub bakiye()
Set s1 = Sheets("tablo")
son = s1.Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    For j = 1 To Sheets.Count
        If Sheets(j).Name <> s1.Name Then
            For k = 1 To Sheets(j).Cells(Rows.Count, "A").End(3).Row
                If Sheets(j).Cells(k, "A") = s1.Cells(i, "A") Then
                    Sheets(j).Cells(k, "D") = s1.Cells(i, "E")
                End If
            Next
        End If
    Next
Next

End Sub

Mutlu yıllar.

 

[muzaffer.sm]

Teşekkürler Yusuf Bey

Zahmet verdik.Ellerinize sağlık.

Saygılarımla.