Gegevens doorvoeren naar ander werkblad

[remco89]

Hoi,

Ik heb nog een vraagje die jullie waarschijnlijk wel kunnen oplossen.

Ik gebruik dit:

Sub Doorvoeren()

    With Sheets("Blad3")
        Sheets("Blad1").Range("A3:F3").Copy .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)
    End With
    
End Sub

Als ik nu op de knop klik, worden de gegevens in de cellen A3 t/m F3 naar blad3 gekopierd.


Wat ik wil is zelf een rij selecteren en dan door middel van een klik op de knop naar blad3 kopieren.

Dit heb ik al geprobeerd maar dat werkt niet:

Sub Doorvoeren()

    With Sheets("Blad3")
        Sheets("Blad1").[B]Selection[/B].Copy .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)
    End With
    
End Sub

De fout zit waarschijnlijk bij selection...??

Iemand een oplossing?

Bedankt alvast

 

[Cobbe]

Sub Doorvoeren()

   Rij = InputBox("Welke rij? ?")    
   With Sheets("Blad3")
        Sheets("Blad1").Range("A" & rij &":F" & rij).Copy .Range("A" & .Range("A" &       Rows.Count).End(xlUp).Row + 1)
    End With
    
End Sub

Deze zou het moeten doen.

Cobbe

 

[remco89]

Zo dat is snel:thumb:
Ik probeer het even...

Edit:

Het werkt goed maar nu moet ik de rij invullen en op ok klikken.

Aan het begin van iedere rij staat een nummer (bijv. 1110), sommige nummers komen meerdere keren voor.
Is het mischien ook zo te maken dat ik in de inputbox 1110 intyp, dat dan van alle rijen die 1110 bevatten A1 t/m F3 naar blad3 worden gekopierd?

 

[Wigi]

Dit is zoals je het bedoelde:

Sub Doorvoeren()

    With Sheets("Blad3")
        Sheets("Blad1").Range("A" & Selection.Cells(1).Row & ":F" & Selection.Cells(1).Row).Copy .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)
    End With
    
End Sub

Wigi

 

[remco89]

Oke, ik zie het.
Ik ga proberen wat het makkelijkst werkt.

Mijn dank is groot!

 

[remco89]

Kan ik hiermee ook gegevens importeren vanuit een ander geopend excel bestand?
Ik probeerde het al zo maar dat werkt niet:

Sub Doorvoeren()
    
   rij = InputBox("Welke rij?")
   With Sheets("Blad3")
        Sheets("[B]Lijst.xls!Blad1[/B]").Range("A" & rij & ":G" & rij).Copy .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)
    End With

 

[Wigi]

Sub Doorvoeren()
    
   rij = InputBox("Welke rij?")
   With Sheets("Blad3")
        Workbooks("Lijst.xls").Worksheets("!Blad1").Range("A" & rij & ":G" & rij).Copy .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)
    End With

Wigi

 

[remco89]

Zo bedoel ik het ja, werkt goed!:thumb:

bedankt maar weer!