vaste waarde in een code van een positie in een tabblad halen.

[Depant]

Hallo samen,

Zouden jullie zo vriendelijk willen zijn om even naar onderstaande code te kijken.
Onderstaande code werkt prima, maar ik zou het prettig vinden als ik het getal uit de selectie ( in dit geval 10 ) uit een cel zou kunnen halen.
Bijvoorbeeld " stam m1" Kan dat ?

Bij voorbaat hartelijk dank voor uw hulp:thumb:

Sub laatste60()

Sheets("Verz").Range("a15:a3000").ClearContents

    With Sheets("alles")
      .Cells(1).CurrentRegion.AutoFilter 1, Filter(Application.Transpose([if(stam!O1:O31="","~",stam!O1:O31)]), "~", False), 7
      .Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(stam!n1:n10="","~",stam!n1:n10)]), "~", False), 7
      .AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("verz").Range("A15")
      .Cells(1).AutoFilter
    End With
    
        With Sheets("Verz")
      .Range("A15:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort .Range("A15"), xlDescending
      .Range("A15:A" & .Cells(Rows.Count, 1).End(xlUp).Row).[COLOR="#FF0000"]Offset(10).Clear[/COLOR]
      .Range("A15:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort .Range("A15"), xlAscending
    End With

  End Sub

 

[edmoor]

Vervang die 10 door:
Sheets("stam").Range("M1").Value

 

[Depant]

Hartelijk dank

:thumb::thumb::thumb: