Opgelost De 2 naastgelegen cellen selecteren

[PeterBijns]

Mogelijk erg simpel, maar ik kom er niet uit.
Ik sta in zeg maar A1 en wil wil de inhoud van B1:B2 selecteren om te kopieren naar E1:F1 dat kopieren moet kopieren speciaal worden met alleen de waarde plaatsen in E1 en F1.
Dit wil ik dus ook hebben als ik zeg maar in A10 sta, dan wil ik graag de cellen B10:C10 Kopieren naar E10:F10.

Dit krijg ik niet voor elkaar, Wie kan mij helpen.

Groet, Peter

 

[emields]

Aan de hand van een voorbeeldbestandje zijn er hier veel die u kunnen helpen.

 

[AHulpje]

B1:B2 naar E1:F1, dus transponeren?
B10:C10 naar E10:F10, dus niet transponeren?
En moet dit alleen gebeuren als je ergens in kolom A staat?

Bijgaand een gokje, selecteer een cel in kolom A en druk op Ctrl+k

 

[PeterBijns]

AHulpje, dit is wat ik wil, maar ook als ik in een andere cel sta, wel altijd in de Kollom A.
Uitgangspunt is dat ik in een cel sta in de kolom A.

Dank alvast voor je oplossing.

Groet, Petetr

 

[AHulpje]

Dan mag je dit topic op opgelost zetten.

 

[PeterBijns]

AHulpe
Toch nog even dit, de juiste cellen worden gekopieerd alleen moet het kopieren speciaal worden met getal als keuze.
In B1 en C1 staat een formule welke met gewoon kopieren dan gekopeerd wordt en niet de waarde,. Ik zie dat ik ook een stomme fout in de omschrijving gemaakt heb, daar staat dan ik van de cellen B1:B2 de waarden wil kopieren maar dat moet zijn van B1:C1 wel naar de cellen E1:F1 kopieren.

Als dat ook mogelijk is heel graag.

Groet, Peter

 

[emields]

Als het aub mogelijk is plaats dab zelf een voorbeeldbestandje zodat de helpers daar hun tijd niet moeten insteken. Als dat al teveel gevraagd is wat moeten wij dan zeggen?

 

[roeljongman]

dat kan met de volgende code

Sub Kopieer()
    If ActiveCell.Column = 1 Then
        ActiveCell.Offset(0, 1).Resize(1, 2).Copy
        ActiveCell.Offset(0, 4).PasteSpecial (xlPasteValues)
    End If
End Sub

 

[Enigmasmurf]

Nog een héél klein schoonheidsfoutje weggewerkt:

Sub Kopieer()
If ActiveCell.Column = 1 And Selection.Count = 1 Then
    ActiveCell.Offset(0, 1).Resize(1, 2).Copy
    ActiveCell.Offset(0, 4).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End If
End Sub

 

[PeterBijns]

Hoi roeljonman, Dit is het helemaal reuze bedankt voor je hulp.

Groet, Peter

 

[PeterBijns]

Ook Enigmasmurf bedankt voor het uitzetten van de kopieselektie van de 2 cellen, dat scheelt weer een druk op de esc toets. Groet, Peter

 

[HSV]

Of:

Sub hsv()
With ActiveCell
 If .Column = 1 Then .Offset(, 4).Resize(, 2) = .Offset(, 1).Resize(, 2).Value
End With
End Sub