Input box range - output range

[al007]

Sub UniqueFindColumn()
Dim AnArray() As String, i As Long
Dim Selec As Range
Dim Desti As Range
Set Selec = Application.InputBox( _
Prompt:="Select cell for Actual data.", Type:=8)

Set Desti = Application.InputBox( _
Prompt:="Select cell for Actual data.", Type:=8)
AnArray = GetUniqueEntries(Selec)
If Len(AnArray(0)) > 0 Then
For i = 0 To UBound(AnArray)
Range(Desti).Offset(i, 0) = AnArray(i)
Next
End If
End Sub

What wrong in the above macro with respect to my output i.e Desti
range.
Thxs

Actual I tried to amend the macro below:
Sub UniqueFind()
Dim AnArray() As String, i As Long
AnArray = GetUniqueEntries(Range("A1:D12"))
If Len(AnArray(0)) > 0 Then
For i = 0 To UBound(AnArray)
Range("F1").Offset(i, 0) = AnArray(i)
Next
End If
End Sub

[Leith Ross]

Hello al007,

The range object variables must be set to an existing reference. I made the changes to your code for you. The InputBox is merely supplying a string address that describes the range and is not itself a range. You can not reference cells that are not on the active sheet with this Sub.

Sub UniqueFindColumn()
Dim AnArray() As String, i As Long
Dim Selec As Range
Dim Desti As Range
Dim Rng
Rng = InputBox( "Select cell for Actual data.")
Set Selec = Range(Rng)

Rng = InputBox( "Select cell for Actual data.")
Set Desti = Range(Rng)
AnArray = GetUniqueEntries(Selec)
If Len(AnArray(0)) > 0 Then
For i = 0 To UBound(AnArray)
Range(Desti).Offset(i, 0) = AnArray(i)
Next
End If
End Sub

[al007]

Ross,
The code is stopping at

Set Selec = Range(Rng)

PLs help

[Leith Ross]

Hello al007,

What did you type into the input box?

Thanks,
Leith Ross

[al007]

My selected range e.g A1:D12
My desti range e.g F1


Guess code need to amended

thxs

[Dave Peterson]

Desti is already a range.

I think you want:
Desti.Offset(i, 0) = AnArray(i)

instead of:
Range(Desti).Offset(i, 0) = AnArray(i)


al007 wrote:
>
> Sub UniqueFindColumn()
> Dim AnArray() As String, i As Long
> Dim Selec As Range
> Dim Desti As Range
> Set Selec = Application.InputBox( _
> Prompt:="Select cell for Actual data.", Type:=8)
>
> Set Desti = Application.InputBox( _
> Prompt:="Select cell for Actual data.", Type:=8)
> AnArray = GetUniqueEntries(Selec)
> If Len(AnArray(0)) > 0 Then
> For i = 0 To UBound(AnArray)
> Range(Desti).Offset(i, 0) = AnArray(i)
> Next
> End If
> End Sub
>
> What wrong in the above macro with respect to my output i.e Desti
> range.
> Thxs
>
> Actual I tried to amend the macro below:
> Sub UniqueFind()
> Dim AnArray() As String, i As Long
> AnArray = GetUniqueEntries(Range("A1:D12"))
> If Len(AnArray(0)) > 0 Then
> For i = 0 To UBound(AnArray)
> Range("F1").Offset(i, 0) = AnArray(i)
> Next
> End If
> End Sub

--

Dave Peterson