.cells1

They keep pulling me back in! :) The sheets now need to parse from a 3rd database draw that is dumped into a worksheet in the workbook. A match of ZMB will generate > 1 response since ZMB gives Serial numbers to be added to the lot, and that works. Issue is it takes >25 minutes to run the...

Hard to believe I am here for this, but.... here I am Just trying to AutoFill xlFillSeries from Column A to LastColumn Here is where I'm at (I think I'm close?) Application.ScreenUpdating = False With Sheet1 Lc = .Cells(1, .Columns.Count).End(xlToLeft).Column...

I want to insert a new column (with the name) after last column with data. i tried using the below code by writing it in VBA module, however it does not work. [ Sub add_column() Dim LastRow As Long Dim LastCol As Long Dim iRow As Long Set ws = Sheet1 ' NOTE: Change this if...

Hi all, I'm no expert at VBA, so I've hit a brick wall with this. Here is my code below. The problem I have is when I try to update the fields in the userform, line 25 of buttUpdate_Click causes an "object required" error and I just can't get my head round it Private Sub UserForm_Click()...

I have the following codes which creates an index I would like "back to Index" hyperlink not to be inserted on sheet Summary" Your assistance is most appreciated Private Sub Worksheet_Activate() Dim wSheet As Worksheet Dim M As Long M = 1 With Me .Columns(1).ClearContents...

Hi, i am trying to figure out why the following code doesnt show only filtered data on the listbox. Can someone help me please? Dim rData As Range With Blad1 Set rData = .Range(.Cells(1, 1), .Cells(.Rows.Count, 5).End(xlUp)) If Not .AutoFilterMode Then .Cells(1, 1).AutoFilter...

Hello all I am trying to do the following If the cell range "K" is blank complete a Vlookup If the cell range "K" has data in do not perform a Vlookup so that the data remains in the cell, any help on this would be great please. With Range("K1:K" & LastRow) .FormulaR1C1 =...

Say row 1 height is 60 and button height is 30 CommandButton 1 in cell BP1 at the top (BP is column 68) CommandButton 2 in cell BP1 below Button 1 .OLEObjects("Commandbutton1").Top = .Cells(1, 68).Top ' place in top of cell .OLEObjects("Commandbutton1").Left =...

My workbook uses userforms to create a new row in a three different table on three different worksheet in the same workbook. I have a listbox (LB_01) on the userform, but am not sure how to get the new data submitted from the userform to post in the listbox since I am using one userform to...

I have some code that creates a new line in 3 different tables on three different worksheets in a workbook when data submitted through a user-form. All of the formulae are copied from the line above and all of the data from the user-form writes to the correct locations, but I have a total of 5...

Have been searching How to add worksheets if does not exist and then add totals to Column B. Not sure How to execute the top portion of the code. thank you Sub TotalEachWorksheet() Grandtotal = 0 Worksheets.Add ActiveSheet.Name = "Summary" Worksheets.Add ActiveSheet.Name =...

Greetings all. I will appreciate some help with the following code. I am new to this world and am eager to learn. I am trying to move data from a user form(frmData) to Excel, and have come across the following code. But it does not work. can anyone tell me what is wrong? Sub cmdAdd_Click()...

My code is : Sub Calculating() Dim header As String With header.Range("A1") = "Name" .Cells(1, "B") = "Class" .Cells(1, "C") = "Subject" .Cells(1, "D") = Range("d1") = "Marks Secured" The above code is causing to throw error as...

Hello, I have this piece of code that I am using to format a worksheet to later be used as a comparison template for another worksheet. Sub Comparison_Formatting() Dim LR As Long, _ i As Long LR = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row With Application .ScreenUpdating =...