userform günceleme sonrası buton pasif yapmak

[netvolxxx]

merhaba userform da buton işleminden sonra başka bir buton pasif yapmak istiyorum formu güncelleme yaptığım için bir türlü yazamadım kodu

aşağıda yazılı olan kod da CommandButton4.Visible = False nasıl yapıcam

nasıl olcak yardımlarınızı bekliyorum.

Private Sub CommandButton19_Click()
On Local Error Resume Next
If MsgBox("SEPET OLAN ÜRÜNLERİ ONAYLANDIKTAN SONRA YENİ ÜRÜN EKLENEMEZ. Emin misiniz?", vbYesNo, "") = vbNo Then Exit Sub
Dim i As Integer, a As Integer
Application.ScreenUpdating = True
For i = 28 To 477
a = Cells(i, "k").MergeArea.Cells.Count
If Cells(i, "k") = 0 Then
Rows(i).Resize(a, 1).EntireRow.Hidden = True
End If
If a > 1 Then i = i + a - 1
Next i
Unload Me
urunsyf.Show

CommandButton4.Visible = False

end sub

 

[cems]

Unload Me komutu, mevcut formu kapatır. Ancak CommandButton4.Visible = False satırının çalışması için, urunsyf formunun aktif olması gerekir. Bu yüzden, urunsyf.Show komutundan sonra CommandButton4.Visible = False satırını eklemek dogru olabilir.

Bu şekilde deneyiniz dosya eklemediğinizden cozum teoriktir

Private Sub CommandButton19_Click()
    On Error Resume Next 'Hataları göz ardı et
    If MsgBox("SEPET OLAN ÜRÜNLERİ ONAYLANDIKTAN SONRA YENİ ÜRÜN EKLENEMEZ. Emin misiniz?", vbYesNo, "") = vbNo Then Exit Sub
    Dim i As Integer, a As Integer
    Application.ScreenUpdating = True
    
    ' Ürünleri kontrol et
    For i = 28 To 477
        a = Cells(i, "k").MergeArea.Cells.Count
        If Cells(i, "k") = 0 Then
            Rows(i).Resize(a, 1).EntireRow.Hidden = True
        End If
        If a > 1 Then i = i + a - 1
    Next i
    
    ' Formu kapat
    Unload Me
    
    ' Başka bir formu aç
    urunsyf.Show
    
    ' Burada CommandButton4'ü gizle
    urunsyf.CommandButton4.Visible = False
End Sub

 

[netvolxxx]

Unload Me komutu, mevcut formu kapatır. Ancak CommandButton4.Visible = False satırının çalışması için, urunsyf formunun aktif olması gerekir. Bu yüzden, urunsyf.Show komutundan sonra CommandButton4.Visible = False satırını eklemek dogru olabilir.

Bu şekilde deneyiniz dosya eklemediğinizden cozum teoriktir

Private Sub CommandButton19_Click()
    On Error Resume Next 'Hataları göz ardı et
    If MsgBox("SEPET OLAN ÜRÜNLERİ ONAYLANDIKTAN SONRA YENİ ÜRÜN EKLENEMEZ. Emin misiniz?", vbYesNo, "") = vbNo Then Exit Sub
    Dim i As Integer, a As Integer
    Application.ScreenUpdating = True
   
    ' Ürünleri kontrol et
    For i = 28 To 477
        a = Cells(i, "k").MergeArea.Cells.Count
        If Cells(i, "k") = 0 Then
            Rows(i).Resize(a, 1).EntireRow.Hidden = True
        End If
        If a > 1 Then i = i + a - 1
    Next i
   
    ' Formu kapat
    Unload Me
   
    ' Başka bir formu aç
    urunsyf.Show
   
    ' Burada CommandButton4'ü gizle
    urunsyf.CommandButton4.Visible = False
End Sub

nasıl aklıma gelmedi başına form adına yazmak
teşekürrr ederim eyvallah sağolun....

 

[cems]

nasıl aklıma gelmedi başına form adına yazmak
teşekürrr ederim eyvallah sağolun....

Kolay gelsin