I na kraju to ovako izgleda:
Code:
Sub stimulacije()
Dim lCount As Long
Dim rFoundCell As Range
Dim TrazenaVrednost As String
Dim WkSht As Worksheet
Dim j As Integer
TrazenaVrednost = InputBox("Unesite sifru")
j = 4 '
For Each WkSht In Worksheets
WkSht.Activate
Set rFoundCell = Range("b1")
If WorksheetFunction.CountIf(Columns(2), TrazenaVrednost) > 1 Then MsgBox ("Dve vrednosti u jednom sheetu, neko ima pogresnu sifru")
Set rFoundCell = Columns(2).Find(What:=TrazenaVrednost, After:=rFoundCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
'Rows(rFoundCell.Row).copy Destination:=Workbooks("Stimulacije.xls").Sheets("Pomocna").Rows(j)
Workbooks("Stimulacije.xls").Sheets("Pomocna").Rows(j).Value = Rows(rFoundCell.Row).Value
j = j + 1
Next
End Sub
Jos mi je samo ostalo da resim stampanje. Dokument Stimulacije je pripremljen za stampu.
Ova funkcija radi "nesto" cak i ako predhodno ne otvorim dokument Stimulacije, ali ne znam dal stvarno iskopira redove.
Dakle , poslednji korak, kako da stampam zatvoreni dokument ?
Dal predhodno moram da ga otvorim ?