Skip to main content

AccessTr.neT


Liste Alma Sorunu

Liste Alma Sorunu

Çözüldü #1
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
.rar PER.rar (Dosya Boyutu: 278,81 KB | İndirme Sayısı: 5)
Cevapla
#2
hangi müşterilerin silindiğini nasıl anlıyoruz?
Cevapla
#3
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ş.
Cevapla
#4
Silinenler tam anlaşılmıyor nasıl olduğu.
ilgili kodu alttaki gibi yaparsanız deha iyi olur.


Visual Basic Code
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

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



ilgili kodu alttaki gibi yapın.

Visual Basic Code
Private Sub UserForm_Initialize()
    Dim son As Integer
    
    ActiveSheet.Unprotect "4455"
    Application.ScreenUpdating = False
    Set= Sheets("liste")
    Sİ.[A3:D1000].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

Cevapla
#6
Ç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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da