Excel markró bizonyos lépést nem rögzít

Excel markró bizonyos lépést nem rögzít
2009-02-03T14:36:51+01:00
2009-02-03T17:28:09+01:00
2022-11-12T12:05:33+01:00
zsoolzso_2
Sziasztok! Bízom benne hogy jó témakörbe írok! Olyan hibával találkoztam, hogy mikor Excel-ben rögzítek egy makrót, amiben a következő lépések vannak:
Egy e-mailból kimásolok egy szövegrészt, ezt egy Excel táblába beillesztem, majd a beilleszés beállításánál a beolvasó varázslót választom, így oszlopokra szedi a szöveget, kijeleölök egy részt belőle, vágólapra másolom majd egy másik fülre transzponálva beillesztem. A makrót szépen rögzíti, de az a lépést mikor amikor a beillesztés beállítása varázslóra kattintok nem rögzíti, így nem szedi oszlopokra a beillesztett szövegek, ezáltal a kijelölésem üres lesz, és a beillesztés sem sikerül. Csatolok egy képet hogy miről van szó.
Itt a kód:
Sub Rögzítés1()
'
' Rögzítés1 Makro
' Rögzítette:
'
' Billentyűparancs: Ctrl+f
'
ActiveSheet.PasteSpecial Format:="Unicode szöveg", Link:=False, _
DisplayAsIcon:=False
"innen hiányzik a lépés"
Range("C3:C10").Select
Selection.Copy
Sheets("Munka2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Munka1").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Application.CommandBars("Task Pane").Visible = False
End Sub

Köszi
Mutasd a teljes hozzászólást!
Van amit nem (sőt, elég sok mindent)

Transzponáláshoz válaszd a Szerkesztés > irányított beillesztés párbeszédlapot és azt rögzíti.

---
A szétdarabolás a
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(16, 1), Array(26, 1)), _ TrailingMinusNumbers:=True

vagy ha megnyitásból csinálod, akkor

Workbooks.OpenText Filename:= _ "E:\Dokumentumok\Automata tömörítés.mdbkulcs.txt", Origin:=1250, StartRow:= _ 1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(2, 1)), _ TrailingMinusNumbers:=True

Csak állítsd be a megnyitás panelon, hogy txt, csv,.. fájlt akarsz és akkor tárolja.
Mutasd a teljes hozzászólást!

  • Bemásoltam a makróba az általad adott kódot
    (Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(16, 1), Array(26, 1)), _
    TrailingMinusNumbers:=True)
    és ha lefuttatom a makrót akkor jó, viszont így a szöveget négy oszlopra szedi, de nekem csak kettőre kell.
    Egy ilyen alakú szöveget illesztek be:
    Equipment ID:
    Model Name: FS-1118MFP
    Serial Number: XLK6Y66403
    MeterDate: Sun 01 Feb 2009 10:00:00
    Counters by Function
    Printed Pages
    Copier: 20797
    Printer: 49156
    FAX: 0
    Total: 69953

    és nekem a félkövérrel kiemelt adatok kellenek. Tehát ezeket jelölöm ki és másolom majd transzponálással beillesztem egy másik fülre. A lényeg hogy a kiemelt adatok egy oszlopban legyenek.
    Mutasd a teljes hozzászólást!
  • Próbálj már meg rájönni, hogy a
    FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(16, 1), Array(26, 1)),

    illteve a
    DataType:=xlFixedWidth

    mi lehet.
    Ha nem megy, akkor jelöld ki a "TextToColumns" szöveget és nyomj egy F1-et.
    Mutasd a teljes hozzászólást!
  • Szia Micu! Köszönöm, rájöttem. Pont a tied :D
    szerk: Tévedésből magamnak osztottam ki a pontot. Kérem az egyik moderátort, hogy a pontot Micu kapja! Köszönöm,
    Mutasd a teljes hozzászólást!
  • Szívesen
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd