If then row height set macro

[doriannjeshi]

Hello,
I need for the cells that have content in column A if not duplicate value of the cell in column A to have row height of 30.

a111
a111
a111
a114
a115
a116
a117
a118
a119
a119
a118
a118
a118
a123
a124
a125

 

[doriannjeshi]

Yes but the variable i, or any variable, can be used for multiple purposes in the same procedure.

I'd just delete the redundant line.

which line should I delete ?

 

[HighAndWilder]

which line should I delete ?

If you have two lines like this then either of them.

Dim i As Integer

 

[doriannjeshi]

Can we make the macro so doesn't return an error when it doesnt find a unique value in column A ?

 

[mumps]

Does this work for you?

Sub SetRowheight()
    Dim rng As Range
    Set rng = Range("A:A").SpecialCells(xlCellTypeBlanks)
    rng.EntireRow.RowHeight = 30
End Sub

 

[DanteAmor]

I need for the cells that have content in column A if not duplicate value of the cell in column A to have row height of 30.

Did you try the macro in post #10?

In your example, which rows should be set at height 30?

Libro1
	A
1	a111
2	a111
3	a111
4
5	a114
6
7	a115
8
9	a116
10
11	a117
12
13	a118
14
15	a119
16	a119
17
18	a118
19	a118
20	a118
21
22	a123
23
24	a124
Hoja1

Could you specify the numbers of rows to which you want to increase the row size?

 

[doriannjeshi]

Hi Dante,
The solution provided by HighandWilder is the one I asked
Your solution increases the height of the first cell unique or not, which also comes in handy for other scenarios,
Thank you

 

[DanteAmor]

Can we make the macro so doesn't return an error when it doesnt find a unique value in column A ?

So I don't know what the problem is?

Could you specify the numbers of rows to which you want to increase the row size?

 

[doriannjeshi]

So I don't know what the problem is?

Well the problem was if possible to not return error in HighandWilder macro , if not no problem.

 

[DanteAmor]

Well the problem was if possible to not return error in HighandWilder macro , if not no problem.

But if it returns an error then your request is not resolved. I would like to help you, but I need you to explain in your example which rows you need to apply the row increase to.

 

[doriannjeshi]

@DanteAmor It needs to apply row increase to each unique value in A column

I need a workaround in applying this macro 3 times in a bigger macro
with dim as.. as they are repetead .