Rijhoogte bepalen door waarde uit kolom A

[1965Peter]

Hallo,

Ik ben op zoek naar een vba code die de rijhoogte instelt naar 50 als het woord "Config.nr." in kolom A staat.
Range is A8:A500.

 

[JEC.]

Moet dat gebeuren na intikken van het woord Config.nr of wil je dat doen adv een knop?

Of zet het achter een worksheet_activate event

Private Sub Worksheet_Activate()
 Set x = Range("A8:A500").Find("Config.nr")
 Rows("8:500").RowHeight = IIf(Not x Is Nothing, 50, 15)
End Sub

 

[1965Peter]

Hallo JVeer, Het woord staat al in de kolommen, de macro moet zoeken naar Config.nr en dan de rijhoogte aanpassen naar 50.

 

[JEC.]

Dus alleen de rij waarin het woord staat?

 

[1965Peter]

Ja sorry ik zeg kolommen, maar het is kolom A in Range A8:A500

 

[JEC.]

Kan het woord in meerdere rijen staan?

 

[1965Peter]

nee

 

[JEC.]

Dan zou het zo kunnen, maar vraag me af of je nu niet rijen en kolommen door elkaar haalt

Private Sub Worksheet_Activate()
On Error Resume Next
x = Range("A8:A500").Find("Config.nr").Row
Rows(x).RowHeight = 50
End Sub

 

[1965Peter]

Krijg 'm niet werkend, ik heb even het bestand erbij gedaan.
het bestand is variabel met aantal regels.

 

[JEC.]

Het woord kan dus wel in meerdere rijen staan.
Als je de VBA editor opent en deze achter de ThisWorkbook module plaatst zal de code gaan checken na openen van het bestand

Private Sub Workbook_Open()
 For Each it In Sheets(1).Range("A8", Sheets(1).Cells(Rows.Count, 1).End(xlUp))
   If it.Value = "Config.nr" Then it.RowHeight = 50
 Next
End Sub

 

[1965Peter]

Is het ook mogelijk om deze als code tussen een bestaande vba te plakken, na deze actie zal het blad een kopie maken naar een xlsx. bestand.
Dus een losse actie met Sub & End Sub?

 

[JEC.]

Zeker, dan zet je de code gewoon boven je andere code

 

[1965Peter]

JVeer, hij werkt. TOP !. Heel erg bedankt.
Groet Peter:d