Prikazi cijelu temu 09.07.2017 01:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: funkcija za trazenje zadnje kolone
PreuzmiIzvorni kôd (Visual Basic):
  1. Function traziZadnjuKolonu(ImeSita As String, OdReda As Integer, DoReda As Integer)
  2.     Dim Zadnji As Long
  3.     Dim ws As Worksheet
  4.     Dim I As Integer
  5.     Dim Brojac As Integer
  6.    
  7.     Set ws = Sheets(ImeSita)
  8.     With ws
  9.         For I = OdReda To DoReda
  10.         Brojac = .Cells(I, .Columns.Count).End(xlToLeft).Column
  11.         If Zadnji < Brojac Then
  12.         Zadnji = Brojac
  13.         End If
  14.         Next I
  15.     End With
  16.     traziZadnjuKolonu = Zadnji
  17. End Function
OdReda i DoReda
Od kojeg do kojeg reda da pregleda.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.