iki labeldeki tarih birbirine eşitse

[zulfuernek]

label 1 ve label 2 deki tarihler birbirine eşitse button 1 pasif olsun
eşit değilse button 1 aktif olsun

If (Label1.Caption) = (Label2.Caption) Then
CommandButton18.Visible = False
ElseIf (Label1.Caption) > (Label2.Caption) Then
CommandButton18.Visible = True
End If

bu formülü uyguladım ama işlem görmüyor. tarih formatında işe yaramıyormu acaba farklı bir yolu varmıdır

 

[Orion1]

Buton 1 demişsiniz ama kodda commanbutton18.

 

[zulfuernek]

evet Orion hocam yazıda buton demişim kısaca özür dilerim command button olucak formüldeki terim doğru yani

 

[Orion1]

Bu kodları hangi olayda çalıştırıyorsunuz?

 

[zulfuernek]

bu kodları userform activate olayında yazdım Orion hocam

 

[Orion1]

bu kodları userform activate olayında yazdım Orion hocam

O zaman bu kodlar sadece userform aktif olduğu anda çalışır.

 

[zulfuernek]

zaten userform aktif olunca devreye girmesini istiyorum hocam. ınitialize olayındada denedim ama işlev görmedi

 

[Orion1]

Örnek dosya eklermisiniz?

 

[zulfuernek]

http://dosya.co/tefl9gyhqame/buton_aktif_pasif.xlsm.html

 

[Orion1]

Buradaki yazdığınız şartlara göre davranıyor kodlar.
Bir hata yok.Kodda ne yap diye yazmışsanız onu yapıyor kodlar.
Yani false olacak şartlar sağlanmamış.

 

[zulfuernek]

Orion hocam dosyayı güncelledim. tarih değiştiği zaman butonda bi farklılık yapamıyorum

http://dosya.co/fchf25krezy1/buton_aktif_pasif.xlsm.html

 

[Orion1]

b3 hücresine 03.03.2018 yazın , buton gözükmüyor.bu doğru sonuç oluyor.Zaten sizde label2 = label1 şartı koymuşsunuz.Sonuç doğrudur.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton2_Click()
    Label1.Caption = Sheets("Sayfa1").Range("B3")
    UserForm_Activate
End Sub

Private Sub TextBox1_Change()
    If Len(TextBox1) = 4 Then
         If Mid(TextBox1, 4, 1) > 1 Then
             MsgBox "0 ile 1 arasında Bir Rakkam Giriniz.!!!"
             TextBox1 = Trim(WorksheetFunction.Substitute(TextBox1, Right(TextBox1, 1), ""))
         End If
    End If
    
    If UserForm2.TextBox1 <> "" Then
        If Len(TextBox1) = 2 Then
            TextBox1 = Format(TextBox1, "0#"".")
        End If
        If Len(TextBox1) = 5 Then
            TextBox1 = Format(TextBox1, "0#"".""##"".")
        End If
        If Len(TextBox1) = 10 Then
            TextBox1 = Format(TextBox1, "0#"".""##"".""####")
        End If
    End If
    
    If TextBox1 <> "" And Len(TextBox1) = 10 Then Sheets("Sayfa1").Range("B3") = CDate(TextBox1)
End Sub

Private Sub UserForm_Activate()
    Label2.Caption = Format(Date, "dd.mm.yyyy")
    Label1.Caption = CDate(Sheets("Sayfa1").Range("B3"))
    'BUTON AKTİF PASİF OLMASI İÇİN
    If (Label2.Caption) = (Label1.Caption) Then
        CommandButton1.Visible = False
    Else
        CommandButton1.Visible = True
    End If
End Sub

 

[zulfuernek]

Userform activate kodunu eklemek olayı çözdü ) teşekkürler hocalarım

 

[Orion1]

Userform activate kodunu eklemek olayı çözdü ) teşekkürler hocalarım

Rica ederim.
İyi çalışmalar.