VBA code wijzigen

[jan excel]

Beste mensen,


Met onderstaande code wil ik in een bepaalde kolom de waardes laten vervangen door de excel functie "vervangen door".

Voorbeeld :
Allen inKolom "G" dient alle vermeldingen "1004" vervangen worden door "1005"
Dus als in kolom F ook "1004" staat moet dit dus niet gewijzigd te worden naar "1005",
Dit gebeurt met onderstaande code dus wel.

Groot deel van onderstaande code is tot stand gekomen met "record macro"

Wie weet welke aanpassing er in de code dient te komen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
If Target.Address = "$G$4" Then
Range("F5:F18").Select
Selection.Copy
Range("G5").Select
ActiveSheet.Paste
Range("G5").Select
Cells.Replace What:="='1004'", Replacement:="='1005'", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False       
End If
End Sub 

Alvast bedankt.
Jan

 

[huijb]

Vragen over Visual basic for Applications (VBA) horen ook in deze sectie thuis, niet in Excel. Verplaatst.

 

[Warme bakkertje]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
If Target.Address = "$G$4" Then
    [F5:F18].Copy [G5]
    Columns(7).Replace "='1004'", "='1005'", xlPart
End If
End Sub

 

[snb]

Als het alleen om de waarden gaat:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
  If Target.Address = "$G$4" Then
    [F5:F18].offset(,1)=[F5:F18].Value
    Columns(7).Replace "='1004'", "='1005'", xlPart
  End If
End Sub

PS. Zet svp VBA-code tussen code tags ( # )

 

[jan excel]

SNB en Warme bakkertje bedankt voor jullie hulp.
Hiermee kan ik verder werken aan mijn project.

Groet,
jan