• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

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

Kod:
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.
 
Teşekkürler Yusuf Bey

Zahmet verdik.Ellerinize sağlık.

Saygılarımla.
 
Geri
Üst