bereik met vba selecteren

[Depant]

Hallo allemaal,

Hoe moet ik een bereik selecteren met vba?

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:Z6").Select
( op deze manier blijft rij 6 het eindpunt)


Rijen in kolom a wordt steeds uitgebreid
Kolom blijf tot Z.

( ben hier absoluut niet in thuis. )

Alvast bedankt
Henk Harbers

 

[Leotaxi]

je hebt toch geen VBA nodig om een bereik te selecteren ?


mvg
Leo

 

[Depant]

Bereik

Hallo Leotaxi,

Maar het is onderdeel hiervan.
Her zal wel erg vba onethisch en onverantwoord zijn, maar ik zoek een manier om in 8 acht gelijksoortige macro's dat bereik te selecteren en weg te kopieren.

En dat selectie stukje zit 2 keer in 1 macro. ( in 1 nir en 1 lab)

Workbooks.Open Filename:="G:\OZ\Q-SYSTEEM\LV NIRS\NIR1 LV.xlsx"
Windows("binnenland.xlsm").Activate
Sheets("1nir").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:Y43").Select
Selection.Copy
Windows("NIR1 LV.xlsx").Activate
Sheets("Inv NIR").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("binnenland.xlsm").Activate
Sheets("1lab").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:V43").Select
Application.CutCopyMode = False
Selection.Copy
Windows("NIR1 LV.xlsx").Activate
Sheets("1ld").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

En deze macro loopt dan in verschillende versies..
Het wordt er misschien niet duidelijker op??

 

[Leotaxi]

zie inderdaad dat er te veel geselecteerd wordt en dat is slecht.

hierbij klein voorbeeldje van overbrengen van gegevens blad 1 naar blad 2 zonder selecteren
is sneller dan kopiëren en als het enkel om de waardes te doen is even doeltreffend.

Sheets("blad2").Range("A1", "Z50").Value = Sheets("blad1").Range("A10", "Z59").Value

dit is de enige tip dat ik kan geven zonder voorbeeldbestandje


mvg
Leo

 

[Depant]

bereik

Hallo Leo,

Bedankt ik ga gelijk kijken of ik er iets mee kan.
Maar ik had er toch wel een bestandje bij gedaan?

Vriendelijk groeten
Henk Harbers

 

[Depant]

bereik

Hallo allemaal.

Ik heb ook deze versie

ActiveSheet.Range("a2", _
ActiveSheet.Range("a2").End(xlDown).End(xlToRight)).Select

Maar ik zou dan willen dat de selectie bij kolom y stopt


Henk Harbers

 

[Leotaxi]

dat kan zo

lastrow = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Range("a2", "Y" & lastrow).Select

mvg
Leo

 

[Depant]

Ik ben er bijna

Hallo allemaal

Ik heb nu dit.
De kolommen gaan nu goed, maar de selectie van de rijen moet stoppen waar de monsternummers stoppen ( dat is rij a)
Hij selecteerd teveel rijen.
Wat moet nog veranderen?

Windows("binnenland.xlsm").Activate
Sheets("1nir").Select
lastrow = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Range("a2", "AA" & lastrow).Select
Application.CutCopyMode = False
Selection.Copy
Windows("NIR1 LV.xlsx").Activate
Sheets("Inv NIR").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[ExcelAmateur]

Test dit bestandje eens.
Druk op de knop en als het goed is Selecteer hij alleen de monsternummers.

Ik hoop dat je dit bedoel.

 

[Depant]

Een gelukkig man

Hallo Excelprof.

Heel erg bedankt.
Ik heb hier echt 16 uur mee lopen prutsen.

Nogmaals hartelijk bedank voor de moeite
Vriendelijke groeten

Henk Harbers

 

[ExcelAmateur]

Graag gedaan hoor.
Maar ik ben hier echt een amateur in.
Er zitten hier op het forum, die de code zo uit de mouw schudden.