Kopieren van rijen

Status
Niet open voor verdere reacties.
R

Roma

Gebruiker
Lid geworden
7 sep 2013
Berichten
515
Beste,

Ik heb een formule die werkte. Maar nu gaat het verkeerd.
hij kopieert een heel andere rij van een ander tabblad.
wie kan mij de fout aanwijzen"

Code: 
    With Sheets("KWART 4")
    .Visible = True
       Range("AM96:AM130").Select
       Selection.Copy
       With Sheets("KWART 1")
      
       .Visible = True
      Range("AN9:AN43").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
     Range("C9").Select
     .Visible = False
     Application.ScreenUpdating = True
 
Code: 
Sheets("KWART 1").Range("AN9").Resize(35) = Sheets("KWART 4").Range("AM96").Resize(35).Value
 
Kan volgens mij met één regel:
Code: 
    Sheets("Blad1").Range("B4:B24").Value = Sheets("Blad2").Range("B4:B24").Value
 
Rudi
Bedankt
Ik weet niet wat ik fout heb gedaan maar deze code werkt perfect.
Ron

Michel
Bedankt voor het meedenken
Ik ga het niet proberen want ik ben bang dat het weer verkeerd gaat
Ron
 
@ Noroma
Lees maar eens wat documentatie over wat betreft het opzetten van With ... End With lussen en je zal spoedig je fouten merken.

@ Michel
Heb je misschien een biertje teveel op ? Zie jij bij mijn code méér dan 1 regel ? :p
 
@Rudi,
Ik weet het. Ik zoek nog iemand die les wil geven.
Ron
 
@warme bakkertje: niet zozeer bier alswel dat je nét wat sneller was :).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan