Predmet:Re: dobro jutro, dobar dan...
stavljanje range u string za kasniju usporedbu. usporediti string1 (range sheet1) i string2 (range sheet2)
PreuzmiIzvorni kôd (Text):Function RangeToString(ByVal myRange As Range) As String
RangeToString = ""
If Not myRange Is Nothing Then
Dim myCell As Range
For Each myCell In myRange
If Not myCell.Value = "" Then
RangeToString = RangeToString & "," & myCell.Value
End If
Next myCell
'Remove extra comma
RangeToString = Right(RangeToString, Len(RangeToString) - 1)
End If
End Function
zivot je moja domovina.