Hi,
I have a dictionary of values. Dictionary is called "dic_DtCln360_subj". I "extract" the values from the dictionary using this approach:
If dic_DtCln360_subj.Count > 0 Then
'note: this array is a zero based array
temp_array = dic_DtCln360_subj.Items
ReDim DtCln360_paste_array(1 To dic_DtCln360_subj.Count, 1 To 5) As Variant
'
For LC1 = 0 To dic_DtCln360_subj.Count - 1
DtCln360_paste_array(LC1 + 1, 1) = temp_array(LC1)(0)
DtCln360_paste_array(LC1 + 1, 2) = temp_array(LC1)(1)
DtCln360_paste_array(LC1 + 1, 3) = temp_array(LC1)(2)
DtCln360_paste_array(LC1 + 1, 4) = temp_array(LC1)(3)
DtCln360_paste_array(LC1 + 1, 5) = temp_array(LC1)(4)
Next LC1
End If
'paste headers
DtCln360_paste_array(1, 1) = "Country"
DtCln360_paste_array(1, 2) = "Site Mnemonic"
DtCln360_paste_array(1, 3) = "Study"
DtCln360_paste_array(1, 4) = "Subject Number"
DtCln360_paste_array(1, 5) = "Non conformant data"
'for testing purpose
wrksht_out_progtrckr.Range("A1:E" & dic_DtCln360_subj.Count).Value = DtCln360_paste_array
My problem is that i want the "Non conformant data" to be pasted not in col-E but some other column say "Z". I do want Country, Site Mnemonic, Study, and Subject Number to be pasted into cols A, B, C, and D..........as i said i just want the "Non-conformant data" to be pasted in col-Z.
So i have this array " DtCln360_paste_array" which is a variant array organized like this (1 to x, 1 to 5)
where x is the number of elements/rows plus header and "5" are the cols Country, Site Mnemonic, Study, Subject Number and Non Conformant data.
Any ideas on how to solve this problem?
Bookmarks