Delen via

Waarde in eerstvolgende lege kolom plaatsen met VBA

Anoniem
2013-08-24T18:31:09+00:00

Gaarne hulp in de volgende macro die het nog "net niet doet".

De bedoeling is dat de waarde uit sheet1 kolom T & U  overgezet wordt naar tabblad sheet2 in de eerste lege kolom.

(loopt vast in het laatste deel: `Selection.PasteSpecial ......"

Zie:

Sub waarde_verplaatsen()

Sheets("Sheet1").Select

Columns("T:U").Select

Sheets("Sheet2").Select

With ActiveSheet

lastcol = .Cells(1, .Columns.Count).End(xlToLeft).Column

End With

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

End Sub

Bij voorbaat dank voor uw hulp.

Albert

Microsoft 365 en Office | Excel | Voor thuisgebruik | Windows

Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt stemmen of het nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen. Gebruikersprofielen voor gemigreerde vragen worden geanonimiseerd om de privacy te beschermen.

0 opmerkingen
Answer accepted by question author
  1. Anoniem
    2013-08-24T19:31:31+00:00

    Probeer dit eens:

    Sub waarde_verplaatsen()

    Dim lk As Long

    Dim bron As Range

    Dim doel As Range

    lk = Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Column

    Set bron = Sheets("Sheet1").Range("T:U")

    Set doel = Union(Sheets("Sheet2").Columns(lk + 1), Sheets("Sheet2").Columns(lk + 2))

    doel.Value = bron.Value

    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

    End Sub

    1 persoon vond dit antwoord nuttig.
    0 opmerkingen

1 extra antwoord

Sorteren op: Meest nuttig
Meest nuttig Nieuwste Oudste
  1. Anoniem
    2013-08-24T20:57:07+00:00

    Werkt fantastisch.

    Dank voor uw hulp.

    Albert

    0 opmerkingen