Kopiëren en plakken speciaal

Status
Niet open voor verdere reacties.
B

basblok

Gebruiker
Lid geworden
11 nov 2011
Berichten
342
Geacht forum,

Graag een oplossing;
Van het tabblad Biljartpoint! moet ik steeds handmatig een kopie maken en die met “Plakken speciaal” alleen de “Waarde” naar het tabblad Biljartpoint klaar moet worden geplakt. Is dat automatisch te doen met een macro?

Bij voorbaat dank voor de oplossing.
Bas
 

Bijlagen

En waar moet dat blad dan naar toe worden gekopieerd?
Ook niet handig om een document te plaatsen waarin regelnummers en kolomletters niet te zien zijn.
 
'Kopiëren en plakken speciaal'

Hallo Ed,
Het blad Biljartpoint! moet worden gekopieerd naar het blad Biljartpoint klaar
Daar bij dient het te worden gesorteerd op kolom B

Gr. Bas
 
'Kopiëren en plakken speciaal'

Hallo Ed,
Op het blad Biljartpoint staan nu in kolom B de klassen onder elkaar gesorteerd op datum.
Dat moet worden gekopieerd naar het blad Biljartpoint klaar maar dan alleen de kolommen B t/m M.
Is dat te doen?
 
Dat kan met zoiets:
Code: 
Sub KopieerBlad()
    LR = Sheets("Biljartpoint").Range("B1").CurrentRegion.Rows.Count
    With Sheets("Bilartpoint klaar")
        .Cells.CurrentRegion.Clear
        .Range("B1:M" & LR).Value = Sheets("Biljartpoint").Range("B1:M" & LR).Value
    End With
End Sub

Overigens heet het blad "Bilartpoint klaar" en niet "Biljartpoint klaar".
 
Laatst bewerkt:
Kopieren en plakken

Dankjewel voor de formule.
Ik ga het straks toepassen.
 
Dat heet geen formule maar een Subroutine ;)
 
Kopieren en plakken

Hallo Ed,

Ik kreeg het ook niet voor elkaar.

Overigens zie ik staan: Range("B1") moet dat niet ook Range("B2") Range"C1") Range"C2") tot en met Range"C4")?
En waar moet dit geplaatst worden?
Moet hier een knop voor in het Menu worden geplaatst?


Sub KopieerBlad()
LR = Sheets("Biljartpoint").Range("B1").CurrentRegion.Rows.Count
With Sheets("Bilartpoint klaar")
.Cells.CurrentRegion.Clear
.Range("B1:M" & LR).Value = Sheets("Biljartpoint").Range("B1:M" & LR).Value
End With
End Sub
 
De code is goed dus daar moet niets anders staan.
Je kan dat achter een knop zetten inderdaad.
Een knop in het lint maken vergt veel meer werk.
Daar komt XML en VBA Callback routines bij kijken.
Wil ik best voor je doen, maar dan vanavond.
 
Kopieren en plakken

Dat zou ik zeer op prijs stellen.
Kan je een tijdindicatie aangeven zodat ik achter de computer moet verschijnen.
Gr. Bas
 
Kopieren en plakken

Hallo Ed,

Het is toch nog niet zoals bedoeld.
Als je kijkt op het blad Bilartpoint klaar dan zie je dat die pagina niet is gesorteerd (kolom C)
De volgorde zou moeten zijn B1 - B2 - C1 - C2 etc
Regel 114 t/m 185 en regel 474 t/m 608 en regel 817 t/m 951 zouden er niet moeten staan als alles in kolom goed is gesorteerd.
Misschien nog een aanpassing nodig?

Gr. Bas
 
Laatst bewerkt:
@Edm

Lijkt me 'over de top'

Code: 
With Sheets("Bilartpoint klaar")
        .Cells.CurrentRegion.Clear

hetzelfde effekt:
Code: 
With Sheets("Bilartpoint klaar")
        .Cells.Clear

of beter:

Code: 
With Sheets("Bilartpoint klaar")
        .Usedrange.Clear

of bedoel je:

Code: 
With Sheets("Bilartpoint klaar")
        .Cells(1).CurrentRegion.Clear
 
Die .Usedrange.Clear is beter inderdaad.
Maar het werkt en TS is er happy mee.
Dat kan hij evt. zelf aanpassen.

.
 
Kopieren en plakken

Hallo Ed,

Het werkt nog niet zoals het de bedoeling is.
Als het goed is heb ik dat al verwoord.
Wil je er toch nog een keer naar kijken?
Gr. Bas
 
Wat gebeurd er dan niet dat wel de bedoeling is?
 
Kopieren en plakken

Hallo Ed,

Dat ziet er inderdaad goed uit.
Wil je dat in dit bestand plaatsen dan is alles up to date.

Heel veel dank voor de uitermate snelle manier van afhandelen.

Met vriendelijke groet,
Bas
 

Bijlagen

Je kan het zo kopiëren uit het ene bestand en plakken in het andere.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan