rangea

Thank you everyone in advance for the help. I am still learning basic VBA so this one is a bit of a stretch... For all cells in column A that are updated (be that manually entered, or updated via click and drag, other) I want a specific output in column B. I have the if statements working as...

I have this code, where I first insert a row on every 15th row, in effort to break apart my data. I then want to to cut what is in rows 2 to 14, and paste to row 1. Then I want to delete the now empty rows 2 to 14, and I want the process to start over (where it now uses row 2 as the pasting row...

I need some help with modifying this code as I don't know how to code: <code>Sub addDisclaimer() LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row rows(LastRow + 1 & ":200").Select Selection.Delete Shift:=xlUp ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" &...

Hello Im trying to get my code to move to the next line when the command button is clicked. But the problem is, the code inserting a row everytime not just moving to the next row. I know its a problem with 'Entire Row.Insert' but what syntax do I replace it with to just move to the next row and...

Hi, sorry if title wrong, dont really know what to call this Have the following code which excludes any rows where the critera given is met. Do Until Range("A" & R).Value = "" If Sheets("checkSmart").Range(QRiskRule1 &R).Value = "Annual Review" OrSheets("checkSmart").Range(QAdvType & R).Value...

<code class="vb keyword" style="white-space: nowrap; padding: 0px !important; font-family: Consolas, "Bitstream Vera Sans Mono", "Courier New", Courier, monospace !important; font-size: 1em !important; color: rgb(0, 102, 153) !important; border-radius: 0px !important; background: none...

Hello, I am triyng to merge last cell with value in A column. Merge should happen till E. It is just Last cell merge Dim lrow As Long With x.Sheets("WEEK 1") lrow = .Range("A" & .Rows.Count).End(xlUp).Row .Range("A" & lrow - 1, "M" & lrow).Copy With y.Sheets("WEEK 1") Range("A" &...

I know I am over thinking this. I have a spread sheet that we are adding a function for TR. the report we create is stupid and will list them as such: <colgroup><col width="68" style="width: 51pt; mso-width-source: userset; mso-width-alt: 2486;"> <col width="72" style="width: 54pt...

Hello, I am trying to get the following to work, if does not error , just returns blank cell rather than 0 or 1, can someone tell me where i am going wrong please. Dim lastrowcolumnA As Long lastrowcolumnA = Range("a" & Rows.Count).End(xlUp).row For i = 2 To lastrowcolumnA If Cells(i, 14) >= 2...

I need to Do a VLOOK UP with IF.. IF Cell Contains YES, Then do a VLOOKUP up on 1 range with 3 Criteria separate but from the same Range... For SO If A1 Says YES then VLOOKUP RANGEA,CELL#1 VLOOKUP RANGEA,CELL#2 VLOOKUP RANGEA,CELL#3 Help please with one formula

Hello Everybody! I have a couple of 'buttons' to send a certain value to column A with. Now I would like to change the colour and disable the button for let's say 0,5 seconds every time someone press it. The reason is that it should be a confirmation and to prevent users from pressing it too...

Good morning I am trying to highlight cells with data in non contiguous columns. Below is the code I have started with, not sure what I am doing incorrectly. Thank for any help. Sub HighlightCellwithData2() Dim i As Long, lr As Long lr = Range("H" & Rows.Count).End(xlUp).Row...

Hi everyone, I am attempting to build a VBA loop that'll go through all populated data in each cell with columns "A" and "B" and in doing so move each value in these cells from A2:B2 to E2:F2, & then loop to the next row and move A3:B3 to E3:F3.. etc etc I am not any good with VBA loops and...

Private Sub CommandButton1_Click() Dim LR As Long, i As Long LR = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To LR With Range("A" & i) If .Text = Range("U1").Text Then .Offset(, 1).Resize(, 5).Copy Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues End If End With...

the below code is good but i need one for exact cell value for example pdf file 1000 in this code come to cell vaLue 1 and 10 and 100 and 1000 i need code to cell value 1000 only Code: Sub AddHypaerlinks() Dim lastRow As Long Dim myPath As String, fileName As String myPath =...

I have tried to write code that where Grand Total appears in Col A, then to fill Color the Cols A:C in the samerow as where Grand total appears I get an error and the following code is highlighted Range("A" & r & ":C").Interior.Color = 65535 it would be appreciated if someone could assist...

Hi Again, Can anyone help me with copying/pasting using a userform. I have a master spreadsheet that I'm copying data from an pasting to a different workbook. I've got this bit working fine but once the pasting over has happened, I need to populate column "A" from a textbox value all the way...

Hi there, I have a page which is generating dynamic rows and I need to assign a macro to one of the cells in the process. I can add strings via the vba, but I cannot suss out how to make Range("A" & row) assign to macro 'Macro1' if you can point me in the right direction, that'd be ace! Cheers

Hello, below code is performing on my book 1 - sheet 1. it is not allow me Ctr+F manually..any specific reason..is my code affecting to this..? 'copy in new workbook Range("A2", Range("F500").End(xlDown)).Copy Dim wb As Workbook Set wb = Workbooks.Add ActiveSheet.Paste Application.CutCopyMode...

Hello, I am a newbie in VBA and I have a question regarding the Worksheet_Change event. Let's say, anytime something changes in the worksheet, I want to write something in the next empty cell in column A. So I have the following simple code: Private Sub Worksheet_Change(ByVal Target As Range)...