[anestaki]

Για να αλλάξω την γραμμή εμφάνισης από (ΒΙΘΥΝΙΑΣ 29 2) σε (1 ΒΙΘΥΝΙΑΣ 29) τι πειράζω


Dim rngCheck As Range, rngSource As Range
Dim i As Long, j As Long, numRows As Long
numRows = 1000
Set rngCheck = Worksheets("pelates").Range("E2").Resize(numRows)
Set rngSource = Worksheets("pelates").Range("B2").Resize(numRows)
ReDim x(1 To numRows) As String
ReDim y(1 To numRows) As Long
For i = 1 To numRows
If rngCheck.Cells(i) = True Then
j = j + 1
x(j) = rngSource.Cells(i)
y(j) = rngSource.Cells(i).Row
End If
Next
ReDim Z(1 To j, 1)
For i = 1 To j
Z(i, 0) = x(i): Z(i, 1) = y(i)
Next
ComboBox1.List = Z