• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

üst üste toplatma

  1. BERKBABA44

    Çözüldü Üst üste toplatma

    Dim sor As String, c As Range, S As Worksheet Set S = Sheets("Personel") Application.ScreenUpdating = False Set c = S.[B:B].Find(ListBox1, , xlValues, xlWhole) If Not c Is Nothing Then sor = MsgBox(ListBox1 & " nolu kişi Personel Sayfasında bulundu MatrahI...
Geri
Üst