Run macro if columns in a specific line are selected

%3CLINGO-SUB%20id%3D%22lingo-sub-2620452%22%20slang%3D%22en-US%22%3ERun%20macro%20if%20columns%20in%20a%20specific%20line%20are%20selected%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2620452%22%20slang%3D%22en-US%22%3E%3CP%3EHi%2C%3C%2FP%3E%3CP%3EI%20barelly%20remeber%20how%20to%20write%20VBA%20so%20i%20tend%20to%20find%20scripts%20on%20the%20internet.%3C%2FP%3E%3CP%3EI%20found%20one%20that%20i%20wanted%20to%20modify%20but%20i%20cant%20seem%20to%20make%20the%20correct%20changes.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EEssentially%20i%20want%20to%20add%20a%20condition%20to%20this%20code%2C%20so%20it%20would%20only%20work%20when%20the%20columns%20on%20line%2065%20are%20selected.%20Withoout%20changes%20the%20code%20works%20fine.%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3EPrivate%20Sub%20Worksheet_SelectionChange(ByVal%20Target%20As%20Range)%0A%20%20%20%20%0A%20%20%20%20Dim%20cols%20As%20Variant%2C%20col%20As%20Variant%0A%0A%20%20%20%20If%20Target.Count%20%26gt%3B%201%20Then%20Exit%20Sub%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20cols%20%3D%20Array(8%2C%209%2C%2010%2C%2011%2C%2012%2C%2013%2C%2014%2C%2015%2C%2016%2C%2017%2C%2018%2C%2019%2C%2020%2C%2021%2C%2022%2C%2023%2C%2024%2C%2025%2C%2026%2C%2027%2C%2028)%0A%20%20%20%20%0A%20%20%20%20For%20Each%20col%20In%20cols%0A%20%20%20%20%20%20%20%20If%20Target.Column%20%3D%20col%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20Target.Columns.ColumnWidth%20%3D%2050%0A%20%20%20%20%20%20%20%20Else%0A%20%20%20%20%20%20%20%20%20%20%20%20Columns(col).ColumnWidth%20%3D%2015%0A%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20Next%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EMy%20latest%20try%20was%20this.%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3EPrivate%20Sub%20Worksheet_SelectionChange(ByVal%20Target%20As%20Range)%0A%20%20%20%20'define%20variables%20for%20lines%20and%20columns'%0A%20%20%20%20Dim%20cols%20As%20Variant%2C%20col%20As%20Variant%0A%20%20%20%20Dim%20lins%20As%20Variant%2C%20lin%20As%20Variant%0A%0A%20%20%20%20'Do%20not%20run%20macro%20if%20more%20than%20one%20cell%20is%20selected'%0A%20%20%20%20If%20Target.Count%20%26gt%3B%201%20Then%20Exit%20Sub%0A%20%20%20%20%0A%20%20%20%20'define%20array%20as%20line%2065%20from%20column%208%20to%20column%2028'%0A%20%20%20%20lins%20%3D%20Array(65)%0A%20%20%20%20cols%20%3D%20Array(8%2C%209%2C%2010%2C%2011%2C%2012%2C%2013%2C%2014%2C%2015%2C%2016%2C%2017%2C%2018%2C%2019%2C%2020%2C%2021%2C%2022%2C%2023%2C%2024%2C%2025%2C%2026%2C%2027%2C%2028)%0A%20%20%20%20%0A%20%20%20%20%20%20%20%20For%20Each%20lin%20In%20lins%0A%20%20%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20%20%20If%20Target.Line%20%3D%20lin%20Then%0A%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20Each%20col%20In%20cols%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Target.Column%20%3D%20col%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20'Increase%20column%20width%20temporarily'%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Target.Columns.ColumnWidth%20%3D%2050%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20'reduce%20column%20width%20back%20to%20original%20value'%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Columns(col).ColumnWidth%20%3D%2015%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20End%20If%0A%20%20%20%20Next%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EAny%20one%20want%20to%20point%20out%20my%20probably%20obvious%20oversight%20or%20mistake%3F%3C%2FP%3E%3CP%3EThank%20you%20so%20much!%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2620452%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2620550%22%20slang%3D%22en-US%22%3ERe%3A%20Run%20macro%20if%20columns%20in%20a%20specific%20line%20are%20selected%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2620550%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1122311%22%20target%3D%22_blank%22%3E%40DJ_Excel%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EIt's%20a%20bit%20simpler%3A%3C%2FP%3E%0A%3CPRE%20class%3D%22lia-code-sample%20language-visual-basic%22%3E%3CCODE%3EPrivate%20Sub%20Worksheet_SelectionChange(ByVal%20Target%20As%20Range)%0A%20%20%20%20If%20Target.Count%20%26gt%3B%201%20Then%20Exit%20Sub%0A%20%20%20%20If%20Target.Row%20%26lt%3B%26gt%3B%2065%20Then%20Exit%20Sub%0A%20%20%20%20If%20Target.Column%20%26gt%3B%3D%208%20and%20Target.Column%20%26lt%3B%3D%2028%20Then%0A%20%20%20%20%20%20%20%20Target.ColumnWidth%20%3D%2050%0A%20%20%20%20Else%0A%20%20%20%20%20%20%20%20Target.ColumnWidth%20%3D%2015%0A%20%20%20%20End%20If%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2620554%22%20slang%3D%22en-US%22%3ERe%3A%20Run%20macro%20if%20columns%20in%20a%20specific%20line%20are%20selected%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2620554%22%20slang%3D%22en-US%22%3EThanks%20%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F127945%22%20target%3D%22_blank%22%3E%40Hans%20Vogelaar%3C%2FA%3E%20%2C%20this%20is%20much%20more%20elegant.%3CBR%20%2F%3EIt%20doesn't%20seem%20to%20go%20back%20to%20size%2015%20after%20i%20click%20out%20though...%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2621533%22%20slang%3D%22en-US%22%3ERe%3A%20Run%20macro%20if%20columns%20in%20a%20specific%20line%20are%20selected%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2621533%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1122311%22%20target%3D%22_blank%22%3E%40DJ_Excel%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EI%20see.%20Here%20is%20a%20new%20version%3A%3C%2FP%3E%0A%3CPRE%20class%3D%22lia-code-sample%20language-visual-basic%22%3E%3CCODE%3EPrivate%20Sub%20Worksheet_SelectionChange(ByVal%20Target%20As%20Range)%0A%20%20%20%20Range(%22H1%3AAB1%22).ColumnWidth%20%3D%2015%0A%20%20%20%20If%20Target.Count%20%26gt%3B%201%20Then%20Exit%20Sub%0A%20%20%20%20If%20Target.Row%20%26lt%3B%26gt%3B%2065%20Then%20Exit%20Sub%0A%20%20%20%20If%20Target.Column%20%26gt%3B%3D%208%20And%20Target.Column%20%26lt%3B%3D%2028%20Then%0A%20%20%20%20%20%20%20%20Target.ColumnWidth%20%3D%2050%0A%20%20%20%20End%20If%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3C%2FLINGO-BODY%3E
New Contributor

