• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

cellen verplaatsen met opmaak

Status
Niet open voor verdere reacties.
B

bikkel009

Gebruiker
Lid geworden
28 sep 2016
Berichten
26
beste leden

ik ben bezig om van een sheet1 (ASD-RT) een bepaald gedeelte te kopiëren en op div andere sheets te plaatsen
nu werkt dat wel maar nu wil ik een ander deel van sheet1 (ASD-RT) ook gekopieerd hebben op
andere sheets en dit gaat fout in plaats van de aangegeven range wordt er alleen de eerste regels geplakt
dus range B23:f100 moet gekopieerd naar sheets 1 tot 12
en range b23:F22 moet gekopieerd worden naar sheets 13-16

Private Sub copieeren()
Dim i As Integer, j As Integer
For i = 2 To 12
Sheets("Asd-RT").Range("b23:f100").Copy
Sheets(i).Range("A2").PasteSpecial
Next i
For j = 13 To 16
Sheets("Asd-RT").Range("b23:f22").Copy
Sheets(j).Range("A2").PasteSpecial
Next j
End Sub

wat doe ik fout ?
 
Let op dat het opgegeven bereik zoals geschreven
Code: 
B23:F22
Code: 
B22:F23
wordt.

Code: 
Sub copieeren()
Dim i As Integer, j As Integer
 For i = 2 To 12
  Sheets("Asd-RT").Range("b23:f100").Copy Sheets(i).Range("A2")
 Next i
  For j = 13 To 16
    Sheets("Asd-RT").Range("b23:f22").Copy Sheets(j).Range("A2")
  Next j
End Sub
 
Hoi Harry

Bedankt voor de snelle responce
Alles aangepast zoals door jou omschreven
Maar het resultaat is het zelfde
Sheets 2 tot 12 worden netjes gevuld
Maar bij 13 tot 16
Worden de cellen b22 tot f23 geplakt
In plaats van b23 tot f22?
 
Dat schreef ik toch ook.
B22:F23 wordt gekopieerd.

Wil je misschien tot de laatste rij met gegevens van kolom F ?
 
Oeps dit is niet slim
lees de hele tijd over f22 heen dat moet natuurlijk f43 zijn

Dus dit probleem is opgelost
Maar door het splitsen van de kolomen op blad (Asd-RT)
Gaan mijn formules onderuit kan ik in de code zorgen dat er alleen de waarde en opmaak overgenomen worden of moet ik daarvoor de waardes eerst op een ander tabblad zetten
 
Zo bedoel je dus.
Code: 
Sub copieeren()
Dim i As Integer, j As Integer
application.screenupdating =false
 For i = 2 To 12
  Sheets([COLOR=#3E3E3E]"Asd-RT"[/COLOR]).Range("b23:f100").Copy
   Sheets(i).Range("A2").pastespecial xlpastevalues
   Sheets(i).Range("A2").pastespecial xlpasteformats
 Next i
  For j = 13 To 16
    Sheets([COLOR=#3E3E3E]"Asd-RT"[/COLOR]).Range("b23:f43").Copy
     Sheets(i).Range("A2").pastespecial xlpastevalues
     Sheets(i).Range("A2").pastespecial xlpasteformats
  Next j
  application.cutcopymode = false
End Sub
 
Top mannen

Bedankt
Hier mee kan ik verder knutselen

Ik kan de topic sluiten
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan