Gegevens na invullen in ander blad plaatsen

[abreukel]

Hoi,
Ik wil dat geselcteerde gegevens, na invullen, vanuit het eerste blad (rental) automatisch naar blad 2 worden getransporteerd.

Let wel. Zodra aantal stuks en dagen zijn inguld rekent hij de prijs uit. Datgene wat naar blad 2 getransporteerd moet worden zijn in principe de gegevens in Kolom A. Dus wat niet wordt ingevuld, ook niet transporteren naar blad 2.

Kan iemand mij daar aub bij helpen??

BVD
Alfons

 

[Wigi]

Alfons,

Als ik het zo lees is dit een vraag die geregeld voorbij komt op het forum hier.

Zo geregeld zelfs, dat er om half 10 vandaag nog een antwoord was in deze topic. Zoek eens op het forum naar gelijkaardige code.

Wigi

 

[abreukel]

Gegevens naar ander blad verplaatsen

Klopt, maar dat is niet helemaal wat ik bedoel. En om eerlijk te zijn kom ik er met de de vba code er ook niet helemaal uit om die om te vormen.

Dus als je meer suggesties hebt zijn die van harte welkom.

 

[jpvs]

Probeer eens met dit:

Sub Kopie()
    Dim x      As Long
    Dim y      As Long
    Dim c      As Variant
    Application.ScreenUpdating = False
    x = Sheets("Rental").Cells(Rows.Count, "Q").End(xlUp).Row
    y = 1
    For Each c In Range("Q13:Q" & x)
        If c = "1" Then
            c.Rows.EntireRow.Copy
            Sheets("Blad1").Range("A" & y).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
            y = y + 1
        End If
    Next c
    Application.ScreenUpdating = True
End Sub

Dus alles wat in kolom Q met een "1" staat wordt gekopieerd naar Blad2.

Pierre

 

[abreukel]

Probeer eens met dit:

Sub Kopie()
    Dim x      As Long
    Dim y      As Long
    Dim c      As Variant
    Application.ScreenUpdating = False
    x = Sheets("Rental").Cells(Rows.Count, "Q").End(xlUp).Row
    y = 1
    For Each c In Range("Q13:Q" & x)
        If c = "1" Then
            c.Rows.EntireRow.Copy
            Sheets("Blad1").Range("A" & y).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
            y = y + 1
        End If
    Next c
    Application.ScreenUpdating = True
End Sub

Dus alles wat in kolom Q met een "1" staat wordt gekopieerd naar Blad2.

Pierre

Thx, maar euh dom vraagje. Moet ik een object maken met daaraan een macro verbinden . Dus rechtermuisklik op object en nieuw kiezen???

Pff moet echt eens een echte cursus in VBA volgen

 

[jpvs]

Alfons,

Een dom vraagje is dit niet, zie eens naar deze site voor meer info:
http://users.pandora.be/ingrid/excel/copyvba.htm

Een macro of functie naar een module kopiëren.

Pierre

 

[abreukel]

Alfons,

Een dom vraagje is dit niet, zie eens naar deze site voor meer info:
http://users.pandora.be/ingrid/excel/copyvba.htm

Een macro of functie naar een module kopiëren.

Pierre

THX