icounter

hi all, I have the following code: For iCounter = 9 To iLast Set rng1 = ws.Range("G9:G5000").Find(ws2.Range("G" & iCounter).Value) If rng1 Is Nothing Then ws2.Range("A" & iCounter & ":" & "K" & iCounter).Copy ws.Range("A" & ws.Range("A" &...

I have some code that when I try and run it, I get an error message saying next without for and it has the next highlighted. What am I missing? Sub cmdCopyr() Application.ScreenUpdating = False 'declare variables Dim TableLastRow As Long Dim LastRow As Long Dim TableNumberRows As Long Dim...

Hi I am using the below code to delete blank columns in a particular range of Columns but code is not working. Not even showing any Error

Good morning forum, I am tiring to insert blank rows between a range of rows, but need it to skip over hidden rows. Below is what I have started with and the inserting is working fine. Thanks in advance. Sub Insert_BlankRows() Dim MyRange As Range Dim iCounter As Long Set MyRange...

Hi. I'm trying to lookup each value of table1 in table2 giving the second column. In table2 data is sorted. TABLE1... LOOKUP VALUE RESULT A A1 A A2 A A3 A A4 B B1 B B2 B B3 C C1 B B1 B B2 B B3 TABLE2.. COL1 COL2 A A1 A A2 A A3...

I wrote a macro that I use to analyze the outputs of a 2-d hydraulic flow model. It gets rid of the junk data and moves the data I want to analyze near the "origin" of the webpage. It worked on a pretty large data set when we had a 3' sized grid, but the excel crashes when I run it on the...