Archief - PROG Excel VBA Hulp plz ..

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
F

Frederik654

Legacy Member
Heren ik zit hier op mijn werk en moet hier snel ne kleine VBA maken in Ex2007.

Probleem is dat het hier niet helemaal loopt zoals gehoopt;

Sub CopyTxt()

Dim r As Range

For Each r In Range("E2:F30")
If r <> "" Then
r.Copy
End If
Next

End Sub

Poepsimpel, hij gaat over elke cell die niet leeg is in die range en doet copy ..
Nu moeten ze eigenlijk allemaal in copy staan zodat ik achter maar 1 keer paste moet doen (in een ander programma) ..

Ik heb niets gevonden van Cells.CopyExtend of zo bv :) ..

Tx
n

nzr

Legacy Member
en gewoon u bereik selecteren en 1x copieren + paste lukt niet :lol: ?
F

Frederik654

Legacy Member
Jawel :D

Ik ben gewoon te lui omdak ne linkse ben om mijn muis lost te laten en die range ctrl-c te doen want mijn rechtse hand rust op mijn numeriek klavier en als ge dat soms 50 keer moet doen ..

:sleep:

Haha ma ik heb het ondertussen eigenlijk anders gedaan ..

Sub CopyBatches()

For i = 2 To 30
If Cells(i, 5) = Empty Then
Range(Cells(2, 5), Cells(i - 1, 6)).Select
Selection.Copy
i = 30
End If

Next i

End Sub
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan