Uploaded May 2020 | Updated September 2026, 1 week ago
How to filter data automatically into Listbox using two combo-boxes data as criteria with VBA.
Complete details including VBA code available at this web link:
exceltrainingvideos.com/filter-data-into-list-box-using-two-combo-boxes-data-as-criteria
How to filter data automatically into Listbox using two combo-boxes data as criteria with VBA.
Complete details including VBA code available at this web link:
exceltrainingvideos.com/filter-data-into-list-box-using-two-combo-boxes-data-as-criteria





![Forward Message via whatsapp Desktop
How to forward a message and document automatically to a specific recipient via Whatsapp desktop using VBA.
Heres the complete code. Your code may be different due to different XPath:
Option Explicit
Dim driver As New WebDriver
Sub ForwardMessage()
Chrome Driver
Selenium
Selenium Wrapper
Dim keys As New SeleniumWrapper.keys
driver.Start chrome
driver.Get https://web.whatsapp.com/
driver.Window.Maximize
driver.Wait 5000
driver.Wait 1000
driver.FindElementByXPath(//*[@id=side]/div[1]/div/label/div/div[2]).SendKeys (Dt)
driver.Wait 1000
driver.FindElementByXPath(//*[@id=side]/div[1]/div/label/div/div[2]).SendKeys (keys.Enter)
driver.Wait 1000
driver.FindElementByXPath(//*[@id=main]/header/div[3]/div/div[2]).Click
driver.Wait 1000
driver.FindElementByXPath(//*[@id=main]/header/div[3]/div/div[2]/span/div/ul/li[2]/div).Click
driver.Wait 1000
driver.FindElementByXPath(//*[@id=main]/div[3]/div/div/div[3]/div[7]/span/div).Click
driver.Wait 1000
driver.FindElementByXPath(//*[@id=main]/span[2]/div/button[4]/span).Click
driver.Wait 1000
driver.FindElementByXPath(//*[@id=app]/div/span[2]/div/span/div/div/div/div/div/div/div[1]/div/label/div/div[2]).SendKeys (Poonam Mobile)
driver.Wait 1000
driver.FindElementByXPath(//*[@id=app]/div/span[2]/div/span/div/div/div/div/div/div/div[1]/div/label/div/div[2]).SendKeys (keys.Enter)
driver.Wait 1000
driver.FindElementByXPath(//*[@id=app]/div/span[2]/div/span/div/div/div/div/div/div/span/div/div/div/span).Click
driver.Wait 2000
driver.FindElementByXPath(//*[@id=main]/footer/div[1]/div[2]/div/div[2]).SendKeys (File forwarded for your further action.)
driver.FindElementByXPath(//*[@id=main]/footer/div[1]/div[2]/div/div[2]).SendKeys (keys.Enter)
End Sub Forward Message via whatsapp Desktop](https://i.ytimg.com/vi/d9_0JmF8TAQ/mqdefault.jpg)




