salahawwad90

شكرا أ / محمد صالح الله يبارك فيك الكود 100/100 اذا ممكن الكود يبعث لمجموعة ارقام رسائل مختلفة

السلام عليكم لدي ملف اكسيل فورم ل ارساله سائل نصية الكود يعمل بشكل صحيح ولكن لا يتم لص نص الرساله ارجو المساعدة Private Sub CommandButton1_Click() Dim contact As String Dim text As String ' contact = TextBox1.Value text = TextBox2.Value ' Google Messages ActiveWorkbook.FollowHyperlink Address:="https://messages.google.com" Application.Wait (Now + TimeValue("00:00:10")) ' Call SendKeys("{TAB}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("{TAB}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) ' Enter key Application.Wait (Now + TimeValue("00:00:04")) ' Call SendKeys(contact, True) Application.Wait (Now + TimeValue("00:00:04")) ' Call SendKeys("{TAB}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys(text, True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) ' Enter key Application.Wait (Now + TimeValue("00:00:04")) End Sub sms.xlsm

السلام عليكم احتاج كود vba للجمع بين تاريخين ل اسم زبون او اسم صنف في الاكسيل فورم ادخال و تعديل مرن مع الصور.xls

شكرا كثير مهند محسن

السلام عليكم ممكن كود طباعه للتقرير الظاهر باللست بوكس مع الاحترام