Hallo,
Ik heb een macro opgenomen in excell, voor ik hem ging proberen keek ik in de VB editor en er klopt iets niet.
Dit moet hij doen:
Range("X19").Select
Cells.Find(What:="6", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("A72").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Cut
Sheets("6Portable").Select
Range("A3").Select
ActiveSheet.Paste
Wat ik rood heb gemaakt klopt niet. Ik wil namelijk dat hij zoekt in kolom X.. als hij de 6 heeft gevonden, moet hij in dezelfde rij naar kolom A (en dat is niet altijd A72) voordat hij alles gaat selecteren wat daaronder zit!
Iemand een tip?
Gr. Alex
Ik heb een macro opgenomen in excell, voor ik hem ging proberen keek ik in de VB editor en er klopt iets niet.
Dit moet hij doen:
Range("X19").Select
Cells.Find(What:="6", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("A72").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Cut
Sheets("6Portable").Select
Range("A3").Select
ActiveSheet.Paste
Wat ik rood heb gemaakt klopt niet. Ik wil namelijk dat hij zoekt in kolom X.. als hij de 6 heeft gevonden, moet hij in dezelfde rij naar kolom A (en dat is niet altijd A72) voordat hij alles gaat selecteren wat daaronder zit!
Iemand een tip?
Gr. Alex