#1
|
|||
|
|||
Why Are Both Of These Macros Not Filling Col B On All Sheets ?
Code:
Sub cpyDte() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count 'Begin the loop. For I = 1 To WS_Count 'With ActiveSheet Dim c As Range For Each c In Range("A2:A350") If c.Value = "private" Then c.Offset(, 1) = "600" c.Offset(, 2) = "0" End If Next c 'End With Next I End Sub 'ActiveSheet. Sub SortIt2() 'VBA macro to Loop through sheets and sorts Cols A:E in Ascending order. Dim ws As Worksheet For Each ws In Sheets 'Start of the VBA looping procedure. Dim c As Range For Each c In Range("A2:A350") If c.Value = "private" Then c.Offset(, 1) = "600" c.Offset(, 2) = "0" End If Next c Next ws End Sub |
#2
|
|||
|
|||
Maybe
Sub cpyDte()
Dim WS As Worksheet For Each WS In ActiveWorkbook.Worksheets Dim c As Range For Each c In WS.Range("A2:A350") If c.Value = "private" Then c.Offset(, 1) = "600" c.Offset(, 2) = "0" End If Next c Next WS End Sub Sub SortIt2() Dim WS As Worksheet For Each WS In Sheets Dim c As Range For Each c In WS.Range("A2:A350") If c.Value = "private" Then c.Offset(, 1) = "600" c.Offset(, 2) = "0" End If Next c Next WS End Sub |
#3
|
||||
|
||||
@Johan. please wrap your code with code tags (#). Thx
__________________
Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post |
#4
|
|||
|
|||
Johan Verkerk thank you so much for pinpointing my oversight.
Merry Christmas |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Word Refuses to Allow Macros, even when All Macros Enabled | devlon | Word VBA | 3 | 10-04-2022 02:15 PM |
Force a user to enable macros in Powerpoint? Hide sheets until the "enable" button is clicked | copleyr | PowerPoint | 1 | 10-07-2016 01:15 AM |
How to automatically enable the macros upon opening a file with macros? | laurieli | Office | 7 | 01-17-2016 08:56 AM |
How to manage some sheets and sub-sheets? | tesoke | Excel | 6 | 11-15-2015 04:54 AM |
Linking sheets to fetch transactions from sheets to another | waqer | Excel | 4 | 09-01-2011 12:35 PM |