Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 9 van 9

Onderwerp: kopieer range van sheet 1 naar eerste lege regel op sheet 2

  1. #1
    Senior Member
    Geregistreerd
    2 januari 2008
    Vraag is opgelost

    kopieer range van sheet 1 naar eerste lege regel op sheet 2

    Wat doe ik fout
    ik loop vast


    Als ik een x in kolom l zet dan moet de range B to K worden gekopieerd uit sheet voeding naar de sheet data naar de eerste lege regel


    Niet zo moeilijk waarschijnlijk voor de mensen hier maar ik ben er al een tijd mee bezig

    Graag ook een uitleg erbij (daar leer ik weer van) van wat ik fout heb gedaan

    alvast bedankt
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door snb : 14 januari 2019 om 23:47

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Probeer deze eens:
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
         If Not Intersect(Target, Range("L1:L999")) Is Nothing Then
            With Sheets("data")
                .Cells(.Cells(Rows.Count, "A").End(xlUp).Row + 1, 1).Resize(, 10) = Cells(Target.Row, "B").Resize(, 10).Value
            End With
        End If
        Sheets("data").Select
    End Sub
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Senior Member
    Geregistreerd
    2 januari 2008
    bedankt

    ik mis nu alleen de formules na het copieren
    en ik zou de data ook graag in de e kolom van se sheet data willen plaatsen.

    ik ga er morgen weer verder mee stoeien



    Vast heel erg bedankt

  4. #4
    Senior Member
    Geregistreerd
    2 januari 2008
    ik heb er dit van gemaakt



    Private Sub Worksheet_Change(ByVal Target As Range)


    Dim test As Integer

    If Intersect(Target, Range("L1:L999")) = "x" Then
    With Sheets("eten")
    Cells(Target.Row, "B").Resize(, 10).Copy
    .Cells(.Cells(Rows.Count, "E").End(xlUp).Row + 1, 5).Resize(, 10).PasteSpecial Paste:=xlPasteFormulas
    Sheets("Voeding").Cells(Target.Row, Target.Column).Delete
    End With
    End If

    End Sub
    Laatst aangepast door caffie : 14 januari 2019 om 20:11 Reden: tussen de code tag gezet

  5. #5
    Moderator
    Verenigingslid

    Geregistreerd
    12 juni 2008
    @caffie


    Zet je svp de VBA code nog tussen code tags ?
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  6. #6
    Senior Member
    Geregistreerd
    2 januari 2008
    Ik moest even kijken wat u bedoelde
    Maar ik neem aan dat u het zo wilt zien

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim test As Integer
    If Intersect(Target, Range("L1:L999")) = "x" Then
    With Sheets("eten")
    Cells(Target.Row, "B").Resize(, 10).Copy
    .Cells(.Cells(Rows.Count, "E").End(xlUp).Row + 1, 5).Resize(, 10).PasteSpecial Paste:=xlPasteFormulas
    Sheets("Voeding").Cells(Target.Row, Target.Column).Delete
    End With
    End If
    
    End Sub
    weer wat geleerd
    bedankt allemaal
    Laatst aangepast door snb : 14 januari 2019 om 21:22

  7. #7
    Moderator
    Verenigingslid

    Geregistreerd
    12 juni 2008
    @caffie

    Kun je dat ook nog even doen in https://www.helpmij.nl/forum/showthr...=1#post6159962 ?
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Moet het niet zo zijn? Of heb je nog meer tabjes?
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Intersect(Target, Cells(1).CurrentRegion.Columns(12)) = "x" And Target.Count = 1 Then
        Application.EnableEvents = False
        Cells(Target.Row, 2).Resize(, 10).Copy Sheets("eten").Cells(Rows.Count, 5).End(xlUp).Offset(1)
        Target.Value = ""
        Application.EnableEvents = True
      End If
    End Sub
    Laatst aangepast door VenA : 14 januari 2019 om 21:51
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #9
    Senior Member
    Geregistreerd
    2 januari 2008
    Ja ik heb meerdere tabbladen

    Deze code werkt ook
    ik weet niet zo goed wat het verschil is.
    ik heb alleen gemerkt dat als ik een lege regel ertussen voeg dat de macro dan vast loopt.

    maar dit moet ik dan gewoon niet doen.


    bedankt voor met mee denken

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren