VBA to ADD TAB to COPIED TEXT for PASTING ACROSS FIELDS in ONLINE FORM

[Turk182]

VBA to ADD TAB to COPIED TEXT for PASTING ACROSS FIELDS in ONLINE FORM

Good afternoon, I need a VBA code that will copy the following from Cells Q1 to Q4 into the clipboard in such a way that when pasted to an online form, the information is parsed out into each of four successive fields of that form: Name, Address, Phone, and Email Thank You.

 

[Tupe77]

This copies those cells and pastes them into four consecutive fields.
The first field must be active before starting the code.
The operation is based on sendkey, so the code enters the data blindly, in four places, even in the wrong program or tab.
Most special characters do not work here.
The code is very unstable for the reasons mentioned above.

I'm not sure you meant/want this?

Sub TS_fill_form()
    
Dim cell As Range, DataRNG As Range
Dim i As Integer
Set DataRNG = ThisWorkbook.ActiveSheet.Range("Q1:Q4")
Application.SendKeys ("%{TAB}")
Application.Wait (Now + TimeValue("0:00:02") / 2)

i = 1
For Each cell In DataRNG
    Application.Wait (Now + TimeValue("0:00:02") / 5)
    Application.SendKeys cell.Value
    Application.Wait (Now + TimeValue("0:00:02") / 5)
    If i <= 3 Then Application.SendKeys ("{TAB}")
    i = i + 1
Next

End Sub

 

[Tupe77]

Thank you for the feedback!
It's nice to hear that we were able to help.