Hi,

I barelly remeber how to write VBA so i tend to find scripts on the internet.

I found one that i wanted to modify but i cant seem to make the correct changes.

 

Essentially i want to add a condition to this code, so it would only work when the columns on line 65 are selected. Withoout changes the code works fine.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim cols As Variant, col As Variant

    If Target.Count > 1 Then Exit Sub
        
    cols = Array(8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28)
    
    For Each col In cols
        If Target.Column = col Then
            Target.Columns.ColumnWidth = 50
        Else
            Columns(col).ColumnWidth = 15
        End If
    Next
End Sub

 

My latest try was this.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'define variables for lines and columns'
    Dim cols As Variant, col As Variant
    Dim lins As Variant, lin As Variant

    'Do not run macro if more than one cell is selected'
    If Target.Count > 1 Then Exit Sub
    
    'define array as line 65 from column 8 to column 28'
    lins = Array(65)
    cols = Array(8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28)
    
        For Each lin In lins
            
            If Target.Line = lin Then
       
                For Each col In cols
                     If Target.Column = col Then
                     'Increase column width temporarily'
                         Target.Columns.ColumnWidth = 50
                    'reduce column width back to original value'
                     Else
                     Columns(col).ColumnWidth = 15
                 End If
           End If
    End If
    Next
End Sub

 

Any one want to point out my probably obvious oversight or mistake?

Thank you so much!

4 Replies

@DJ_Excel 

It's a bit simpler:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row <> 65 Then Exit Sub
    If Target.Column >= 8 and Target.Column <= 28 Then
        Target.ColumnWidth = 50
    Else
        Target.ColumnWidth = 15
    End If
End Sub
Thanks @Hans Vogelaar , this is much more elegant.
It doesn't seem to go back to size 15 after i click out though...

@DJ_Excel 

I see. Here is a new version:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("H1:AB1").ColumnWidth = 15
    If Target.Count > 1 Then Exit Sub
    If Target.Row <> 65 Then Exit Sub
    If Target.Column >= 8 And Target.Column <= 28 Then
        Target.ColumnWidth = 50
    End If
End Sub

Thank you so much @Hans Vogelaar !

I do not understand how but it works!