Bold
How do you make Character "B" Bold
Sub BonusNumbering() Dim cell As Range Dim lRow As Long Dim lColumn As Long Application.ScreenUpdating = False For Each cell In _ Range("AW2:AW" & _ Range("AW65536").End(xlUp).Row) lRow = cell.Row lColumn = cell.Value + 1 Cells(lRow, lColumn) = "B" Next 'cell Application.ScreenUpdating = True End Sub With Thanks |
Bold
Range(lRow, lColumn).Select
Selection.Font.Bold = True This will make the text in the cell bold. " wrote: How do you make Character "B" Bold Sub BonusNumbering() Dim cell As Range Dim lRow As Long Dim lColumn As Long Application.ScreenUpdating = False For Each cell In _ Range("AW2:AW" & _ Range("AW65536").End(xlUp).Row) lRow = cell.Row lColumn = cell.Value + 1 Cells(lRow, lColumn) = "B" Next 'cell Application.ScreenUpdating = True End Sub With Thanks |
Bold
Office Helper
Thanks, works nicely |
Bold
For Each cell In _
Range("A2:A" & Cells(Rows.Count, "a").End(xlUp).Row) With Cells(cell.Row, cell + 1) .Value = "B" .Font.Bold = True End With Next cell === OR ======= For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row With Cells(i, Cells(i, "a") + 1) ..Value = "B" ..Font.Bold = True End With next i -- Don Guillett SalesAid Software wrote in message ups.com... How do you make Character "B" Bold Sub BonusNumbering() Dim cell As Range Dim lRow As Long Dim lColumn As Long Application.ScreenUpdating = False For Each cell In _ Range("AW2:AW" & _ Range("AW65536").End(xlUp).Row) lRow = cell.Row lColumn = cell.Value + 1 Cells(lRow, lColumn) = "B" Next 'cell Application.ScreenUpdating = True End Sub With Thanks |
All times are GMT +1. The time now is 01:31 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com