ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[ekselmeraklisi]

Shell "notepad.exe"
zaman (50)
Call SendKeys("+{ENTER}", True)
Call SendKeys(Label2.Caption, True)
zaman (100)
Call SendKeys(TextBox3.Value, True)
zaman (100)
Call SendKeys("+{ENTER}", True)
zaman (100)
Call SendKeys(Label3.Caption, True)
zaman (100)
Call SendKeys(TextBox49.Value, True)
zaman (100)
Call SendKeys("+{ENTER}", True)
zaman (100)
Call SendKeys(Label4.Caption, True)
zaman (100)
Call SendKeys(TextBox5.Value, True)
zaman (100)
Call SendKeys("+{ENTER}", True)
zaman (100)
Call SendKeys("^a", True)
zaman (150)
Call SendKeys("^c", True)
zaman (150)
Call SendKeys("{NUMLOCK}", True)
zaman (250)
Call SendKeys("{CAPSLOCK}", True)
zaman (250)

End Sub

Üstteki kodla userformdaki verileri bir commandbutton ile not defterine alabiliyordum. Fakat başka bilgisayarda deneyince notepad çok sayıda açılıyor ve bilgisayar donuyor. Koda ne eklemem gerekli?

[ekselmeraklisi]

Windows 10'da bu sorun olmuyordu, Win11'de oluyor. Yardımcı olabilecek var mı