Sütundaki veriye göre işlem

[Quandrostr]

Bu satırlardaki kod hatasını çözüp eklediğim dosyayı düzenleyip tekrar yükleyebilirseniz sevinirim

---------------------------------------------
Kullanıcı adı şifre ile giriş - Boş/Dolu Durumu
---------------------------------------------

Private Sub CommandButton1_Click()
    Dim username As String
    Dim password As String
   
    'Kullanıcı adı ve şifreyi "data" sayfasından al
    username = ThisWorkbook.Sheets("data").Range("H13").Value
    password = ThisWorkbook.Sheets("data").Range("H14").Value
   
    If username = "" Or password = "" Then
        'Hücreler boşsa doğrudan giriş yap
        MsgBox "Hücreler boş. Doğrudan giriş yapılıyor.", vbInformation
        'Giriş panelini kapat
        Unload Me
    Else
        'Hücreler doluysa şifre iste
        If Me.TextBox1.Value = username And Me.TextBox2.Value = password Then
            'Giriş başarılıysa mesaj göster
            MsgBox "Giriş başarılı!", vbInformation
            'Giriş panelini kapat
            Unload Me
        Else
            'Giriş başarısızsa hata mesajı göster
            MsgBox "Kullanıcı adı veya şifre hatalı!", vbExclamation
        End If
    End If
End Sub

--------------------------------------
veri baglantı yenilemek -Açık /Kapalı Durumu
-------------------------------------

Sub RefreshTime()
    If Sheets("Data").Range("J15").Value = "açık" Then
        MsgBox Sheets("Data").Range("H15").RefreshDate - Sheets("Data").Range("H15").Value
    End If
End Sub

İNDİRME ADRESİ

Hata indir

Hata

www.dosyaupload.com