Re: Macro's in excel — Forum

drumeke Startte dit onderwerp 08 mar 2020, 15:35 Antwerpen 61 berichten

Beste
ik heb een vraagje over Macro's in excel, ik wil namelijk een deel Rijen kopiëren naar een ander blad.
Dit lukt met een macro, geen probleem, ook meerdere rijen gen probleem.
Maar nu wil ik het aantal rijen die ik in een cel aangeef vb cel (F1) kopiëren en plakken in blad 2
Dit lukt me niet daar ik de If /Then functie niet genoeg beheer.
ik kan het bestand doorsturen indien gewenst.
kort samen gevat, een vaste tabel met 3 kolommen 25 rijen lang.
Als het cijfer in cel (F1) 10 bedraagt dan wil ik de cellen vanaf (A3:c13) kopiëren naar Blad 2! (A3:c13)
Afbeelding

Sony 08 mar 2020, 18:49 Boom 5.235 berichten

drumeke

If Range("F1") = 10 Then
Range("A3:C13").Select
Selection.Copy
Sheets("Blad2").Select
Range("A3").Select
ActiveSheet.Paste
End If

Sony

I

SeniorenNet

franç 08 mar 2020, 19:14 407 berichten

drumeke schreef: ↑
08 mar 2020, 15:35
Als het cijfer in cel (F1) 10 bedraagt dan wil ik de cellen vanaf (A3:c13) kopiëren naar Blad 2! (A3:c13)

Ik denk dat je bedoelt dat dan A3:C12 gekopieerd moet worden (want dat zijn 10 rijen) en niet A3:C13 (11 rijen). Als dat het geval is, kun je onderstaande macro gebruiken.

Code: Selecteer alles

Sub Kopieer()
Dim aantal As Integer
Sheets("Blad2").Cells.ClearContents
With Sheets("Blad1")
aantal = .Range("F1").Value
.Range("A3:C" & aantal + 2).Copy Sheets("Blad2").Range("A3")
End With
End Sub

Bedoel je toch A3:C13 in plaats van A3:C12, vervang dan in de macro in de derde regel van onder +2 door +3.
NB: Om met vba bewerkingen op cellen uit te voeren, is het niet nodig om ze te selecteren.

drumeke Startte dit onderwerp 08 mar 2020, 19:57 Antwerpen 61 berichten

Super dat werkt inderdaad,
ik had nog een probleem dat het mijn info op blad 2 overschreef, maar deze heb ik verandert door ipv A3 A1 te laten selecteren en dan werkt dit prima.

Bedankt voor de snelle oplossing