How to define variable a("H") = "Follow-up"...

[moonhk]

Hi All

IN VBA,How to define variable a("H") = "Follow-up"...
e.g.
a["A"] = "Follow-up"
a["B"] ="Reject"
a["C"]="Ongoing"
....



moonhkt

 

[Patrick Molloy]

Range("A1").Value = "abc"

better:

Worksheets("Sheet1").Range("A1").Value = "abc"

 

[Patrick Molloy]

the code earlier assumed you wanted data in cells

maybe this suits the question better:

Dim col As Collection
Set col = New Collection
col.Add "following", "A"
col.Add "reject", "B"
MsgBox col("B")

Range("A1").Value = "abc"

better:

Worksheets("Sheet1").Range("A1").Value = "abc"

Hi All

IN VBA,How to define variable a("H") = "Follow-up"...
e.g.
a["A"] = "Follow-up"
a["B"] ="Reject"
a["C"]="Ongoing"
....



moonhkt

 

[moonhkt]

Hi All
Thank. It works.

Sub abc()

Dim col As Collection
Dim x As String
Set col = New Collection
col.Add "following", "A"
col.Add "reject", "B"
x = "B"
MsgBox col(x)
MsgBox col("A")
End Sub

the code earlier assumed you wanted data in cells

maybe this suits the question better:

Dim col As Collection
Set col = New Collection
col.Add "following", "A"
col.Add "reject", "B"
MsgBox col("B")

Range("A1").Value = "abc"

Worksheets("Sheet1").Range("A1").Value = "abc"

Hi All
IN VBA,How to define variable a("H") = "Follow-up"...
e.g.
a["A"] = "Follow-up"
a["B"] ="Reject"
a["C"]="Ongoing"
....
moonhkt