Sign Up

Sign Up to our social questions and Answers Engine to ask questions, answer people’s questions, and connect with other people.

Have an account? Sign In

Have an account? Sign In Now

Sign In

Login to our social questions & Answers Engine to ask questions answer people’s questions & connect with other people.

Sign Up Here

Forgot Password?

Don't have account, Sign Up Here

Forgot Password

Lost your password? Please enter your email address. You will receive a link and will create a new password via email.

Have an account? Sign In Now

You must login to ask question.

Forgot Password?

Need An Account, Sign Up Here

Please briefly explain why you feel this question should be reported.

Please briefly explain why you feel this answer should be reported.

Please briefly explain why you feel this user should be reported.

Sign InSign Up

StackOverflow Point

StackOverflow Point Navigation

  • Web Stories
  • Badges
  • Tags
Search
Ask A Question

Mobile menu

Close
Ask a Question
  • Web Stories
  • Badges
  • Tags
Home/ Questions/Q 1385
Alex Hales
  • 0
Alex HalesTeacher
Asked: May 30, 20222022-05-30T14:22:25+00:00 2022-05-30T14:22:25+00:00

is it possible to recover the parameters of the PasteSpecial action in excel through vba?

  • 0

[ad_1]

is there a way to “listen’ to the PasteSpecial command and its parameters in excel?
I’m writing a vba code to manage the Range.PasteSpecial method and realized I need a way to know if the Transpose parameter of the action defined by the user is true or false, so I can treat the source data accordingly.
Offcourse, since I don’t know when Transpose is TRUE, this piece of code below does not really work.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim UndoList As String

Application.ScreenUpdating = False
Application.EnableEvents = False

If Application.CommandBars("Standard").Controls("&Undo").Enabled = True Then

   UndoList = Application.CommandBars("Standard").Controls("&Undo").List(1)
   MsgBox (UndoList & "!")
     If Left(UndoList, 5) = "Paste " Or UndoList = "Paste special" Then
        
        If UndoList = "Paste special" Then
            If Transpose Then
            MsgBox ("Paste Transposed Values")
             Application.EnableEvents = False
             Application.Undo
             Application.EnableEvents = True
             Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
             'and other stuff
            Exit Sub
            Else
            MsgBox ("Paste Values")
             Application.EnableEvents = False
             Application.Undo
             Application.EnableEvents = True
             Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
             'and other stuff
            Exit Sub
         End If
         ElseIf Left(UndoList, 5) = "Paste" Then
        MsgBox ("Just Paste formats")
        Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False

        Exit Sub

     Else
        MsgBox ("choose another method")
         'Application.Undo
     Exit Sub
     End If
Else
Exit Sub
End If
UndoList = ""
End If
End Sub




[ad_2]

  • 0 0 Answers
  • 0 Views
  • 0 Followers
  • 0
Share
  • Facebook
  • Report
Leave an answer

Leave an answer
Cancel reply

Browse

Sidebar

Ask A Question

Related Questions

  • xcode - Can you build dynamic libraries for iOS and ...

    • 0 Answers
  • bash - How to check if a process id (PID) ...

    • 4796 Answers
  • database - Oracle: Changing VARCHAR2 column to CLOB

    • 1063 Answers
  • What's the difference between HEAD, working tree and index, in ...

    • 1009 Answers
  • Amazon EC2 Free tier - how many instances can I ...

    • 0 Answers

Stats

  • Questions : 43k

Subscribe

Login

Forgot Password?

Footer

Follow

© 2022 Stackoverflow Point. All Rights Reserved.

Insert/edit link

Enter the destination URL

Or link to existing content

    No search term specified. Showing recent items. Search or use up and down arrow keys to select an item.