userformu minimize etme

[airborne]

s.a.

aşağıdaki kodları sorunsuz bir şekilde kullanıyorum. Ancak CommandButton1_Click makrosu çalışmaya başladığı anda userformun ekrandan kaybolması ve foreach döngüsünün bitiminde ekrana gelmesini bir türlü sağlayamadım.

Selametle...........................

s.a.



Private Sub CommandButton1_Click()

Application.Wait (Now + TimeValue("00:00:05"))

For i = 1 To 10

Call SendKeys("a", True)
Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("b", True)
Application.Wait (Now + TimeValue("00:00:01"))


Call SendKeys("c", True)
Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:01"))

Next

End Sub

 

[airborne]

s. a.

Teşekkür ederim