Kopieren zonder formule

[verluc]

Heb volgende code :

Sub CopyExample()
Application.ScreenUpdating = False
lRij = InputBox("Ingave van rijnummer", "Rijnummer")
    If lRij = "" Then Exit Sub
    Range(lRij & ":" & Range("F" & lRij).End(xlDown).Row).Copy.Range("G" & lRij).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Het is de bedoeling dat de getallen, i n kolom F gewoon naar kolom G worden gekopieerd.
Ik krijg echter steeds de melding : Object vereist

 

[Haije]

verluc,

probeer deze eens.....

Application.ScreenUpdating = False
lRij = InputBox("Ingave van rijnummer", "Rijnummer")
    If lRij = "" Then Exit Sub
    Range(lRij & ":" & Range("G" & lRij).End(xlDown).Row)=Range(lRij & ":" & Range("F" & lRij).End(xlDown).Row).value
Application.ScreenUpdating = True
End Sub

 

[verluc]

Krijg inderdaad geen melding meer, maar kopieren van F naar G blijkt nog niet te werken.
Met dank voor Uw reaktie.

 

[Cobbe]

Dit is wat ik er van kon maken:

Sub CopyExample()
Application.ScreenUpdating = False
lRij = Val(InputBox("Ingave van rijnummer", "Rijnummer"))
    If lRij = "" Then Exit Sub
    Range("A" & lRij & ":F" & lRij).Copy
    Range("G" & lRij).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[verluc]

O.K.Cobbe, thans werkt deze code, doch uitsluitend voor de rij dit werd ingegeven,dus één rij.
Het is de bedoeling dat deze code werkt VANAF de ingegeven rijnummer tot de eerst volgende BLANCO cell, dus
met andere woorden voor de hele kolom.
Mogelijkheid voor enige aanpassing?
Met dank bij voorbaat

 

[pasan]

en deze?

Sub CopyExample()
Dim A As Integer
Dim LastRow As Long
Application.ScreenUpdating = false
LastRow = Cells(Rows.Count, "F").End(xlUp).Row
LRij = InputBox("Ingave van rijnummer", "Rijnummer")

    If LRij = "" Then Exit Sub
    
    For A = LRij To LastRow
    Range("F" & A).Copy
    Range("G" & A).PasteSpecial Paste:=xlValues
    Next
    
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

en een iets snellere

Sub CopyExample()
Application.ScreenUpdating = False

Dim A As Integer
Dim LastRow As Long

LastRow = Cells(Rows.Count, "F").End(xlUp).Row
LRij = InputBox("Ingave van rijnummer", "Rijnummer")

    If LRij = "" Then Exit Sub
    
    For A = LRij To LastRow
    
    Range("G" & A) = Range("F" & A)

    Next
    
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[pasan]

en na je opmerkingen nog een keer gelezen te hebben stopt de volgende code als er een lege cel in kolom F gevonden wordt
de bovenstaande code trekt zich hiervan niks aan en plakt alles van kolom F naar kolom G
onderstaande code dus niet

Sub CopyExample()
Application.ScreenUpdating = False

Dim A As Integer
Dim LastRow As Long


LRij = InputBox("Ingave van rijnummer", "Rijnummer")
LastRow = Cells(Rows.Count, "F").End(xlUp).Row
  
    
    For A = LRij To LastRow
    If Range("F" & A) = "" Then Exit Sub 'bij een lege cel stopt de code 
    Range("G" & A) = Range("F" & A)

    Next
    
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[verluc]

Pasan,

Zeer bedankt voor Uw welwillende medewerking.Uw laatste macro doet inderdaad precies wat ik bedoelde.(en zeer snel)
Zet dit onderwerp dan ook op afgesloten.