Bosna i Hercegovina



#2791 04.07.2018-12:55
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,722


Subject: Re: dobro jutro, dobar dan...
Uf i kod nas u Tuzli stize.
Nije se sve istovarilo u Zagrebu.
Pozdrav
↑  ↓

#2792 04.07.2018-16:23
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,163


Subject: Re: dobro jutro, dobar dan...
dobro vece.

ubio me ovaj javascript , idem malo van
Život je moja domovina.
↑  ↓

#2793 08.07.2018-13:21
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,488


Subject: Re: dobro jutro, dobar dan...
Prijaten vikend forumdzii.
↑  ↓

#2794 09.07.2018-08:05
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,163


Subject: Re: dobro jutro, dobar dan...
dobro jutro!

DownloadIzvorni kod (Text):
  1. Function GetFilenameFromPath(ByVal strPath As String) As String
  2.     ' npr. 'c:\winnt\win.ini' vraca 'win.ini'
  3.  
  4.     If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
  5.         GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
  6.     End If
  7. End Function


DownloadIzvorni kod (Text):
  1. sub ucitajDatoteku()
  2.  'ekstenzija
  3.     Dim prihvaceneEkstenzije As String
  4.     prihvaceneEkstenzije = "ekstenzija xlsx (*.xlsx), *.xlsx,"
  5.    
  6.     'otvori datoteku
  7.    
  8.     FileToOpen = Application.GetOpenFilename _
  9.                 (Title:="izaberi datoteku za uvoz podataka", _
  10.                 FileFilter:=prihvaceneEkstenzije)
  11.                
  12.     'ako datoteka nije izabrana
  13.     If FileToOpen = False Then
  14.         MsgBox "Nije izabrana datoteka.", vbExclamation, "ERROR"
  15.         Exit Sub
  16.     End If
  17.    
  18.     'ime datoteke koju smo uzeli
  19.     imeFajla = GetFilenameFromPath(FileToOpen)
  20. end sub

Život je moja domovina.
Ovaj komentar je mijenjan 2 puta. zadnja izmjena 09.07.2018-08:09 od strane Avko. ↑  ↓

#2795 12.07.2018-14:05
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,163


Subject: Re: dobro jutro, dobar dan...
dobar dan!

e da, vidis ti jarca sa tim svim silnim podacima

imamo vba kod u kojem sa vlookup pretrazujemo podatke

ovo ne radi:
traziID = Application.WorksheetFunction.VLookup(traziDatum, ActiveSheet.Range("A1:B12"), 2, False)

ali ovo radi:
traziID = .VLookup(CLng(CDate(traziDatum)), ActiveSheet.Range("A1:B12"), 2, False)

VLookup je osjetljiva na vrstu podataka. Moja VBA rutina traži DATE vrstu podataka, ali takva ne postoji na radnom listu programa Excel. Zato moramo pretvoriti svoj string traziDatumu vrstu podataka kompatibilnu s onim što je na radnom listu. CLng za cijele datume ili dvostruko ako je uključeno vrijeme.
Život je moja domovina.
↑  ↓

#2796 12.07.2018-22:38
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,722


Subject: Re: dobro jutro, dobar dan...
Kao prvo ovo stavi u exel trikovi.
Otkad niko nista nije stavio tamo.
Pozdrav
↑  ↓

#2797 12.07.2018-22:54
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,163


Subject: Re: dobro jutro, dobar dan...
pa necu stavljati 1 liniju u excel trikove. da je bar funkcija od 4 ili 5 redova ja bi stavio ali ovo me sramota staviiti
Život je moja domovina.
↑  ↓

#2798 13.07.2018-10:20
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,722


Subject: Re: dobro jutro, dobar dan...
Pa to i jeste trik.
A mozes napraviti funkciju pa je pozivati.
Pozdrav
↑  ↓

#2799 13.07.2018-13:35
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,163


Subject: Re: dobro jutro, dobar dan...
onda cu nesto smisliti pa cu staviti uz objasnjenje
Život je moja domovina.
↑  ↓

Stranice (187): 1, 2 ... 185, 186, 187,


All times are GMT +01:00. Current time: 19.07.2018-02:55.