Makro za kopiranje z pogojem

[giovanni]

Ž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

[admin]

V katerem stolpcu bi iskal in kam bi vpisal (konkretno!!)? Morate biti natančni.

[giovanni]

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

[cedra]

Upam, da bo tole pomagalo:

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

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