Macro starten wanneer cellen worden ingevuld

Goedemiddag,

Voor deze sheet heb ik twee items waar ik niet uit kom.

Item 1
Voor bijgevoegd document ben ik op zoek naar een vba code waardoor de macro voor het aanpassen van de tabbladnamen automatisch start wanneer de cellen B1 t/m B4 ingevuld zijn (nu handmatig middels knop). Ik heb al meerdere opties geprobeerd, maar ik krijg het niet voor elkaar. Na een dag googlen en diverse tests, leek het mij tijd om jullie te raadplegen:d
Het allermooiste zou zijn dat wanneer de datum in B3 en B4 wordt ingevuld dat er tabbladen worden aangemaakt met als naam de periode vanuit cel J5, L5, N5, P5, enz. Maar ik kan mij voorstellen dat het excel document daar erg traag van gaat worden. Mocht hier iets voor zijn waardoor dit niet het geval is, dan zou dat het gewenste eindresultaat zijn.

kortom:
- macro voor wijzigen tabblad namen automatisch starten nadat cellen B3 en B4 zijn ingevuld

Nice to have (mits document niet te traag wordt):
- nadat datums zijn ingevuld in B3 en B4 dat er per periode een apart tabblad wordt toegevoegd.

Item 2
Ik heb kolom A t/m I geblokkeerd in het beeld. Wanneer het document geopend wordt zou het mooi zijn als de periode (oftewel kolommen) direct in beeld komen van de huidige periode (welke altijd wordt weergegeven in cel E2). Dus als voorbeeld, in cel E2 staat periode 7-2020 en op basis van start en einde project staat deze periode in kolom V en W, dat kolom V en W bij het openen naast kolom I komen te staan door automatisch te scrollen oid

of zo

Weet je wel hoeveel....
....is in een xlsm versie @AD1957?

pfffff, dat zijn er inderdaad heel veel :shocked::shocked:

zo beter?

aanvulling: columns.count = 16384

Stukken beter.

Kan ook zo.


En als de formulefouten eruit gehaald zijn kan de iserror() eruit.

Harry,

Waarom heb je dit stukje code er tussen staan, kun je dit eens uitleggen?

betekent dat slechts 1 cel veranderd mag zijn (=target.count) op heel je werkblad en dat die of B4 of B5 moet zijn.

HSV zei:

Stukken beter.

Kan ook zo.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b4:b5")) Is Nothing And Target.Count = 1 Then
 If [counta(b3:b4)] = 2 Then
   sv = Range("J5", Cells(5, Columns.Count).End(xlToLeft))
     For j = 1 To UBound(sv, 2) Step 2
       If Not IsError(sv(1, j)) Then If Not Evaluate("ISREF('" & sv(1, j) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = sv(1, j)
     Next j
  End If
End If
End Sub

En als de formulefouten eruit gehaald zijn kan de iserror() eruit.

Klik om te vergroten...

Harry,

Superbedankt! Bist een topper! Dit is exact wat ik bedoel. Ik heb zelf nog Sheets("Materieelplanning").Select toegevoegd, zodat het eerste tabblad weer geselecteerd wordt nadat de code klaar is.
Nog wel een vraagje, wat bedoel jij met het weglaten van de iserror() als de formulefouten eruit zijn gehaald? Heb ik fouten in mijn formules staan?

En AD1957 ook bedankt voor jouw reactie en eerste opzet.

Ik heb nog meer handigheidjes die ik in dit document wil verwerken, maar die probeer ik eerst zelf uit te vogelen alvorens ik hier er naar ga vragen.

Probeer dit eens voor Item 2 in #1

AD1957 zei:

Probeer dit eens voor Item 2 in #1

Code:

Private Sub Workbook_Open()
    With Sheets("Materieelplanning")
        .Activate
        For Each cell In .Range("J5:BI5")
            If Not IsError(cell) Then
                If cell = .Range("E2") Then
                Application.Goto cell.Offset(-4), True
                End If
            End If
        Next cell
     End With
End Sub

Klik om te vergroten...

Thanks! Ik probeer het straks even uit

Kam313on zei:

Harry,

Superbedankt! Bist een topper! Dit is exact wat ik bedoel. Ik heb zelf nog Sheets("Materieelplanning").Select toegevoegd, zodat het eerste tabblad weer geselecteerd wordt nadat de code klaar is.
Nog wel een vraagje, wat bedoel jij met het weglaten van de iserror() als de formulefouten eruit zijn gehaald? Heb ik fouten in mijn formules staan?

En AD1957 ook bedankt voor jouw reactie en eerste opzet.

Ik heb nog meer handigheidjes die ik in dit document wil verwerken, maar die probeer ik eerst zelf uit te vogelen alvorens ik hier er naar ga vragen.

Klik om te vergroten...

Helaas, na wat aanpassingen in het document krijg ik een foutmelding nadat de macro klaar is. Het werkt wel, maar met die foutmelding lijkt het voor de gebruikers natuurlijk alsof het nu niet goed werkt. Enig idee wat dit kan zijn?

Zie bijlage voor nieuwste document

AD1957 zei:

Probeer dit eens voor Item 2 in #1

Code:

Private Sub Workbook_Open()
    With Sheets("Materieelplanning")
        .Activate
        For Each cell In .Range("J5:BI5")
            If Not IsError(cell) Then
                If cell = .Range("E2") Then
                Application.Goto cell.Offset(-4), True
                End If
            End If
        Next cell
     End With
End Sub

Klik om te vergroten...

Hij werkt! Ik heb er tevens een knop van gemaakt voor als iemand in het document naar een andere periode kijkt en snel terug wil naar de huidige periode.

AD1957 zei:

Code:

zo?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b3:b4")) Is Nothing And Target.Count = 1 Then

    If [counta(b3:b4)] = 2 Then
          sv = Range("J5", Cells(5, Columns.Count).End(xlToLeft))
        For j = 1 To UBound(sv, 2) Step 2
           If sv(1, j) <> "" Then
             If Not Evaluate("ISREF('" & sv(1, j) & "'!A1)") Then
               Sheets.Add(, Sheets(Sheets.Count)).Name = sv(1, j)
             End If
          End If
        Next j
    End If
End If
Application.Goto Sheets(1).Range("B4"), False

End Sub

Klik om te vergroten...

Bedankt Albert! De fout opsporing komt niet meer in beeld en de tabbladen worden automatisch toegevoegd. Opgelost!