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İ.[A3
1000].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.