Jenoduché macro, ale nefunguje mi. Poradí někdo? – Visual Basic – Fórum – Programujte.com

Sub Macro1()
    Dim parts
    Radek = ActiveCell.Row
    Sloupec = ActiveCell.Column
    Dim Info As String
    Info = ""
    parts = Split(Cells(Radek, Sloupec).Value, ",")
    For i = 0 To UBound(parts)
      For j = 4 To 150
        If CLng(parts(i)) = Cells(j, 1).Value Then
         'MsgBox "Nalezeno na radku " & j
          Info = Info & " " & j
        'Else
         ' MsgBox "Nerovna se " & parts(i) & " " & Cells(j, 1)
        End If
      Next
    Next
    MsgBox Info
End Sub

Ahoj,

sesmolil jsem tohle makro, VBA moc neznám, takže trochu analogicky s pomocí netu. Co potřebuji:

Z aktuální bunky, kde je string typu císlo1, cislo2, cisloN nacist jednotliva cisla (resp. string a ten konvertuji na cislo) - tohle je ok

Mam to udelany do pole stringu a konverzi pres CLng (je to správné? nevím)

Následně projít sloupec 1 v aktuálním listu a když je shoda, tak zapamatovat radku vyskytu shody a tohle dokola pro vsechny prvky pole

chybu mi to hlasi Type mismach na radku:

If CLng(parts(i)) = Cells(j, 1).Value

proč to netuším. Mám Excel 2003. Děkuji

no tak už jsem asi na to metodou pokus omyl přišel... dopsal jsem do cyklu 

For i = 0 To UBound(parts) - 1