Hjælp til Makro.

Ja - men hvordan vælges der mellem B4 / B19

Hej supertekst.
Der står ikke noget i B4 og B19 på samme tid.
Så enten er det B4 ellers er det B19, som vælges fra.
Ib

Ok -

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rem Klikkes der i et af områderne
Dim kolonne, række
    kolonne = Target.Column
    række = Target.Row
   
    If kolonne >= 4 And kolonne <= 14 And kolonne <> 6 And kolonne <> 9 And kolonne <> 12 Then
        If række >= 4 And kolonne <= 33 Then
            Target.PasteSpecial xlPasteAll
        End If
    End If
End Sub
Private Sub worksheet_activate()
    If Range("B4") <> "" Then
        Range("B4").Select
    Else
        Range("B19").Select
    End If

    Selection.Copy
End Sub

Hej superteks.
Der sker det at når jeg klikker kommer der en box op hvori der står. Run-Time error '1004':
Metode PasteSpecial for klassen Range mislykkedes.
Hvis jeg debugger er det linien. Target. PasteSpecial x1PasteAll
som er gul.
Ib

Ja - det er måske ikke hensigtsmæssigt at B4/B19 vælges når arket aktiveres. Hvis du prøver at klikke på et andet ark og så klikker på det relevante - så skulle det virke p.t.

Skal du have formatet med fra B4/B19 eller er det kun værdien?
Så retter jeg ind efter det.

Nu kan du prøve denne og melde tilbage...

Rem Version II
Rem ==========
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rem Klikkes der i et af områderne
Dim kolonne, række
    kolonne = Target.Column
    række = Target.Row
   
    If kolonne >= 4 And kolonne <= 14 And kolonne <> 6 And kolonne <> 9 And kolonne <> 12 Then
        If række >= 4 And kolonne <= 33 Then
            Target.Value = HentVærdi
        End If
    End If
End Sub
Private Function HentVærdi()
    If Range("B4") <> "" Then
        Range("B4").Select
    Else
        Range("B19").Select
    End If
    HentVærdi = Selection.Value
End Function

Lige en hurtig kommentar:
prinsib>>Hvis du har kopieret linien: Target. PasteSpecial x1PasteAll, så har du en fejl i koden: det skal være: Target. PasteSpecial xlPasteAll -altså l IKKE 1.

Hej superstkst.
Nu virker det som det skal, bortset fra en lille detalje. Den indsætter også i række 34 nede under kolonnerne jeg klikker i, men det tror jeg godt jeg kan leve med, hvis det er besværligt at rette.
Tak for hjælpen, og for dit hurtige svar.
Læg et svar.
Ib

Hej tjacob.
Undskyld jeg så ikke lige dit indlæg. Det var mig der havde læst forkert, der stod ikke 1, men den virkede ikke alligevel.
Ib

rettelse kommer - et øjeblik......

Rem Version III
Rem ===========
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rem Klikkes der i et af områderne
Dim kolonne, række
    kolonne = Target.Column
    række = Target.Row
   
    If kolonne >= 4 And kolonne <= 14 And kolonne <> 6 And kolonne <> 9 And kolonne <> 12 Then
        If række >= 4 And række <= 33 Then  'der stod kolonne i stedet for række
            Target.Value = HentVærdi
        End If
    End If
End Sub
Private Function HentVærdi()
    If Range("B4") <> "" Then
        Range("B4").Select
    Else
        Range("B19").Select
    End If
    HentVærdi = Selection.Value
End Function

Hej supertekst.
Det var lige det der skulle til.
Nu virker det helt perfekt.
Tak for hjælpen, og her er dine velfortjente points.
Ib

Fint & selv tak...

Hvis det var meningen at jeg skulle have point - så er det en ommer... :-) Du giver point til dig selv....

Hej supertekst.
Undskyld mig. Det har jeg også. Så skal du ligge et svar, er det ikke rigtig?
Har du set mit tillægsspørgsmål?
Ib

Nej - der kan ikke svares mere på dette spørgsmål.

Det er Ok (du er ikke den første) - du skal oprette et nyt spørgsmål med titlen:

Points til Supertekst og henvise til dette spørgsmål # 887801 - så svarer jeg på dette.

Ja - jeg har set dit tillægsspørgsmål - når det måske i morgen - (har flere kundeopgaver).