• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel verticaal zoeken bij meerdere waardes

Status
Niet open voor verdere reacties.
selecteren
kopiëren
ga naar de nieuwe locatie
plakken speciaal
waarden
 
Laatst bewerkt:
Ha Sylvester,

dat zou een goede handmatige optie zijn. maar zou dat te automatiseren zijn?

gr

Rens
 
Even een macro opnemen is vaak een goed startpunt. De gegevens filteren op niet lege cellen en kopiëren maar.
 
Ha VenA,

Dat klopt. Alleen ik weet niet goed hoe ik dat in dit geval zal moeten doen.

Ik heb een aantal kolommen met in de linker kolom getallen (op volgorde) van 5 t/m 38. Dezelfde getallen komen soms vaker voor, maar wel altijd op volgorde. En de getallen kunnen per tabblad in verschillende rijnummers staan. Nu wil ik het bereik van de eerste 9 t/m de laatste 22 kopieren. en dan 11 kolommen breed.

Ik heb wat opgenomen en dan krijg ik dit:

Code: 
Sub test2()
'
' test2 Macro
'

'
    Range("DR6:EB41").Select
    Selection.Find(What:="9", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    [B]Range("DR10:EB27").Select[/B]
    Selection.Copy
    ActiveWindow.SmallScroll ToRight:=-9
    ActiveWindow.SmallScroll Down:=57
    Range("DG78").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Het gaat mis bij het dikgedrukte, want hij selecteert nu een vast bereik van cellen
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan