Posts by royUK

Is this for Excel? Your code appears to be for Word, not Excel.

A workbook is ActiveWorkBook in VBA, not ActiveDocument.

Indexes is for Word VBA.

It would be much easier and more efficient if the columns matched in each workbook. Simply rearranging them in the daily workbook would improve this task.

Also, consider using Excel Tables:

Overview of Excel Tables.

Images aren't much help. Attach example workbooks.

Try this

Sub DeleteNAdjCol()
    Dim oWs As Worksheet
    Set oWs = ActiveSheet
    Sheets.Select
    Range("A:A,J:L").Select
    Selection.EntireColumn.Delete
    oWs.Select
End Sub

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Address = "$A$7" Then Exit Sub
    Select Case UCase(Target.Value)
        Case "YES"
            Debug.Print Target.Value
            Debug.Print Application.WorksheetFunction.CountIfs(Range("A8:A10"), "NO")
            If Application.WorksheetFunction.CountIfs(Range("A8:A10"), "NO") = 3 Then Macro1
            If Application.WorksheetFunction.CountIfs(Range("A8:A9"), "NO") = 2 Then Macro2
            If Application.WorksheetFunction.CountIfs(Range("A7:A9"), "YES") = 2 And UCase(Range("A10")) = "NO" Then Macro3
            If Application.WorksheetFunction.CountIfs(Range("A7:A10"), "YES") = 4 Then Macro4
    End Select
End Sub

This is worksheet event code, read this if you aren't sure where to paste it.

Where to put the code

probably yes, but you cannot expect a full answer without sharing your code and preferably an example workbook.

The simplest and mot efficient way is to use an Excel Table

Overview of Excel Tables.

Attach an example workbook.

If you have an Excel problem then attach an example file images or pdfs aren't much help.

Provide an example workbook with showing what you want to achieve.

You didn't ask for a VBA solution.

A recorded macro will work, but it will need cleaning up and will only work on the data that exists when the macro is recorded.

Why have data on multiple sheets?

If this is an Excel question why attach a Word Document?

Quote

This is solved, so case closed.

Thank you

This is not very helpful to anyone looking for a solution. Share your solution.

Out the error handler within the Function.

For the first then AutoFilter and delete.

The second use Find & Replace

There is no ErrorHandle in the code

Why is the original data in that format?

You can use Google Sheets.

Access is totally different.

What are you trying to do? If you don't need the user to interact with the sheet then save it as a pdf.

Attach an example workbook.