Write macro to bypass clipboard

**Butcher1** · 09-17-2014, 07:36 AM

I found a post on converting code from being dependent on the clipboard to being independent of the clipboard. It takes this code,

Sheets("London").Select
 Range("H9:H16").Copy
 Sheets("Yearly Total").Select
 Range("D9").Selection.PasteSpecial Paste:=xlPasteValues
 Application.CutCopyMode = False

and converts it to this,

Sheets("Yearly Total").Range("D9:D16") = Sheets("London").Range("H9:H16").Value

I get this code when I record a copy and paste macro.

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("R1:R19").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Prime Bench Main").Select
    Range("A3").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

The issue I am having is getting it to work with my use of relative refrences. This macro would be used multiple times, so it would insert the text into the next available column and I don't know how to do that. Any help would be appreciated.

**AlphaFrog** · 09-17-2014, 08:08 AM

This copies the selected range to sheet Prime Bench Main

Sub Macro1()
'
' Macro1 Macro
'
    With Selection
        Sheets("Prime Bench Main").Cells(3, Columns.Count).End(xlToLeft).Offset(, 1).Resize(.Rows.Count, .Columns.Count).Value = .Value
    End With
    MsgBox "Copy Complete"
    
End Sub

**Butcher1** · 09-17-2014, 08:36 AM

Sorry, I forgot to mention that the sheet that I was selecting the R1:R19 range from is the calculator sheet.

**AlphaFrog** · 09-17-2014, 08:53 AM

Sub Macro1()
    
Sheets("Prime Bench Main").Cells(2, Columns.Count).End(xlToLeft).Offset(, 1).Resize(19).Value = Sheets("Calculator").Range("R1:R19").Value
    
End Sub

Write macro to bypass clipboard

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Write macro to bypass clipboard

Re: Write macro to bypass clipboard

Re: Write macro to bypass clipboard

Re: Write macro to bypass clipboard

Thread Information

Users Browsing this Thread

Similar Threads

Bypass Clipboard when copy/pasting non-contiguous rows

[SOLVED] clipboard bypass not working

Re-Write Code Without Clipboard

bypass clipboard too large comment

is it possible to execute write to the fields in another .xsl form a macro in another .xsl? e.g. some way to load another .xsl into an .xsl macro and write to its data?

Bookmarks

Bookmarks

Posting Permissions