maksinx
03-06-2007, 02:25 PM
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
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