column letters and column topic visible with InPutBox

[donalde]

Sorry about unclear subject, here is the problem:

50 colums, where user choses certain colums by giving letter of column (users don't want to use numbers). Since it is impossible to show all colums, I was wondering if there is way to show user relations between column letters and column headers ( 1st row of column)

Number of columns may change, so doing it by
Asked_Column= InPutBox("A - " & cells("A1").value & chr(10) & "B - "... etc)
would be waste of time. I was wondering if they are possible to show by some clever macro code, or using some sort of userform which shows relations. So, I want to show user both relations and inputbox. I ask 3 colums, so manually coding then is quite a job.

list or userform or something should be something like this:

A - value of cell A1
B - value of cell B1
C - value of cell C1
... etc

Can somebody help?
- donalde -

[kkknie]

I think a userform will end up being your best bet. Here is code for the inputbox version. If you have screen resolution less than 1152x864 (maybe 1024x768 would work), all 50 columns will not fit on the screen.

Sub Macro2()



Dim strMsg As String

Dim i As Integer

Dim icount As Integer



Sheets(2).Select



icount = 0

For i = 1 To 50



   If Cells(1, i).Value <> "" Then

      If icount <> "0" Then strMsg = strMsg & Chr(10)

      strMsg = strMsg & _

      Mid$(Cells(1, i).Address, 2, InStr(2, Cells(1, i).Address, "$") - 2) & "-" & _

      Cells(1, i).Value

      icount = icount + 1

   End If

Next







Asked_Column = InputBox(strMsg)



End Sub

I tried putting into two columns, but different string lengths made it look terrible.

I suppose a userform with a listbox would work. (i.e. instead of adding to your string, just use the AddItem method on the listbox).

I've got to go, so maybe someone else can help with that.

K



[ This Message was edited by: kkknie on 2002-05-24 08:24 ]