terug springen van geschreven code

[caffie]

Ik heb hier een vraag

Als je VBA code schrijf in excel spring je tekens in met de TAB

Maar stel je pas je code aan en je wilt een stuk van je code weer terug laten springen
Welke toets(en) gebruik je daar voor.
Vast bedankt

even een voorbeeldje
Het gaat me dus niet op de code

If Weekday(startdatum + dagteller - 1, vbMonday) > 5 Then
                        Columns(3 + dagteller - 1).ColumnWidth = 0.25
                        Range(Cells(1, 3 + dagteller - 1), Cells(30, 3 + dagteller - 1)).Interior.ColorIndex = 4
                        'Columns(3 + dagteller - 1).EntireColumn.Hidden = True
                        Else
                        Range(Cells(4, 3 + dagteller - 1), Cells(30, 3 + dagteller - 1)).Interior.ColorIndex = 27
                        End If

vast bedankt.



Bedankt edmoor edmoor

 

[edmoor]

Selecteer het terug te springen gedeelte, incl. de loze ruimte en druk dan op SHIFT+TAB.
Zet ook altijd een End If recht onder de If waar hij bij hoort, evenals de Else.

Dus:

If Weekday(startdatum + dagteller - 1, vbMonday) > 5 Then
    Columns(3 + dagteller - 1).ColumnWidth = 0.25
    Range(Cells(1, 3 + dagteller - 1), Cells(30, 3 + dagteller - 1)).Interior.ColorIndex = 4
    [COLOR="#008000"]'Columns(3 + dagteller - 1).EntireColumn.Hidden = True[/COLOR]
Else
    Range(Cells(4, 3 + dagteller - 1), Cells(30, 3 + dagteller - 1)).Interior.ColorIndex = 27
End If

 

[alphamax]

Je kan add-ins downloaden die dit voor je doen.
Google "vba indenter add in download"
En vind https://www.automateexcel.com/vba/code-formatter/ en http://www.oaltd.co.uk/indenter/default.htm
Ikzelf gebruik de standaard instellingen van Smart Indenter v3.5
Ook om de code (van dit forum en uit de bestanden van dit forum) te fatsoeneren zodat ik deze beter kan begrijpen en aanpassen.

Jouw code uit bericht#1 gefatsoeneerd.

    If Weekday(startdatum + dagteller - 1, vbMonday) > 5 Then
        Columns(3 + dagteller - 1).ColumnWidth = 0.25
        Range(Cells(1, 3 + dagteller - 1), Cells(30, 3 + dagteller - 1)).Interior.ColorIndex = 4
        'Columns(3 + dagteller - 1).EntireColumn.Hidden = True
    Else
        Range(Cells(4, 3 + dagteller - 1), Cells(30, 3 + dagteller - 1)).Interior.ColorIndex = 27
    End If

 

[snb]

Het resultaat van mijn 'inspringer'

y = weekday(startdatum + dagteller - 1,2)>5

with Cells(1, 2 + dagteller)
  .resize(30).Interior.ColorIndex = 27 + 23 * y
  .entirecolumn.columnwidth = 1 + 0.75 * y
End With