.cellsi

Good afternoon What are the advantages of utilizing the With Statement. Additional question How would an array be beneficial here? Thank You With - lr = Range("B" & Rows.Count).End(xlUp).Row For i = 2 To lr With Sheet2 .Cells(i, "D").Value =...

Hi Everyone, I have this macro that does some calculation for me, the problem is it run one line at a time on every visible row. I was hoping we could change this to only run on the select cell or cells rows. even better if we could get it to trigger itself after a had added data and after I...

Hello, Hope you are well. I have code that looks on Sheet 7 and Sheet 18 for a cells thats values are equal. Then pastes contiguous and non contiguous values in the same row as the equal cell in Sheet 7 to Sheet 18. It takes a very long time. Can someone please help to make it faster...

Need correction in code, little correction.. Error - Object doesn't support this property or method.. With Worksheets("Sheet1") For i = 3 To RowCnt1 If .HorizontalAlignment = xlLeft Then............Getting an error on this .Cells(i, 6).Interior.Color = vbRed End If Next i...

I want to use "concatenate" here...but dont understand how to use.. With Worksheets("Sheet1") For i = 3 To RowCnt1 If .Cells(i, 3) = "" Then Else .Cells(i, "B").Value = WorksheetFunction.Combin(.Cells(i, 3).Value, " ", .Cells(i, 4).Value) Next i End With

Hi, I am creating mailto:-links that are way to long, so they return "#Value" if I use =HYPERLINK(). I Have found this Sub, but I'm not experienced enough to modify it. Sub HyperlinkMaker() 'Code assumes column A and B values will be concatenated and used to make a hyperlink 'The hyperlink...

Dear All, I have this simple code copied from somewhere else but I can' t check if it works because it stops immediately: Private Sub CommandButton2_Click() With Me.ListBox1 .ColumnCount = rRng.Columns.Count .ColumnWidths =...

Thanks in advance to everyone. I have the following code that allows me to select a list of names and post to a new range. It works well but my first pass was to just recreate code X times and change the selection criteria called REG to XXX and also change the variable to paste the selection...

Hello! I have a database, which is far too big and it can be compacted, because one column is not needed, but I need to sum the values in some other columns in it to delete whole rows. Example: <tbody> Product Product_ID Buyer Date Items Value Apples 12340 CompanyA 03-10-2017 3 9 Apples...

Hello! I have a database, which consists of thousands of rows (10-50k rows) and I need to alter value in one column if 3 different conditions are met for that row at the same time (linked by "AND"). For first two I have it easy, because it simply checks if value is "Modem" or not and second one...

Below code (Code One) is currently working fine, where selected columns are copy & pasted with single criteria in Column A. However, I am trying to add another condition, where excel will not copy cells if Columns N to R are blank. I tried writing Code Two (below) but getting Run-time error '9'...

Set check = dataws.Range("A:A").Find(What:=.Cells(i, 2).Value, LookAt:=xlPart).Offset(0, 1) If Not check Is Nothing Then .Cells(i, 13) = check.Value Else...

Hi all, So I'm trying to set up a reminder that checks if the week number is the same as current week number, if so then display a msgbox containing the information but unsure of the method to store the information into a variable. My code that I've started below is just a small scale but is...

Please help me understand and modify this macro. My colleague wrote the macro listed below. It works just fine. Now I would like to add column P to do the same time. Can someone explain the If and null string part of the macro and help me modify it. I would like to learn this, so in the...

I had this working in another file but would like to make it universal available macro in my Personal program. I need the file to compare cells in col C(3) then if they are different insert a row with col C(3) saying total then perform a sum function for Col D(4) for that group. This is the...