Rijhoogte van cellen met formules automatisch aanpassen

[zanfa11]

Beste,

Ik heb van alles geprobeerd om de rijhoogte van de cellen met formules automatisch aan te passen Bv: met terugloop zodat de tekst passend wordt gemaakt, maar dit lukt me niet. Is er iemand die kan helpen. zie bijlage

Bekijk bijlage zoeken(1).xlsx

Met vriendelijke groet

 

[Cobbe]

Probeer eens of deze voldoet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application
 .EnableEvents = False
  For Each cl In Range("A6:I10")
  If Len(cl) > 10 Then
   Rows(cl.Row).AutoFit
  End If
 .EnableEvents = True
End With
End Sub

 

[wieter]

Cobbe, misschien heb ik het mis,
maar moet je For....Next - lus niet eindigen met NEXT?

 

[zanfa11]

Beste

Bedankt vor uw snelle reactie. Ik krijg de foutmelding" end with zonder with"
Mvg

 

[Cobbe]

Ja natuurlijk, ik word oud.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application
 .EnableEvents = False
  For Each cl In Range("A6:I10")
   If Len(cl) > 10 Then
    Rows(cl.Row).AutoFit
   End If
  Next
 .EnableEvents = True
End With
End Sub

 

[wieter]

Tja Cobbe, oud worden hé.
Ik kijk ook elke morgen in de krant of ik niet bij de overlijdensberichten sta.

 

[zanfa11]

Beste Excel experts

Bedankt voor jullie hulp. Het werkt perfect.:thumb::thumb:

Met vriendelijke groet

 

[zanfa11]

Beste Cobbe

Sorry als ik u stoor, ik heb een klein probleem: de rijhoogte wordt automatisch aangepast aan de inhoud van de cellen,maar als de cellen leeg zijn dan wordt de rijhoogte niet aangepast. Heeft misschien een oplossing? zie bijlage
Bekijk bijlage zoeken(4).xlsm



Met vriendelijke groet

 

[Cobbe]

Kijk eens of dit voldoet; de rij past zich aan als je een andere cel selecteert:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application
 .EnableEvents = False
  For Each cl In Range("A6:A" & Range("A" & Rows.Count).End(xlUp).Row)
   Rows(cl.Row).AutoFit
  Next
 .EnableEvents = True
End With
End Sub

 

[zanfa11]

Beste

Uw oplossing werkt perfect maar ik heb de layout aangepast en de code werkt niet zoals hoort. Zou het mogelijk zijn om de code aan te passen.

Zie bijlage

Bekijk bijlage zoeken(5) (1).xlsm

Met vriendelijke groet

 

[Cobbe]

Heb de code aangepast aan de nieuwe situatie, deze loopt nu tot rij 31
omdat ik geen ander aanknopingspunt heb om de gebruikte rijen te tellen.

Je kan die 31 in de code aanpassen voor zover je meer rijen gebruikt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application
 .EnableEvents = False
  For Each cl In Range("A6:[COLOR="#FF0000"][B]A31") ' & Range("A" & Rows.Count).End(xlUp).Row)[/B][/COLOR]
   Rows(cl.Row).AutoFit
  Next
 .EnableEvents = True
End With
End Sub

 

[zanfa11]

Beste

Bedankt voor uw zeer snelle reactie. Het werkt perfect. Ik heb paar knopjes bijgezet maar deze trillen als ik een andere cel selecteer, is dit normaal?

Mvg

 

[zanfa11]

Bekijk bijlage zoeken(5) (1).xlsm

 

[zapatr]

Je kunt autofit beter op meerdere rijen tegelijk toepassen, dat werkt een stuk sneller. Als je alle rijen neemt blijven de rijen met de standaardgrootte gehandhaafd, andere worden allen aangepast indien nodig. Je kunt hiermee volstaan:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.screenupdating = False
Cells.Rows.AutoFit
Application.screenupdating = True
End Sub

 

[Cobbe]

Nu zou dat niet meer moeten gebeuren.

 

[zanfa11]

Beste Excel experts

Jullie zijn SUPER; Het probleem is volledig opgelost. De 2 oplossingen werken perfect. :thumb::thumb:

Nogmaals hartelijk bedankt

Met vriendelijke groet

 

[wieter]

Alleen maar om het wat mooier te laten ogen

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
 .ScreenUpdating = False
 .EnableEvents = False
  For Each cl In Range("A6:A31")
   Rows(cl.Row).AutoFit
   VerticalAlignment = xlCenter
  Next
 .EnableEvents = True
 .ScreenUpdating = True
End With
End Sub

De wijziging gebeurt bij Change-event en de rijen worden gecentreerd

 

[zanfa11]

Hey Wieter

Het werkt fantastich. U bent SUPER SUPER :thumb::thumb: Hartelijk bedankt

Met vriendelijke groet