Home » Forums » Open Source Learning Center » Question and Answer

need urgent help

Submitted by Tanveer6133 on 21 April, 2014 - 21:47

I have a list of 100 values (prices in figures) in a single column. in next column i have their code names. i want that for each value, anyother value which is within 10 dollar range, less and more, their codes should show up in third column. E.G
2000 A D,B
2009 B A,G
2020 C G
1993 D A
4000 E
700 F
2015 G B,C

‹ Validation and Lookup Display text in cell ›
»

Your response

Submitted by pmyk on 28 May, 2014 - 06:09.

Waiting for your reply

»

Chek, Pull Data To Populate Column

Submitted by pmyk on 29 April, 2014 - 07:36.

Since so far no one has replied, I give VBA solution.
Private Sub cmdCheckPullDataToPopulateColumn_Click()
Dim SelVal As Long
Dim NowRowNum As Long
Dim GrpCod As String
Dim NowValPlusTen As Long
Dim NowValMinusTen As Long
Worksheets("Sheet1").Select
Range("C2", Columns("C").SpecialCells(xlCellTypeLastCell)).Clear
Range("A2").Select
Do Until Selection.Value = ""
SelVal = Selection.Value
NowRowNum = ActiveCell.Row
GrpCod = ""
NowValPlusTen = SelVal + 10
NowValMinusTen = SelVal - 10
If NowRowNum > 2 Then
Range("A2").Select
End If
Do Until Selection.Value = ""
If ActiveCell.Row = NowRowNum Then
Selection.Offset(1, 0).Select
End If
If Selection.Value <> "" Then
If (Selection.Value < NowValPlusTen) And (Selection.Value > NowValMinusTen) Then
If Len(GrpCod) >= 1 Then
GrpCod = GrpCod & "," & Trim(Selection.Offset(0, 1).Value)
Else
GrpCod = Trim(Selection.Offset(0, 1).Value)
End If
End If
End If
Selection.Offset(1, 0).Select
Loop
Range("A" & Trim(Str(NowRowNum))).Select
If Len(GrpCod) >= 1 Then
Selection.Offset(0, 2).Value = GrpCod
End If
Selection.Offset(1, 0).Select
Loop
End Sub
Hope this helps.

»