Prikazi cijelu temu 18.08.2019 14:49
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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):
  1. Function RangeToString(ByVal myRange As Range) As String
  2.     RangeToString = ""
  3.     If Not myRange Is Nothing Then
  4.         Dim myCell As Range
  5.         For Each myCell In myRange
  6.             If Not myCell.Value = "" Then
  7.                 RangeToString = RangeToString & "," & myCell.Value
  8.             End If
  9.         Next myCell
  10.         'Remove extra comma
  11.         RangeToString = Right(RangeToString, Len(RangeToString) - 1)
  12.     End If
  13. End Function

zivot je moja domovina.