Combining 2 VBA codes Solved/Closed

Question

Hi.. I need to combine 2 codes  together. I'm very new to VBA. These are the 2 codes I need to combine. when I paste the 2nd code it doesnt work properly

Code1
Private Sub Worksheet_Change(ByVal Target As Range)
'Erik Van Geit
'only allow PasteValues

If Application.CutCopyMode = False Then Exit Sub

        With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Undo
        Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        .EnableEvents = True
        .ScreenUpdating = True
        End With

End Sub

Code2
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Range("A2") = >1 Then
    Columns("A").EntireColumn.Hidden = True
    End If
      
End Sub


any help pls......

Configuration: Windows XP / Firefox 3.5.11

rizvisa1 · Answer

There is lot of ambiguity on what is your intentions 


This is presuming that irrespective of fact if you paste the value or not you want to hide the column  

Private Sub Worksheet_Change(ByVal Target As Range) 
'Erik Van Geit 
'only allow PasteValues 

    If Application.CutCopyMode <> False Then 
     
        With Application 
            .ScreenUpdating = False 
            .EnableEvents = False 
            .Undo              
            
            Target.PasteSpecial _
                        Paste:=xlPasteValues, _
                        Operation:=xlNone, _
                        SkipBlanks:=False, _
                        Transpose:=False
             
            .EnableEvents = True 
            .ScreenUpdating = True 

        End With 
     
    End If 
     
    If Range("A2") >= 1 Then Columns("A").EntireColumn.Hidden = True 
     
End Sub

SARC · Answer

Thanks.... this is exactly what I wanted... is there a way to hide any column in the worksheet if a value is only pasted.... thanks..........

Combining 2 VBA codes

2 responses

Similar discussions

Subscribe To Our Newsletter!