row height set up

[maksinx]

hello everyone,
i have a part of code below which gets data from sheet1 and pastes on sheet2 by a command button,
the whole code also sets the column width sheet2 and i would like to do the same in row height wise. such as 15.75 row height.

please let me know what code and where i should add.

thanks for your help.

kind regards


quote
For Each CeLF In Range("A2:A" & lastrow)
If CeLF.Offset(0, 16) = "" And CeLF.Offset(0, 16).Interior.ColorIndex = 34 Then ' Burada 34 yerine sar? bir renk istiyorsan: 6 - 27 - 36 veya 44 de?erlerinden birini se?ip kodu d?zenlemen gerekli olacak. Renk de?erlerinin renk kar??l?klar? i?in ?stte verdi?im kodu ?al??t?rabilirsin.
CeLF.Resize(, 32).Copy S2.Cells(L, 1) 'CeLF.Resize(, 25).Copy S2.Cells(L, 1)
InvoiceCounter = InvoiceCounter + 1
L = L + 1
End If
Next CeLF
S2.Columns("A:AE").ColumnWidth = 15 ' S2.Columns("A:Y").ColumnWidth = 15
S2.[A1].Select
'
Select Case ETACounter
Case Is < 2
Prcss = "Process"
unquote

[Bob Phillips]

Something like

[vba]

For Each CeLF In Range("A2:A" & lastrow)
If CeLF.Offset(0, 16) = "" And CeLF.Offset(0, 16).Interior.ColorIndex = 34 Then ' Burada 34 yerine sar? bir renk istiyorsan: 6 - 27 - 36 veya 44 de?erlerinden birini se?ip kodu d?zenlemen gerekli olacak. Renk de?erlerinin renk kar??l?klar? i?in ?stte verdi?im kodu ?al??t?rabilirsin.
CeLF.Resize(, 32).Copy S2.Cells(L, 1) 'CeLF.Resize(, 25).Copy S2.Cells(L, 1)
InvoiceCounter = InvoiceCounter + 1
L = L + 1
End If
Next CeLF
S2.Columns("A:AE").ColumnWidth = 15 'S2.Columns("A:Y").ColumnWidth = 15
S2.Rows("1:15").RowHeight = 15.75
S2.[A1].Select
'
Select Case ETACounter
Case Is < 2
Prcss = "Process"
[/vba]

[maksinx]

dear xld,

thanks for the prompt and perfect help.

you are the best.

have a nice evening,

Maksin