VBA to search string and stop when found once

shiva_reshs

Board Regular
Joined
Sep 5, 2012
Messages
68
hi,

in Week 2 column, i have column Holiday (I column). In week 1 tab under same workbook, i want to add another column next to column I, if there is any holiday in Week 2. Else end if. not able to get it with below.

note: Macro to be moved to next step, once column is inserted. Else it will keep adding column. Because Week 2 will have Holiday column with values or it will have random, or it wont have any holiday hours.


Code:
Dim a As IntegerDim lastrw As Long


lastrw = ThisWorkbook.Sheets("Week2").Range("I" & Application.Rows.Count).End(xlUp).Row
 For a = lastrw To 100
    If ThisWorkbook.Sheets("Week2").Range("I" & a).Value <> "0" Then
     Sheets("Week1").Select
Columns("I:I").Copy
          Columns("J:J").Insert Shift:=xlToRight
    Application.CutCopyMode = False
Range("I12").Value = "PHOL2"
Else
Next a


End If
 
Last edited:

Excel Facts

Why are there 1,048,576 rows in Excel?
The Excel team increased the size of the grid in 2007. There are 2^20 rows and 2^14 columns for a total of 17 billion cells.

Forum statistics

Threads
1,223,901
Messages
6,175,277
Members
452,629
Latest member
SahilPolekar

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top