PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerExcelExcelÄr det nån som är riktigt vass på macron eller script i Excel?Är det nån som är riktigt vass på macron eller script i Excel?
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2009-09-24 10:17
 

Hej alla prohackers, har en lite fråga om det går att göra ett sånt här script i Excel, har försökt hittat information i ett par dagar nu, men hittar inget som kan hjälpa mig

Det jag skulle vilja göra är att kopiera, byta namn och hacka upp en cell (och göra så på kanseke 100 celler i en kollumn)

själva cellen ser ut ungefär som nedan

[Produktnamn vit, small, (tillägstext)]

Det jag skulle vilja göra är följande

Produktnamnet: skall  byta namn och komma i en egen Cell
(om t.ex produktnamnet är SST så skall det bytas mot kanske OSP)
dvs man måste ha en lista med ord som skall bytas ut,

Vit: skall komma i en egen cell till höger om produktnamnet

Small: skall komma i en egen cell till höger om färgen’

Tillägstexten skall tas bort

Dvs  [SST vit, small, (tillägstext)] skall bli [SST]   [vit]   [small]

 

Jag hoppas ni förstår vad jag försöker få fram här och uppskattar alla hjälp och vägledning

 

/Wnr

Nytt inlägg
 2009-09-24 15:01
 
 Ändrad av Henrik Milefors  på 2009-09-24 15:01:48

 


Markera kolumnen, kör makrot. Byt ut produktnamn är inte inkluderat.

Public Sub DelaUppKolumn()

    Dim strDest As String
    strDest = Cells(1, ActiveCell.Column + 1).Address
   
    Selection.TextToColumns Destination:=Range(strDest), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
        Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 9)), TrailingMinusNumbers:= _
        True
       
End Sub

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerExcelExcelÄr det nån som är riktigt vass på macron eller script i Excel?Är det nån som är riktigt vass på macron eller script i Excel?

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter