Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Determining Column to Use
Try adding this to your code
Set Rng =Range("1:1").Find(What:="Number", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, MatchCase:=True If Not Rng Is Nothing Then Num = Rng.Colum Set Rng =Range("1:1").Find(What:="Name", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, MatchCase:=True If Not Rng Is Nothing Then Nm = Rng.Colum Rows("4").Columns(Num).Value = New1.TxtNum.Tex Rows("4").Columns(Nm).Value = New1.TxtName.Tex ----- Dan wrote: ---- I'm trying to avoid referencing specific columns in the VBA code for one of my documents, in case columns are added and whatnot. With one of my bits of code, which adds the current date/time into the currently selected cell, I am using this If Rows("2").Columns(ActiveCell.Column).Value = "Out" Or Rows("2").Columns(ActiveCell.Column).Value = "Back" The initialvar = "DD I'm using similar code throughout, so that different things are done depending on what column the VBA code is being activated in Now, my question is, is there a way to take a similar approach to adding information to cells in certain columns, using the header row to determine which column to insert the data? With this code, for ex Rows("4").Columns("A").Value = New1.TxtNum.Tex Rows("4").Columns("B").Value = New1.TxtName.Tex Could I replace ("A") and ("B") with "whatever column has the header of 'Number'" and "whatever column has the header of 'Name'" Thank |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Determining if a value already exists in column(s) | Excel Discussion (Misc queries) | |||
Determining the current row and col | Excel Discussion (Misc queries) | |||
Determining Column to Use | Excel Programming | |||
Determining cellcontents | Excel Programming | |||
determining last column | Excel Programming |