"vba move column header" Code Answer's
You're definitely familiar with the best coding language VBA that developers use to develop their projects and they get all their queries like "vba move column header" answered properly. Developers are finding an appropriate answer about vba move column header related to the VBA coding language. By visiting this online portal developers get answers concerning VBA codes question like vba move column header. Enter your desired code related query in the search bar and get every piece of information about VBA code related question on vba move column header.
vba move column header
'===============================================================================
'>> MoveColumnWithSpecifiedHeader(sHeaderName,sColAsLetter)
'===============================================================================
' Cuts the column according to the cell-value and moves it to the column specified
'
' sHeaderName(String): The header/label of the column to be moved
' sColAsLetter(String): The letter of the column where you want the column to be
'===============================================================================
Sub MoveColumnWithSpecifiedHeader(sHeaderName As String, sColAsLetter As String)
Dim sFunct As String: sFunct = "MoveColumnWithSpecifiedHeader"
Dim bDebugging As Boolean: bDebugging = True
If (bDebugging = True) Then
Debug.Print Format(DateTime.Now, "hh:mm:ss") & " INFO " & sFunct & "| " _
& "Running.. [sHeaderName:" & sHeaderName & "][sColAsLetter:" & sColAsLetter & "]"
End If
'*********************************
' VALIDATIONS and declarations
'*********************************
'(DECLARATIONS)
Dim wbInit As Workbook: Set wbInit = ActiveWorkbook
Dim wsInit As Worksheet: Set wsInit = ActiveSheet
Dim s_rInit As String: s_rInit = Selection.Address
Dim sErrMsg As String
Dim rSrcCell As Range
Dim rSrcCol As Range
Dim rDestCol As Range
Dim bCheckCase As Boolean
Dim iInsertShift As Integer
'On Error GoTo ErrHandling
'(SETTINGS/SETUP) - Part A
Application.ScreenUpdating = False
bCaseIsNB = False
iInsertShift = xlShiftToLeft
Set rSrcCell = wsInit.UsedRange.Find _
(sHeaderName, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=bCaseIsNB)
'(VALIDATIONS)
'A) Ensure there is only one letter in sColAsLetter
'B) Ensure that there is actually text containing sHeaderName
'--(A)
If (Len(sColAsLetter) <> 1) Then
sErrMsg = sErrMsg & vbNewLine _
& "sColAsLetter of """ & sColAsLetter & """ is not valid. It can only have one letter"
Err.Raise -1
End If
'--(B)
If (rSrcCell Is Nothing) Then
sErrMsg = sErrMsg & vbNewLine _
& "No text found containing the text of """ & sHeaderName & """"
Err.Raise -1
End If
'(SETTINGS/SETUP) - Part B
Set rDestCol = Range(sColAsLetter & "1").EntireColumn
Set rSrcCol = rSrcCell.EntireColumn
If (bDebugging = True) Then
Debug.Print Format(DateTime.Now, "hh:mm:ss") & " INFO " & sFunct & "| " _
& "Source cell with """ & sHeaderName & """ found " _
& "at cell [" & rSrcCol.Address & "]"
End If
'---------------------------------
' WORK
'---------------------------------
'1) Ensure that the destination and source columns aren't the same columns
'2) Cut the column of the header file
'3) Paste the cut column into its destination
'Z) Reactivate the initial workbook/worksheet
'--(1)
If (rSrcCol.EntireColumn.Address = rDestCol.Address) Then
GoTo Sub_Complete
End If
'--(2)
rSrcCol.Cut
'--(3)
rDestCol.Insert Shift:=iInsertShift
Sub_Complete:
Application.CutCopyMode = False
'--(Z)
wbInit.Activate
wsInit.Activate
Range(s_rInit).Select
'-----------v-----------DEBUG INFO-----------v-----------
If (bDebugging = True) Then
Debug.Print Format(DateTime.Now, "hh:mm:ss") & " INFO " & sFunct & "| " _
& "Complete [if not debugging, make bDebugging = false]"
End If
Application.ScreenUpdating = True
Exit Sub
ErrHandling:
Application.ScreenUpdating = True
Debug.Print Format(DateTime.Now, "hh:mm:ss") & " INFO " & sFunct & "| " _
& " -> Failed"
MsgBox _
Title:="Errors in the function: " & sFunct _
, Prompt:=Err.Description _
& vbNewLine & sErrMsg _
, Buttons:=vbCritical
End Sub
All those coders who are working on the VBA based application and are stuck on vba move column header can get a collection of related answers to their query. Programmers need to enter their query on vba move column header related to VBA code and they'll get their ambiguities clear immediately. On our webpage, there are tutorials about vba move column header for the programmers working on VBA code while coding their module. Coders are also allowed to rectify already present answers of vba move column header while working on the VBA language code. Developers can add up suggestions if they deem fit any other answer relating to "vba move column header". Visit this developer's friendly online web community, CodeProZone, and get your queries like vba move column header resolved professionally and stay updated to the latest VBA updates.