skipblanks=false

Hello all, I have a rather big area (A1:CJ311) with some cells having Borders on all sides, some cells collectively have a thick box border etc. Most of the cells have formulae in them. I want to copy the whole range("A1:CJ311") to another location with just the bordering formats of the cells...

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, 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...

I have two worksheets in same workbook to which I'm copying one to another and pasting special values. Column T is mixing currency and number formats. New to VBA, so any help you could provide would be appreciated. Private Sub CommandButton3_Click() Dim lLR As Long...

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...

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...

Hello, I hope someone can help me with my question. I have a formula that resets an area to the formatting of a specific line: Sub Resetformatting () Range("B17:W17").Select Selection.Copy Range("B18:W468").Select Selection.PasteSpecial Paste:=xlPasteFormats...

ANy other way to write this code.. ActiveWorkbook.Sheets("Sur").Columns("R:R").Select Selection.Insert Shift:=xlToRight Columns("S:S").Select Selection.Copy Columns("R:R").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False...

can any one please shorten this code in professional way please.. Sub datacollect() Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Surety").Visible = True Sheets("Lossrun").Visible = True Sheets("OPT").Visible = True Surety...

Hello everyone, I am completely new to VBA, but the process I now need to perform is forcing me into learning about it. Currently I'm working on a summary workbook that needs to pull data from multiple different workbooks. All of the workbooks I need to pull from are formatted the exact same...

In a previous thread I was adviced to get rid of .Activate, .Select, and .Selection - as these both slow down code and is known to cause flickering screen. And then to put Application.ScreenUpdating = False at the top of my code. Through several other threads and a lot of help, I've changed...

Hi everyone, I'm new here (thanks for having me) and am a novice user of Excel. I'm struggling with what I'm sure are basic looping issues in VBA, and am hoping that someone could direct me to a useful instructional website or perhaps be kind enough to help me get started in loops. Some...