Živjo!
Imam zame velik problem Rad bi naredil makro, ki bi, ko vpišem številko, to številko poiskal v enem stolpcu(vedno obstaja), ter nekam v najdeno vrstico kopiral čas.
Primer: vpišem 10 (int), in se najde to v a23, sedaj pa se mora C10(cas), kopirat v b23(cas).
uspel sem naredit da mi kopira številko. primerjava ne dela
hvala za odgovor
Makro za kopiranje z pogojem
v prvem stolpcu imam številke od ljudi recimo 0 do 1000(pomešane)
v tretjem stolpcu hočem imet čas
sedaj pa nekje desno imam eno dve celici, v prvo vpišem številko od človeka, v drugi pa je fukcija ki vrne trenutni čas.
ko vpišem številko se bi mogla ta številka najdit v prvem stolpci in ustrezno napisat napisat čas tri stolpce desno.
narejen že imam makro, ki mi prekopira v drug list čase z številkami, vendar je treba potem na roko urejat.
upam, da je zdej bolj jasno
hvala za odgovor
v tretjem stolpcu hočem imet čas
sedaj pa nekje desno imam eno dve celici, v prvo vpišem številko od človeka, v drugi pa je fukcija ki vrne trenutni čas.
ko vpišem številko se bi mogla ta številka najdit v prvem stolpci in ustrezno napisat napisat čas tri stolpce desno.
narejen že imam makro, ki mi prekopira v drug list čase z številkami, vendar je treba potem na roko urejat.
upam, da je zdej bolj jasno
hvala za odgovor
Upam, da bo tole pomagalo:
Makro predvideva, da iščete v 1 koloni (A:A), kar iščete (številko), vpišete v celico E1, v celici F1 pa imate vašo funkcijo za čas. Čas se vam vpiše v kolono C. Če vam ne ustreza, popravite v makru naslove celic! Upam, da sem vam kaj pomagal...
lp,
cedra
Koda: Izberi vse
Sub Vpis_casa()
On Error GoTo Konec
Range("A:A").Select
Selection.Find(What:=Range("E1").Value, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
ActiveCell.Offset(0, 2).Value = Range("F1").Value
Range("E1").Select
Exit Sub
Konec:
MsgBox "Številke " & Range("E1") & " ne najdem!", vbExclamation, "Napaka"
Range("E1").Select
End Sub
lp,
cedra