Worksheet change Range("A1").select

[MarkF]

Ik heb een macro geschreven in Private Sub Worksheet_Change (ByVal Target As Range

de bedoeling is dat ik met een validatie lijst gegevens kan opvragen, wanneer een vestiging wordt geselecteerd dan moet VBA het adres van deze vestiging kopieren en plaatsen in sheet orgineel op cel F18
nu geeft VBA een foutmelding dat Range("F18").select niet werkt.

weet iemand hoe ik dit wel voor elkaar krijg?




If Range("C26").Value = "vestiging1" Then
Range("B9:B13").Select
Selection.Copy
Sheets("orgineel").Select
Range("F18").Select
ActiveSheet.Paste

End If

If Range("C26").Value = "vestiging2" Then
Range("B3:B7").Select
Selection.Copy
Sheets("orgineel").Select
Range("F18").Select
ActiveSheet.Paste

End If

End Sub

 

[RvanGalenLast]

Mark,

Ik zie niet waarom het niet zou werken maar probeer het onderstaande eens.

Met vriendelijke groet,

Ronald

   If Range("C26").Value = "vestiging1" Then
        Range("B9:B13").Copy Destination:=Sheets("orgineel").Range("F18")
    ElseIf Range("C26").Value = "vestiging2" Then
        Range("B3:B7").Copy Destination:=Sheets("orgineel").Range("F18")
    End If

 

[Hoornvan]

MarkF en RvanGalenLast,

Ik heb niets op te merken aan de onderstaande code maar je kunt het met een aantal toetsaanslagen minder doen.
Range("A1") kan ook zo [A1]

 If [C26].Value = "vestiging1" Then
    [B9:B13].Copy Destination:=Sheets("orgineel").[F18]
  ElseIf Range("C26").Value = "vestiging2" Then
    [B3:B7].Copy Destination:=Sheets("orgineel").[F18]
  End If

 

[MarkF]

Beste Ronald en vanHoorn,

bedankt voor jullie commentaar, echter ik krijg het nog steeds niet voor elkaar.
voor de duidelijkheid heb ik het stukje code als bijlage meegezonden.

 

[RvanGalenLast]

Mark,

Het probleem zit 'm in de hoofdletter V. In de code gebruik je wel een hoofdletter maar in je sheet niet. Je code kijkt naar het woord "Vestiging" en niet naar "vestiging". Als je één van beide wijzigt moet het wel goed gaan.

Kijk overigens ook nog naar de spelling van Vestiging 2 in sheet ""gegevens".

Succes.

Ronald

 

[MarkF]

opgelost

Hartelijk bedankt,

wat stom dat ik dit over het hoofd heb gezien!
bedankt het werkt nu wel

 

[Hoornvan]

MarkF,

Ik heb het zo gedaan.