Forma - chyba v kode

[Gnit]

Zdravim,spravil som si v exceli formu,ktora mi nacita pri dvojkliku data z cennika,len neviem teraz ako ked chcem jednotlive polozky vybrat z formy a presunut do druheho listu.Vytvoril som si na forme tlacitko pridat do faktury len stale mam chybu v kode a nechce mi to pridat veci z formy.

forma,ktora mi nacita pri dvojkliku data z druheho zositu

Kód: Vybrat vše

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo von
If (Target.Row > 9) Then
If (Len(Target.Cells) > 0) Then
Sheets("Cenník").Range("A" + Trim(Str(Target.Row)) + ":B" + Trim(Str(Target.Row))).Select
Dim i, i2 As Integer
i2 = 0
For i = 9 To 220
i2 = i2 + 1
forma.okno.AddItem (Str(i2) + ". " + Sheets("Cenník").Cells(i, 1) + " " + Sheets("Cenník").Cells(i, 2) + " ( riadok " + Str(i) + " )")
Next i
forma.Show

End If
End If
von:
End Sub

Dakujem

[Reklama]

[cmuch]

Ahoj,
kdyby si sem dal nějaký soubor tak by někdo asi rychleji poradil.

[d1amond]

Také by to chtělo vědět jako to píše chybu. A ten pokusný soubor by neškodil.