naar tabblad verwijzen

[don42]

Ik heb een file met 77 tabjes
met onder staande code verwijs ik naar een tab als iemand gestopt is met sparen
(spaarkasvereniging)
nu wil ik graag die 77 tabjes verwijderen er met 1 gaan werken
als in cel A6 een getal komt te staan dan haal ik via index(vergelijken de nodige data op

Private Sub CommandButton1_Click()
MsgBox "Als je op OK klikt krijg je te zien wie er tot nu toe gestopt is met de spaarkas" & vbNewLine & "Klik weer op ok en je gaat naar de kas, klik je op Nee" & vbNewLine & "Dan naar de volgende die gestopt is..", vbYes, "Informatie leden gestopt"
Dim c As Range, firstaddress As String
  Set c = Sheets("leden").Columns(16).Find("gestopt")
    If Not c Is Nothing Then
      firstaddress = c.Address
   Do
    If MsgBox(c.Offset(, -14) & " " & c.Offset(, -13) & " Kas " & c.Offset(, -15) & vbNewLine & "Gestopt op: " & c.Offset(, 22) & vbNewLine & ("Spaartegoed: " & Format(c.Offset(, 23), "€ ##,##0.00")), vbYesNo, " kassen die gestopt zijn...") = vbNo Then
       Set c = Sheets("leden").Columns(16).FindNext(c)
     Else
         GoTo ga
       End If
   Loop While Not c Is Nothing And c.Address <> firstaddress
   MsgBox "Niemand meer die gestopt is", vbYes, "Dit was de laatste"
Exit Sub
ga:
  [COLOR="#0000FF"]Application.Goto Sheets(CStr(c.Offset(, -15))).Range("A8")[/COLOR]
 [COLOR="#008000"] Application.Goto Sheets("1") range("a6").Value =(c.Offset(, -15)))[/COLOR]
     Exit Sub
Else
  MsgBox "Hopen dat dit zo blijft", vbYes, "Nog niemand gestopt"
      End If
End Sub

de blauwe regen linkt naar een tabje waar gestopt staat
nu wil ik graag iets hebben dat de waarde wat op dat moment in c.Offset(, -15) staat
naar cel A6 wordt gekopieerd . van tabje 1 (alle andere wil ik graag verwijderen)
de groene regel is iets wat ik geprobeerd heb maar dat lukt mij dus niet
is dat mogelijk


Don

 

[HSV]

Ik bouw geen uitgebreide bestanden na, dus doe een poging.

[COLOR=#008000]Sheets("1").range("a6").Value = c.Offset(, -15).value[/COLOR]

 

[don42]

Nou dat zeg je nu wel, maar de code die ik gebruik komt toch grotendeels uit jouw hoed
helaas jouw optie geeft de foutmelding ongeldige verwijzing

Application.Goto Sheets("1").range("a6").Value = c.Offset(, -15).value

Sheets("1").range("a6").Value = c.Offset(, -15).value

beide getest

 

[HSV]

Je hoeft alleen de aangereikte coderegel van mij te testen.
Die ander werkt sowieso niet.

Zoals ik eerder vermelde, ik bouw geen uitgebreide bestand na die bij jou klaar ligt.

 

[don42]

Heb jouw code getest,
geeft geen foutmelding maar als ik op OK klik dan gebeurt er ook niks
twijfelde even of je meende dat het Application.Goto er ook bij hoorde vandaar ik beide had geprobeerd

Don

 

[HSV]

Helaas ben ik niet helderziende.
Daar laat ik het dan maar bij als je geen bestand wil toevoegen.

 

[don42]

Bekijk bijlage gestopt.xlsm

bij deze het tabje waar de code staat onder de knop "gestop'
hoop dat het zo duidelijker is

Don

 

[VenA]

Set c = Sheets("leden").Columns(16).Find("gestopt")

Waar staat leden in jouw voorbeeldje. Nb In jouw vorige draadje heb ik nog een vraag open staan.

 

[don42]

Hallo VenA
ik kan je idd een voorbeeldje sturen maar ook dan krijg je ook een tabje dat linkt naar allerlei andere tabs vandaar ik even niet wist hoe te handelen
mijn vraag hier heeft wel te maken met jouw tip om die 76 tabjes te verwijderen en het werkboek veel kleiner te maken
ik kom vast met veel andere probleempjes te kampen
als het niet lukt hou ik het zo als het nu is maar wil natuurlijk wel kijken of het mogelijk is

 

[HSV]

Als ik de coderegel erin zet krijg ik geen foutmelding en wordt er netjes het getal 69 in cel A6 gezet.

 

[don42]

Hoi HSV
heb het hier nu ook in orde
super bedankt.

Sheets("1").Range("a6").Value = c.Offset(, -15).Value
  Application.Goto Sheets("1").Range("A6")

Heb ik er van gemaakt

ga de vraag sluiten:thumb: