userform günceleme sonrası buton pasif yapmak

netvolxxx · Çarşamba saat 13:44'de

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 · Çarşamba saat 14:01'de

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

Kod:

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 · Çarşamba saat 14:09'de

cems' Alıntı:
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

Kod:

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 · Çarşamba saat 14:21'de

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

Kolay gelsin