rangea1.select

I built someone a piece of code that looks through their very old txt files that do not convert to excel very well. I go through the file looking for key words, so in the end they have a nice spreadsheet that has a large table of data, everything aligned and neat. The code however takes over 5...

Hi can anyone help with replacing the lines in RED with the lines in Blue to multiple subs? Sub dups1() Sheets("Sheet11").Select Dim Sheet11 As Worksheet: Set Sheet11 = Sheet11 Dim lRow As Long lRow = Sheet11.Cells(Rows.Count, "A").End(xlUp).Row Range("A1:BD" &...

Hello I have some data in the column A , would like to convert it to L shaped Long in related cells. Please hit the F8 to see what is happening! Thank u. Sub FillDataToL() Range("A1").Select ActiveCell.FormulaR1C1 = "W18" Range("A1").Select Selection.AutoFill...

Hi I am trying to place in column A, a list of numbers from 1, 2, 3, 4, etc. At the moment, I am using the following VBA code. Could any one recommend a more efficient way? Thanks in advance Range("A1").Select ActiveCell.FormulaR1C1 = "1" Range("A2").Select...

Hey everyone! I created a macro that would make our job easier. For some odd reason it was working fine and afer addig some lines and then deleting them it started giving me this Object error. I am no expert, I might have accidentally deleted something but I don't know what could be the problem...

I am not very knowledgeable about macros but the company I have just started working for has a few it uses to make reports out of the system more useable quickly. However, there is one that is broken and seems far too complex for me to fix so I am trying to copy another macro to at least...

Greetings, How can i change below code to be dynamic range? Sub Pivot_Data() ' ' Pivot_Data Macro ' ' Range("A1").Select Selection.CurrentRegion.Select ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Sheet1!R1C1:R34093C8"...

Hi all, i'm new to VBA so I do need some help. I'm trying to create some macros to help me accelerating my repeatable steps in my workbook. I have just got the way to correct the duplication when it occur but I hope you can help me to find a way to prevent it from happening. Here is the details...

I posted up a couple of months ago asking for help with a workbook: https://www.mrexcel.com/forum/excel-questions/1019628-workbook-has-repair-about-25-time-i-open.html I remade the workbook from scratch as suggested in the thread and deliberately didn't include the macro from the previous book...

Hello friends, Hope all is well! Please kindly help me with the code below. 1. Can I make it faster? 2. I want the loop to be run on decimels (e.g. 0.1, 0.2, …1.1,1.2 etc.) Highly appreciate it in advance! Option Explicit Sub animatedLineChart() Application.ScreenUpdating = False...

Afternoon all. Got a slight problem I'd appreciate some help with. The form I've made relies on someone copying data from a separate location and then clicking on a button that generates and saves as a copy. Where I'm struggling is figuring out where to put the OnError code when they haven't...

Please help! I've written the following macro and it was working fine until I completely closed my workbook and tried using it again. It now stops and prompts for the location of a file that a formula [=INDEX('[Country Codes recd 022114 (DO NOT DELETE).xlsx]...

Hello friends, Hope all is well. Both below codes work fine, but the second code is not taking effect, I want the formula bar to show up when a new workbook opens. thank you very much in advance! Private Sub Workbook_Open() Application.DisplayFullScreen = False ActiveWindow.DisplayHeadings...

Hi guys, I'm trying to write code which checks if the column "Status" in "yTable" has the string "yes" in it. if it does, i want it to do a series of things, if not, then I want it to go to a different sheet and do that. This is what I have so far. If "yTable[[Status]:[Status]]" = "yes" Then...

Hi guys, so i keep getting an error saying "Object variable or with block variable not set" the code used to work perfectly before i added something what i added was Set rng = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)) Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, rng...

Hi all , I have macro that does quick filter on column "N" and look for the dollar value >=5000 and copy the records and past in next sheet , now i wanted is if my filter column does not have dollar value of >=5000 macro should terminate . below is the macro for your refernce . Sub...

Dear Folks, I am trying to save a file with different name based on a cell value however could not save and face an error - "Runtime Error - 1004, Method 'SaveAs' of Object _Workbook' failed I have created this macro in File A. There is an value in Sheet 2 Cell B2. code opens a new file, saves...