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

değişiklik yok ise uyarı verme

  1. BERKBABA44

    Çözüldü Değişiklik yok ise uyarı verme

    Dim i As Integer, j As Integer Onay = MsgBox("Değiştirmek istiyor musunuz?", vbCritical + vbYesNo) If Onay = vbNo Then Exit Sub ProgressBar1.Visible = True For L = 1 To 10000 ProgressBar1 = L / 10000 * 100 Next ProgressBar1.Value = Empty Set s1 = Sheets("Komisyon") s1.Range("c6").Value =...
Geri
Üst