Change a section of code when calling it

[Eddy2]

Hi
I have a simple code i want to call in several occasions. Is it possible to change "qwr" when calling it?

ActiveSheet.ListObjects(1).ListColumns("qwr").DataBodyRange.ClearContents

Cheers!

 

[Peter_SSs]

You have a code something like this

Sub ClearTableColumn(col_Header As String)
  ActiveSheet.ListObjects(1).ListColumns(col_Header).DataBodyRange.ClearContents
End Sub

Then when you want to clear a column you use, say

Sub test()
  ClearTableColumn "qwr"
End Sub

.. and next time it might be

Sub test()
  ClearTableColumn "abc def"
End Sub

 

[Eddy2]

This works. Thanks!

You have a code something like this

Sub ClearTableColumn(col_Header As String)
  ActiveSheet.ListObjects(1).ListColumns(col_Header).DataBodyRange.ClearContents
End Sub

Then when you want to clear a column you use, say

Sub test()
  ClearTableColumn "qwr"
End Sub

.. and next time it might be

Sub test()
  ClearTableColumn "abc def"
End Sub

 

[Peter_SSs]

This works. Thanks!

You are welcome.

I was thinking that my "use" examples weren't really very good. This one might be better.

Sub test()
  Dim ColsToClear As Variant, itm As Variant
  
  ColsToClear = Array("qwr", "abc def", "Date")
  For Each itm In ColsToClear
    ClearTableColumn CStr(itm)
  Next itm
End Sub

 

[Peter_SSs]

.. and it didn't have to be in a separate routine, that was just one way of doing it. You could also have a structure like this

Sub test2()
  Dim ColsToClear As Variant, itm As Variant
  
  ColsToClear = Array("qwr", "abc def", "Date")
  For Each itm In ColsToClear
    ActiveSheet.ListObjects(1).ListColumns(itm).DataBodyRange.ClearContents
  Next itm
End Sub

 

[Eddy2]

Even Better. Cheers!

.. and it didn't have to be in a separate routine, that was just one way of doing it. You could also have a structure like this

Sub test2()
  Dim ColsToClear As Variant, itm As Variant
  
  ColsToClear = Array("qwr", "abc def", "Date")
  For Each itm In ColsToClear
    ActiveSheet.ListObjects(1).ListColumns(itm).DataBodyRange.ClearContents
  Next itm
End Sub

 

[Peter_SSs]

Even Better. Cheers!