copysheet

Hi, Apologies if this has been asked before, I wasn't able to find anything similar. I have code that loops through all worksheets except certain sheets and will save a copy of the sheet to a new workbook. (code below). What I'm trying to do is do exactly the same but also attach the pivot...

Hey community, I wanna know how can i use following VBA to copy paste data to specific range. ( from TRX u18:cu18 to DT sheey D1 ) Sub save1() Application.ScreenUpdating = False Dim copySheet As Worksheet Dim pasteSheet As Worksheet Set copySheet = Worksheets("DT") Set pasteSheet =...

Hi all This is the code I am using (which is working well) but I cannot seem to get it to not copy the formatting from the input sheet. Can someone please assist. Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim copySheet As Worksheet Dim pasteSheet As...

Hi just wondering is there any way of tidying up the code below as it is repeated quite a lot just wondering if there was a easier/better way in putting it all together. hope you can help. Private Sub CommandButton3_Click() With Sheets("Sheet1") .Columns("C:C").Sort...

Hi I have the code below where I am copying data over from sheet1 to New, but first I want in sheet1 column b sorting A-z, I have the code below where everything else works apart from the first part sorting column C in Sheet1 A-Z, please can you help? Private Sub CommandButton3_Click() With...

I'm trying to set up a single button that copies various ranges and puts them into different sheets in the first open row. The purpose is to have those copied ranges automatically graph as more rows are added (this part isn't perfect but I'm content with it). There are 5 groups of ranges that...

hi I have the code below where I have added a vlookup, but once the cells are updated I want to remove the vlookup, I have tried '.value=.value' but that didn't work can you help please? Private Sub CommandButton1_Click() Dim copySheet As Worksheet Dim pasteSheet As Worksheet Set copySheet...

HI I have where i want Range AP2 to last column to convert to number please can you help? Private Sub CommandButton1_Click() Dim copySheet As Worksheet Dim pasteSheet As Worksheet Set copySheet = Worksheets("Jun") Set pasteSheet = Worksheets("Jun") Lastrow =...

Hi, good afternoon. I have got the code below where I copy data from one sheet to another but in row B the data in this is 13 numbers but it comes up as +23555 for example how can I change the value to this to show as the 13 digit number? also in Row Q is the date as 15/05/2019 but when copied...

Hi good morning, i have the ode below where I am trying to copy all the data in a sheet called 'New' and paste into the last row in a sheet called 'Combined but its not working for me can you help please. Private Sub CommandButton3_Click() Application.ScreenUpdating = False Dim copySheet As...

Hi If I run the code below, it will create a file with the copied sheet. What is the interpretation of that? why excel doing that if a user did not specify after or before? Thank you very much. Sub copysheet() 'to copy a sheet Dim x As Integer x = InputBox("enter sheet#")...

Hi there, I have the following code. It copies values from sheet 1 to sheet 2, with the range of A2:J999. The issue, is that the range is actually dynamic. Sometimes, I just need A2:J10, other times, A2:J25. Should I be performing this function using a different method? Throughout this...

Hi, This is a snippet of my excel macro. I can't seem to figure out how to paste both the values AND the cell formatting. I get the values I need but have had weird formatting output with all of my attempts. Any help would be much appreciated. Thanks all of you Mr. Excel heroes!! Dim...

I am new to VBA and am struggling to find the code for this simple action through the existing forum posts. If it is possible to assist me it would be much appreciated. I have a named range on Sheet1 ("Sourcedata") referring to cells B10 to N10. I would like to copy the data in the range and...

Help! I have a macro on a button to copy and paste a range into a new worksheet. I need it to add a new line so that every time a user click, a new line of data will be added. Help! Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim copySheet As Worksheet Dim pasteSheet...