activecell.offset0

For the following script, I have one issue where I need to ask the user for the month in cell N16 as there is no logical way to figure out the correct tab without user input. So for the line in Macro 3 listed as Worksheets("July 2018").Activate, I need assistance on pulling the Worksheet name...

I am receiving an error at the Sub Macro2 script for the line of code: "Workbooks.Open Range("N12"). Value where it tells me that it is N12 empty. How can I reactivate the sheet to pull the file name variable in the file I wrote code in N10, N12, and N14. N10 works as the sheet is activated...

I have a spreadsheet that In Column A, I want to Look up instances where the cell has a value of ABC123 and then run a Copy Data Code and return to look up the next instance of ABC123, but the code is loosing ABC123 and not going through all instances of it. I made some comments in my code below...

Hello, I have a workbook that is a main tracking workbook that needs to look up data from a user selected workbook. What I need it to do is to loop through column B in the Main tracking workbook, look up the value from column b in the user selected workbook and copy/paste data over to the main...

Sub InsertRow() On Error GoTo InsertRow_Error With ActiveSheet .Unprotect Password:="password" Dim rown As Range Dim rname As String Set rown = Application.InputBox _ (Prompt:="Select a cell in column A where you want the new row to be added"...

Hi, I have the below code which currently check a cell for a value greater than 0, if it is, it copies the figure into another sheet. The code loops until the last row of data. It has now arisen that sometimes the figure in the Data cell can equal 0. Is there a way to skip the cell if it...

Hi guys, I read this forum since a few months but this is my first post. Indeed, I need your help for the second macro of my life :) I am a financial auditor and I would like to create a macro that found the last coupon date of a bond, based on the maturity date, and before a certain date...

Hello all you VBA gods! I am new to this forum and new to VBA as well. I am trying to code a spreadsheet for work and, of course, I have bitten off more than I can chew but on the upside, I am learning quite a bit about VBA! I have this tricky problem.... I am trying to select every 'nth' cell...

I am trying to find the exact match of the input in textbox2 to the information in column B and populate text and comboboxes with the information contained in the cells in that row. If there is no match in column B to the information input in the textbox, then I would like the information to be...

Sub Macro1() For i = 1 To 500000 ' ' Macro1 Macro ' Pull Data and Refresh ' ' Keyboard Shortcut: Ctrl+Shift+Y ' MsgBox ("Update may take several minutes, Click Ok to begin") ChDir "C:\Users\measuser\Documents\HHI Current Month" Workbooks.Open Filename:= _...

Ok, soo... i am having trouble passing the values from combobox and textbox from userform1 to userform3 i have made Cust, PrtNmb and WrkNmb private objects Sub CommandButton1_Click() Range("a1").Select With ActiveSheet .Range("A1").End(xlDown).Activate 'moves to end of data...

Option Explicit Sub addata() ActiveSheet.Unprotect Dim Quot_No As String Dim Attn_Name As String Dim Co_Name As String Dim Quot_Date As String Dim Total_Price As String Dim Auth_Name As String Dim Des_CellB20 As String Dim Des_CellH20 As String Dim Des_CellI20 As String Dim Des_CellB21 As...

Hi all I have an extract from a something i'm working on here is the code extract Set f1 = Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 2)) Set f2 = Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 4)) Set f3 = Range("ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 5)") All i want to...

Hello, I am working on a weighted ranking procedure. I have the procedure written for when it is always rank the top three. The problem is that this needs to be dynamic, it could be any number up to 15 or 20. n is a defined variable and I have a variable called ranknum that identifies how ranks...

Sub approvePurchase(control As IRibbonControl) Dim rng As Range Set rng = Nothing If (ActiveSheet.Name) = "Purchase List" Then If Not Application.Intersect(ActiveCell, Range("I2:I600")) Is Nothing Then If ActiveCell.Value = "Pending" Then ActiveCell.Value = "Approved"...

Hi! I have a table and searching for a text. The value of ActiveCell.Offset(0, 3) is “1-ÅRIGT ÅTAGANDE” This text can change time to time, some time has upper case, and sometime has lower case. I want to match no matter upper case or lower case (without sensitivity). Please help! Sub test() If...

Hello Excel community! I'm hoping you can help me with a macro which I've inherited in an excel model. Essentially the macro picks up any issues/text input in columns A or B in active worksheets and summarizes these problems in an issue log tab. About a week ago I started toe receive the...

Is there an easier way of highlighting cells that contain a special character (!~`@#$%^&*()_+-={}|:"<>?[]\;',./) instead of listing everyone separate like below? There can be letters and numbers along with the special characters. If ActiveCell.Offset(0, 4).Value Like "*.*" Then...

The title probably isn't very well worded :) I have a worksheet with a macro which formats a cell with the RGB values from the previous 3 cells. So A1 will have the R value (0 - 255), B1 will have the G value (also 0 - 255) & C1 will have the B value (0 - 255) I have a macro in D1 which will...

I am getting a Run-time error '13': Type mismatch flag on the code line listed below. I do not know why it is failing at this point. The data is all formatted as Number so the data format is the same. I am at a loss as to why this is failing. Any support or direction is appreciated. '...