Prikazi cijelu temu 22.12.2016 15:20
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: dobro jutro, dobar dan...
zxz, u ovom tvojem vba kodu:

PreuzmiIzvorni kôd (Text):
  1. Private Sub Usporedi_Click()
  2. Dim Celija As Range
  3. Dim Rng As Range
  4. Dim Tmp(1) As String
  5. Dim RedS As String
  6. Dim I As Integer
  7. Dim Red As Integer
  8.  
  9.  
  10. Red = ZadnjiRed("List1")
  11. For I = 2 To Red
  12.     Tmp(0) = ""
  13.     Tmp(1) = ""
  14.     RedS = "A" & I & ":D" & I
  15.     Set Rng = Sheet1.Range("A2:d2")
  16.     For Each Celija In Rng.Cells
  17.         Tmp(0) = Tmp(0) & Celija.Value
  18.     Next Celija
  19.     Set Rng = Sheet2.Range(RedS)
  20.     For Each Celija In Rng.Cells
  21.     Tmp(1) = Tmp(1) & Celija.Value
  22.     Next Celija
  23.     If InStr(1, Tmp(0), Tmp(1)) = 0 Then
  24.     MsgBox RedS & ":Nije isti"
  25.     End If
  26.    
  27. Next I
  28. End Sub
  29.  
  30. Function ZadnjiRed(ImeSita As String)
  31.     Dim Zadnji As Long
  32.     Dim ws As Worksheet
  33.    
  34.     Set ws = Sheets(ImeSita)
  35.     With ws
  36.         Zadnji = .Cells(.Rows.Count, "A").End(xlUp).Row
  37.     End With
  38.     ZadnjiRed = Zadnji
  39. End Function
  40.  
  41. Function ZadnjaKolona(ImeSita As String)
  42. Dim Zadnji As Long
  43. Dim ws As Worksheet
  44.  Set ws = Sheets(ImeSita)
  45.     With ws
  46.         Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column
  47.     End With
  48.     ZadnjaKolona = Zadnji
  49. End Function

za sto sluzi funkcija ZadnjaKolona.
Nemogu bas dokuciti. Inace nesto radim pa malo proucavam kako pronaci zadnjiRed i zadnjaKolona
zivot je moja domovina.