Verwijs naar juiste Cel nadat aantal rijen gewijzigd zijn

[AJJvan]

Hallo, ik proberen uit te leggen wat de bedoeling is.
Huidige macro is:

Vanuit werkblad 1 ga ik d.m.v. een button naar werkblad 'Alle plaatsen' met button1 cel H1 en met button2 cel H18.

Sub HautsDeFranche()
'' HautsDeFranche Macro
'
Sheets("Alle plaatsen").Select
Range("H1").Select
End Sub

Sub PaysDeLaLoire()
' PaysDeLaLoire Macro
'
Sheets("Alle plaatsen").Select
Range("H18").Select
End Sub

Dit werkt goed.

Uitleg: in kolom H1 tot H17 staat Hauts De Franche totaal dus 17 rijen.
in kolom H18 tot H78 staat Pays De La Loire totaal dus 60. rijen.
Als ik nu een rij toevoeg in H1 tot H17 dan wordt dit dus H1 tot H18 dus 18 rijen.

Vraag: nu moet dus H18 automatisch aangepast worden in H19 zodat button2 naar de juiste cel gaat n.l. de eerste Pays De La Loire.

PS.De aantal rijen tel ik d.m.v. AANTAL.ALS.

Ik hoop dat e.e.a. duidelijk is!
Mvg, André

 

[HSV]

Probeer het maar eens.

Sub PaysDeLaLoire()
' PaysDeLaLoire Macro
'
application.goto Sheets("Alle plaatsen").cells(rows.count,8),end(xlup).offset(1)
End Sub

 

[HSV]

Die komma voor "end(xlup}" vervangen door een punt (typfoutje zie ik).

 

[AJJvan]

Hallo HSV, bedankt voor je reactie.
Dit toegepast maar cursor springt nu naar einde kolom H (cel H500).
Hij moet eigenlijk cel H18 laten zien.
De plaats waar cursor terecht moet komen wordt bepaald d.m.v. AANTAL.ALS die het aantal naam Hauts De Franche telt.
In git geval dus 17 keer dus cursor moet veld H18 tonen.
Als ik nog een rij met naam Hauts De Franche toevoeg dus totaal 18 naam dan moet cursor op cel H19 blijven staan.
In cel H19 beginnen nl de namen Pays De La Loire.

?Cursor mag ook eindigen na of op laatste naam Hauts De France. Dan plus 1 optellen zodat hij in cel Pays De Loire komt!!!
Heb iets geprobeerd met If Then soort Loop maar kom er niet uit.

Helaas te weinig kennis.
Mvg André

 

[HSV]

Plaats eens het bestand, er staan vast formules tot rij 500.

 

[AJJvan]

Bijgaand uitgeklede versie voor de duidelijkheid.

 

[HSV]

Zoiets dus.

Sub PaysDeLaLoire()
Dim c As Range, firstaddress As String, DoAddress As String
With Sheets("Alle plaatsen").Columns(8)
Set c = .Find("Regio Hauts De Franche", , , 1)
    If Not c Is Nothing Then
        firstaddress = c.Address
      Do
        Set c = .FindNext(c)
        If c.Row > Range(firstaddress).Row Then DoAddress = c.Address
      Loop While Not c Is Nothing And c.Address <> firstaddress
     Application.Goto Range(DoAddress).Offset(1)
    End If
End With
End Sub

 

[AJJvan]

Geweldig HSV gaat beter worden zo.
Alleen komt de cursor op werkblad Start pagina terecht in H19 i.p.v. op werkblad Alle plaatsen H19.
Ik probeer ook om macro te kopieren voor button Provence Alpes Cote D'Azur.

 

[HSV]

Application.Goto Range(DoAddress).Offset(1)

Vervangen door.

Application.Goto .Parent.Range(DoAddress).Offset(1)

 

[AJJvan]

Hoi HSV, gaat nu naar juiste werkblad Alle plaatsen.
Echter er gebeurt het volgende.
Button Hauts De Franch gaat naar cel H19 i.p.v. H3
Button Pays De La Loire gaat naar cel H79 i.p.v. H19
Button Provence Alpes Cote Dzur gaat naar cel H107 i.p.v. H79

 

[HSV]

Twee voor je gedaan.

Sub Franche()
Application.Goto Sheets("alle plaatsen").Columns(8).Find("Regio Hauts De Franche", , , 1)
End Sub


Sub Loire()
Application.Goto Sheets("alle plaatsen").Columns(8).Find("Regio Pays De La Loire", , , 1)
End Sub

 

[AJJvan]

Hallo HSV, bedankt heb deze macro toegevoegd en vorige verwijdert het lijkt te werken zo.
Ga alles even goed aanpassen en laat je weten hoe of wat.
Top en vast bedankt.
Mvg, André

 

[AJJvan]

Hallo HSV, heb in alle 12 regio's de macro geplaatst en alles werkt 100%.
Als ik nu in een regio een rij toevoeg blijven de buttons naar het juiste veld gaan n.l. de eerste naam van de bepaalde regio.
Nogmaals mijn dank.
Mvg, André