This works, UNLESS "My Column Header" is the last column, or second to last column, then it jumps left two columns, instead of landing on the correct column.
Sub columnfind() Cells(1, 1).Select Do Until ActiveCell.Value = "My Column Header" If ActiveCell.Column > ActiveSheet.UsedRange.Columns.Count Then Exit Do ActiveCell.Offset(, 1).Select Loop End Sub
The purpose of this script is to select a cell directly in that column that I was searching for.
Try:Sub FindHeader() Dim header As String header = "My Column Header" Dim foundHeader As Range Set foundHeader = ActiveSheet.Rows(1).Find(header, LookIn:=xlValues, LookAt:=xlWhole) If Not foundHeader Is Nothing Then Cells(1, foundHeader.Column + 1).Select End If End Sub
You can say "THANK YOU" for help received by clicking the Star symbol at the bottom left of the helper's post.
Practice makes perfect. I'm very far from perfect so I'm still practising.
try:
Sub MyColumn() With ActiveSheet .Cells(2, .Range("1:1").Find("My Column Header").Column).Select End With End Sub
let Source = #table({"Question","Thread", "User"},{{"Answered","Mark Solved", "Add Reputation"}}) in Source
If I give you Power Query (Get & Transform Data) code, and you don't know what to do with it, then CLICK HERE
Walking the tightrope between genius and eejit...
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks