Temat: problem z pobieraniem wartości z innego arkusza vba za...

Mam następujacy problem
W arkusz1 mam nr indeksu i dane liczbowe , w arkusz2 mam ten sam nr indeksu ale z dodatkowymi danymi.
W Arkuszu 1 nr indeksu mam 9 znaków ze spacjami na początku
W innym arkuszu dziłla procedura

Private Sub FindItem(nr_konta)

ItemPosition = 0

Row = 2

StopLoop = False

While Not (IsEmpty(Sheets("BAZA").Cells(Row, 1))) And Not (StopLoop)

If nr_konta = Sheets("BAZA").Cells(Row, 1) Then

If Not IsEmpty(Sheets("BAZA").Cells(Row, 3)) Then

ItemPosition = Row

End If

StopLoop = True

End If



Row = Row + 1

Wend





Public Sub

Dim Itemposition as integer

Dim wartosc As Double

Dim nr_konta As String

Dim item_nr As String
Dim Row as integer





Itemposition=0

FindItem(nr_konta)

Row = 10


nr_konta = (Cells(Row, 5))


ItemPosition = 0

FindItem (nr_konta)

If ItemPosition > 0 Then



Nr_konta= Cells(ItemPosition, 3).Value

Niestety pokazuje mi pustą wartość zamiast informacji z arkusza2/kolumna 3