excel makro

Tak už to z větší části mám, ale nechci vybírat data z aktivního listu nábrž z jiného ale stále mi to bere z aktivního, nevíte jak to upravit aby to bralo z jiného?

Děkuji

Sub díly()

Dim rngVis As Range
Dim VisCell As Range
Dim sFind As String

sFind = InputBox("Naskenujte zákaznické číslo.")

If Len(Trim(sFind)) = 0 Then Exit Sub 'Pressed cancel

Application.ScreenUpdating = False
With Intersect(Sheets("Díly").UsedRange, Sheets("Díly").Columns("A"))
.AutoFilter 1, sFind
On Error Resume Next
Set rngVis = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
.AutoFilter
End With
Application.ScreenUpdating = True

If rngVis Is Nothing Then
MsgBox sFind & " Nenalezeno."
Else
For Each VisCell In rngVis.Cells
MsgBox "Naskenované číslo: " & VisCell.Sheets("Díly").Cells(VisCell.Row, "A").Text & vbNewLine & _
"Vyhledáno: " & VisCell.Sheets("Díly").Cells(VisCell.Row, "B").Text
Next VisCell
End If

End Sub

načo je k tomuto účelu dobré makro, keď je na to funkcia SVYHLEDAT (VLOOKUP)?

Protoze to chce az po zmacknuti cudlitka?

tak nech si nadefinuje výsledkový stĺpec neviditeľný a na čudlík ho zviditeľní. Keď už silou mocou mačkať čudlík...
Alebo si určí napr bunku A1 na zápis "scanovaného" čísla a čudlíkom spustí makro, ktoré naplní scanované číslo do prvej prázdnej bunky stĺpca A a do stĺpca B k tomu naplní vzorec SVYHLEDAT... a je to aj s mačkaním a keď veľmi chce, môže zároveň prelepiť výsledok vzorca jeho vlastnou hodnotou

Moc to komplikujes :D Zvládneš mi to předělat tak aby mi to hledalo na určitém sešitu ne na tom aktivním? hodil sem to i na stackoverflow.com ale taky nikdo zatím neporadil.

Toto nefunguje ani na aktívnom hárku, nieto ešte na inom...
A sorry, sotvakto sa bude kvôli tebe registrovať na rôznych úložiskách...

už to mám hotové :)