Sub INSERT_ME3()
Worksheets("1").Activate
Application.Wait (Now + TimeValue("0:00:01"))
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6").Select
Range("A6").Value = Worksheets("1").Range("L5")
Application.Wait (Now + TimeValue("0:00:01"))
Range("B6").Select
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys ("^+{DOWN}")
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys ("^{DOWN}")
Application.SendKeys ("{LEFT}")
Application.SendKeys ("^{DOWN}")
Application.SendKeys ("+{SPACE}")
End Sub
---
see video how it works (doesnt work atm because i need help)
Worksheets("1").Activate
Application.Wait (Now + TimeValue("0:00:01"))
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6").Select
Range("A6").Value = Worksheets("1").Range("L5")
Application.Wait (Now + TimeValue("0:00:01"))
Range("B6").Select
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys ("^+{DOWN}")
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys ("^{DOWN}")
Application.SendKeys ("{LEFT}")
Application.SendKeys ("^{DOWN}")
Application.SendKeys ("+{SPACE}")
End Sub
---
see video how it works (doesnt work atm because i need help)
DropMeFiles – free one-click file sharing service
Share your pictures, send large videos, exchange music or transfer big files. No registration required. Unlimited upload/download speed.
dropmefiles.com