usedrange, maar dan een deeltje daarvan

[Spiesse]

beste,

volgende code bezorgt me zonder problemen de usedrange in een tabel:

Sub SelectActualUsedRange()

  Dim FirstCell As Range, LastCell As Range
  Set LastCell = Cells(Cells.Find(What:="*", SearchOrder:=xlRows, _
      SearchDirection:=xlPrevious, LookIn:=xlValues).Row, _
      Cells.Find(What:="*", SearchOrder:=xlByColumns, _
      SearchDirection:=xlPrevious, LookIn:=xlValues).Column)
  Set FirstCell = Cells(Cells.Find(What:="*", after:=LastCell, SearchOrder:=xlRows, _
      SearchDirection:=xlNext, LookIn:=xlValues).Row, _
      Cells.Find(What:="*", after:=LastCell, SearchOrder:=xlByColumns, _
      SearchDirection:=xlNext, LookIn:=xlValues).Column)
  Range(FirstCell, LastCell).Select
  
End Sub

nu zou ik daar een variant op willen...
het bereik zou enkel range("a2:f2") mogen zijn, maar wel alle rijen meetellen die er bezet zijn...

ik heb geprobeerd om firstcell te bepalen met range("a2:f2").value maar dit helpt niet...

groeten
spiesse

 

[wampier]

Misschien handig om wat beter aan te geven wat je nu krijgt, wat de mogelijke range is en wat je verwacht te hebben na de aanpassing. Ook een voorbeeld bestand zou handig zijn.

Ik denk dat je door een beperkt bereik wil lopen en een selectie van alle rijen met een waarde? Je gebruikt ook het woord "meetellen" maar als je uitkomst slechts een enkele range is dan begrijp ik dat niet helemaal.

 

[Spiesse]

wat ik nu krijg is het bereik kolom a maar dan kunnen er x aantal kolommen geteld worden... dit is nooit hetzelfde... ik zou enkel kolom a:f nodig hebben maar dan de x aantal rijen meegeteld met waarden in

 

[Spiesse]

is opgelost.
volgende code deed het werk
Range("a2", Range("f2").End(xlDown)).Select

toch bedankt voor het meedenken!

spiesse

 

[wampier]

Ik dacht eerlijk gezegd al dat je zoiets bedoelde, maar vanwege de complexe originele code toch maar eerst vragen

 

[snb]

Kijk nog eens in de hulpbestanden van de VBEditor


Lees het verschill tussen

sheets(1).usedrange

en

sheets(1).cells(1).currentregion

en als antwoord op je vraag:

usedrange.columns(1).resize(,6)

en als je rij 1 wil uitsluiten:

usedrange.columns(1).resize(,6).offset(1)