AccessTr.neT
Liste Alma Sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Liste Alma Sorunu (/konu-liste-alma-sorunu.html)

Sayfalar: 1 2 3 4 5 6

Liste Alma Sorunu - m_demir - 11/05/2020

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

RE: Liste Alma Sorunu - berduş - 11/05/2020

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

RE: Liste Alma Sorunu - m_demir - 11/05/2020

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ş.

RE: Liste Alma Sorunu - feraz - 11/05/2020

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


RE: Liste Alma Sorunu - feraz - 11/05/2020

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.

Private Sub UserForm_Initialize()

    Dim son As Integer

    

    ActiveSheet.Unprotect "4455"

    Application.ScreenUpdating = False

    Set Sİ = Sheets("liste")

    Sİ.[A3Lol1000].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


RE: Liste Alma Sorunu - m_demir - 11/05/2020

Ç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.