![]() |
|
#1
|
|||
|
|||
![]() My offering... Code:
Sub testing() Dim ws As Worksheet, fndRng As Range For Each ws In ThisWorkbook.Sheets With ws.Range("Y:Y") Set fndRng = .Find(What:="G", LookIn:=xlValues, LookAt:=xlWhole, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True) If Not fndRng Is Nothing Then fndRng.Offset(-1).Resize(, 2).Value = fndRng.Resize(, 2).Value fndRng.EntireRow.Delete End If End With Next ws End Sub |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Le_Blanc | Word VBA | 10 | 03-22-2021 11:38 AM |
Spell check macro within macro button field doesn't work in one document | samuelle | Word VBA | 0 | 07-20-2016 02:27 AM |
![]() |
LadyAna | Word | 1 | 12-06-2014 10:39 PM |
Macro Needed to bold specific lines and Macro to turn into CSV | anewteacher | Word VBA | 1 | 05-28-2014 03:59 PM |
custom icon, undo/redo for macro, permanent macro | Rapier | Excel | 0 | 08-05-2013 06:30 AM |