Merhaba Arkadaşlar

Eklediğim Uygulamada UserForm1 de RAPOR AL Butonu ile sayfalardan UserForm3 e ve liste sayfasına müşteri bakiyelerini alıyorum.  Daha önce sildiğim müşterilerin bakiyeleri de UserForm3 de ve liste sayfasında gösteriyor. 

Bu konuda yardımlarınıza ihtiyacım var

hangi müşterilerin silindiğini nasıl anlıyoruz?

Hocam silinmeyen Arkın, Buşra, Kenan, Ali Duran liste sayfasında görünen isimlerin çoğu silinmiş. Bu dört ismin dışındakilerin hepsi silinmiş.

Silinenler tam anlaşılmıyor nasıl olduğu.
ilgili kodu alttaki gibi yaparsanız deha iyi olur.

Private Sub UserForm_Initialize()

    Dim son As Integer

    son = Sheets("liste").Cells(Rows.Count, 1).End(3).Row

    If son > 1 Then ListBox1.RowSource = "liste!A2:F" & son

End Sub

Private Sub UserForm_Activate() bunu tüm silin.Kodlar userfor3 için.
Sİ.[G3:F1000].ClearContents burası neden böyle Sİ.[A31000].ClearContents olarak değiştirdim.



ilgili kodu alttaki gibi yapın.

Private Sub UserForm_Initialize()

    Dim son As Integer

    

    ActiveSheet.Unprotect "4455"

    Application.ScreenUpdating = False

    Set Sİ = Sheets("liste")

    Sİ.[A31000].ClearContents

    For Z = 2 To Sheets.Count

    Sİ.Cells(SAT + 1, 1) = Sheets(Z).[a1].Value

    Sİ.Cells(SAT + 1, 2) = Sheets(Z).[G5].Value

    Sİ.Cells(SAT + 1, 3) = Sheets(Z).[ı5].Value

    Sİ.Cells(SAT + 1, 4) = Sheets(Z).[K4].Value

    

    SAT = SAT + 1

Next

    'son = Cells(65536, "f").End(xlUp).Row + 1

'Cells(son, "g") = WorksheetFunction.Sum(Range("f3:f65536"))

'Cells(son, "ı") = WorksheetFunction.Sum(Range("e3:e65536"))

'Cells(son, "ı") = WorksheetFunction.Sum(Range("d3:d65536"))



    Application.ScreenUpdating = True

    'MsgBox "AKTARMA İŞLEMİ TAMAMLANMIŞTIR." & vbCrLf & vbCrLf

    ActiveSheet.Protect "4455"

    

    son = Sheets("liste").Cells(Rows.Count, 1).End(3).Row

    If son > 1 Then ListBox1.RowSource = "liste!A2:F" & son

End Sub

Çok teşekkürler Hocam ellerinize sağlık.

Hocam liste safyasında A3 den başlıyor. Bir türlü A2 den başlatamadım.

Birde alt toplamlarını alabilirmiyiz. Liste sayfasında ve UserForm3 de.