Använda Replace i macro - VBA - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

Forum

Diskussioner

VBA

Använda Replace i macro

Föregående

Nästa

2009-01-14 14:30

Gäst

Medlem sedan: 2009-01-13

339 inlägg

Använda Replace i macro

Har spelat in ett macro, där jag kopierar data i en cell och sedan ska ersätta ett specifikt ord med denna data. Får allt att funka, utom att det blir samma data hela tiden.

Range("A1").Select
Selection.End(xlToRight).Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="VSPEC", Replacement:="1234", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.LargeScroll Down:=-3
Range("A1").Select
Application.CutCopyMode = False
End Sub

Det är alltså där det står 1234 som blir fel, jag vill ju inte ha datan från när jag gjorde macrot, utan det som finns i Selection.Copy.

Tack på förhand
/Peter

2009-01-14 14:45

Niklas Jansson

Medlem sedan: 2009-01-13

73 inlägg

Re: Använda Replace i macro

Hej Peter!

Ja, det är ett vanligt problem när man spelar in makron. Ett bra sätt för att förenkla problem är att undvika "Select" och "Selection". Du kan till exempel skriva om

Range("A1").Select
Selection.End(xlToRight).Select
Selection.Copy

Till

Range("A1").End(xlToRight).Copy

Det gör koden lite mindre och smidigare. Sen är det också så att "Copy" kopierar själva cellen, och det är inte rätt i det här fallet. Istället får man ta innehållet och lägga det i en variabel. (Vilket man skapar med Dim x As String).

Jag skulle då skriva om din kod som:

Public Sub ReplaceVSPEC()
    Dim x As String
    x = Range("A1").End(xlToRight)
    Range(Range("A1").End(xlToRight), Range("A1").End(xlToRight).End(xlDown)).Replace _
        What:="VSPEC", Replacement:=x, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Notera 'Replacement:=x' istället för din tidigare 'Replacement:="1234"'

Mvh

Niklas

2009-01-14 15:08

Gäst

Medlem sedan: 2009-01-13

339 inlägg

Re: Använda Replace i macro

Funkar helt perfekt.

Tack så mycket för den snabba hjälpen

/Peter

Sida 1 av 1

Använda Replace i macro