operation=xlnone

Hey guys, I am basically trying to make my code run faster, I am trying to convert a section of the code that copies and pastes data across two workbooks to be faster and cleaner. Here is the original paste/copy data: Sub WALLCERTIFICATE()' ' Macro2 Macro ' Dim M As Workbook Set M =...

I copy the following from a web page that was 4 column of rows. I pasted it in excel and showed up in one column. 9/26/2019 11:15 BTC 0.03142971 Completed 9/19/2019 12:01 BTC 0.02388444 Completed 9/10/2019 20:46 RVN 2414.582 Completed There are more than 100 of these groups in one column. I...

Good evening, I have a table that sometimes i might need to add a row to. I need this row to insert at the bottom of the active cell and still hold the formatting and formulas from the row above it, without the contents of the cell. I did a record macro as i got fed up trying to figure it...

In Work sheet figures there is a date usually a day before in this format 15/08/2019. I have a simple macro see below is there a way of closing the work book but with the date as 15.08.2019 using the path T:\11 Admin support etc as the target automatically Sheets("Figures").Select...

I'm trying to get a handle on 'Deactivate'. My biggest problem are the users that forget to update the worksheet. I've been using the Command button and here is the code. It works but only when the users hit it. Sigh... Private Sub CommandButton2_Click() Application.ScreenUpdating = False...

Hello All Experts, I have a standard template column A-D and variable value column G-H. I would like to copy and past a variable value into a standard template then repeat it until the last row of variable value. After some searching within the board, I could came up with below codes but...

Hi all, I am having an issue with my copy paste code. Here is my code: If Range("B49").Value = "Other" Then Sheets("Sheet1").Range("B50").Copy Sheets("Sheet2").Activate lastrow = Range("D65536").End(xlUp).Row Cells(lastrow + 1...

Hey all, I have this copy and paste code for a button. Here is the code: If Range("B16").Value = "Dog" Then Sheets("Animals").Range("A16:D19").Copy Sheets("Finished").Activate lastrow = Range("A65536").End(xlUp).Row Cells(lastrow + 5, 1).PasteSpecial...

Hi Below is some code I have. There's actually a lot of copying and pasting going on between workbooks (more than I show below). I would like to speed up the macro and was wondering is there better faster way to copy paste a number of cells on a worksheet that have been identified with a...

HI, I want to copy diff cells (i.e. B2, D99 & E99) to another sheet in Column A2, B2 & C2 and every time it will get updated below (not overwrite) i.e. a3, b3, c3 etc I write following code but need to short one Sub Macro1() Dim wss As Worksheet, wsf As Worksheet Set wss = Sheets("VAC_EML...

Hi, I am having an issue with the code below. I am able to hit the run button in the VBA UI, and the macro works perfectly, but when I assign the macro to a button, it errors out. "Run-time error '1004': Method 'Range' of object '_Worksheet' failed. Any help would be much appreciated. Thank you...

Using Excel 2000</SPAN></SPAN> Hi,</SPAN></SPAN> I have created one folder on desktop and named "csvfiles" when I receive a new file I just add into this folder (in the same folder I have put one excel workbook named "csvfilestoexcel" </SPAN></SPAN> I want I code when I open...

I have code tied to a userform (on the form I have a run button which runs the code). If I launch the Userform from one tab, the code runs great. If I launch the Userform (via a button) from another tab it errors out. (run-time error'1004': Select method of range class failed) It errors on...

Hi everyone, I need some help, I am learning lots but I'm trying to make a loop. I'm trying to get the Range I'm copiyng to move down 3 cells each time and the place pasted down by one. Copy - A1:A3, A4:A6, A7:A9...etc Paste: G1,G2,G3...etc. In context, I am coping Name, age & location and...

Hi am new to vba. How to repeat the commands below and paste results in row C8, C9, etc. Thanks. ' Sheets("Rand").Select Range("A1").Select Calculate Range("A1:A8").Select Selection.Copy Range("A12").Select Selection.PasteSpecial Paste:=xlPasteValues...

Hi, I am seeking help pasting the copied value inside for loop in the following code. But complaining at line: .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Any help, please. thanks Dim lastIrow As Long lastIrow = Cells(Rows.count...

Hi Everyone, I am attempting to copy data from one sheet to another. My copied data is A3:R52. However, i want it to paste the data at the next empty cell given there are not values everytime in A3:R52. Here is my current code: Range("A3:R52").Select Selection.Copy...

Hello all, the "problem area" is highlighted in Bold. We've tried extensively to fix this including aliasing all sheets and variants of "ActiveWorkbook.Activate" Sub Produce_Report()' ' Produce_Report Macro ' ' Application.ScreenUpdating = False Application.Calculation = xlManual Dim F...

Hi there - bit of an Excel novice, but trying to get a Macro I have on a document updated so it ignores a few of the worksheets. The sheets to be ignored are just data, and the macro in question is a simple copy & paste job for some monthly tabs we have further in the document. Have tried to set...

I Started to get this error lately when running a macro. I seem to get it when I run multiple instances of excel to run at the same time (10 at the same time). MESSAGE BOX Run-time error "2147417848 (80010108)':<strike></strike> Automation error The object invoked has disconnected from it's...