Why Are Both Of These Macros Not Filling Col B On All Sheets ?

		Microsoft Office Forums > Microsoft Excel > Excel
Why Are Both Of These Macros Not Filling Col B On All Sheets ?

FAQ

Thread Tools

Display Modes

12-19-2023, 02:08 AM

Johan Verkerk Johan Verkerk is offline

Windows 10 Why Are Both Of These Macros Not Filling Col B On All Sheets ?

Office 2013

Novice

Join Date: Feb 2021

Posts: 1

Johan Verkerk is on a distinguished road

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

Attached Files

Replace3.xlsm (25.6 KB, 3 views)

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