sheetnaam naar cel

[don42]

Hallo allemaal,

heb een vraagje
heb een werkmap met een 80 tabbladen (spaarkas)

in cel A6 van elk tabblad staat een nummer in mijn code is dat nu 35
Het tabblad heet zoals jullie zien ook 35
iedere keer als ik een nieuw blad aanmaak moet ik sheets("35") handmatig ophogen naar sheets("36") enz.
het lukt me niet om een link te maken naar die cel A6 waar het juiste getal al staat

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lotto As Integer
On Error Resume Next
lotto = Sheets("35").Cells(Rows.Count, 16).End(xlUp).Value
Range("q1").Value = lotto

iemand een oplossing?

Don

 

[edmoor]

Ik zie nergens een referentie naar A6 in je code?

 

[don42]

Dit had ik geprobeerd

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lotto As Integer
Dim kasno As Integer
kasno = Range("a6").Value
On Error Resume Next
lotto = Sheets("kasno").Cells(Rows.Count, 16).End(xlUp).Value
Range("q1").Value = lotto
              End Sub

Don

 

[edmoor]

Zo te zien is het enige dat je wil is dat in cel Q1 de waarde van de laatste regel van kolom P komt te staan? Beide van het actieve werkblad? Dan is dit voldoende:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet
       .Range("Q1") = .Cells(.Rows.Count, "P").End(xlUp)
    End With
End Sub

 

[don42]

Hoi Edmoor,
Ja dit is wat ik zocht
het kon dus veel eenvoudiger als ik dacht
maar weer eens bedankt voor je fijne hulp

Don