Telefonszámunk: 1-472-0679

Hozzászólás: [Resolved] Qr kód adatok szétválogatása cellákra

Kezdőlap Fórumok Excel témák [Resolved] Qr kód adatok szétválogatása cellákra Hozzászólás: [Resolved] Qr kód adatok szétválogatása cellákra

#11028
delila
Felhasználó

    Szia!

    Makróval meg lehet oldani. Lapfülön jobb klikk, Kód megjelenítése. Ezzel bejutsz a VB szerkesztőbe. A jobb oldali üres lapra másold be:

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Column = 1 Then
            On Error Resume Next
            Range(Target.Address).Select
            Selection.TextToColumns Destination:=Range(Target.Address), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, Semicolon:=True, FieldInfo:=Array(Array(1, 1), _
                Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
                TrailingMinusNumbers:=True
            On Error GoTo 0
        End If
    End Sub

    Mikor beviszed az A oszlop egy cellájába az adatokat, indul a makró, és szétválasztja a QR kódokat az aktuális sor celláiba.
    A füzetet makróbarátként kell mentened.