Convert macro that runs against entire column to run in current row

M

MiataDiablo

I'm using the following code to run through a column (F) combining
contents of two other columns and change font characteristics of the
first couple of characters. I have since created a form that allows
the user to enter information. When I click OK on my user form that
enters all of the info, I would like to call a macro that performs the
same thing but only on the row just added. Seems simple enough but I
can't seem to get my head around it. Any help is greatly appreciated.

Columns("F:F").Select
With Selection.Font
..Name = "Times New Roman"
..FontStyle = "Regular"
..Size = 11
End With
With ActiveSheet
r = ActiveSheet.Cells(.Rows.Count, 2).End(xlUp).Row
End With
For i = 2 To r
If IsEmpty(Cells(i, 4)) = True Then
Cells(i, 6).Value = Cells(i, 5).Value
With Cells(i, 6).Characters(Start:=1, Length:=3).Font
..FontStyle = "Bold"
End With
Else
Cells(i, 6).Value = Cells(i, 4).Value & ": " & Cells(i, 5).Value
With Cells(i, 6).Characters(Start:=1, Length:=2).Font
..FontStyle = "Bold"
End With
With Cells(i, 6).Characters(Start:=1, Length:=3).Font
..Size = 8
End With
End If
Next
Range("F1").Select
Selection.Font.Bold = True
End Sub
 
W

Wigi

*untested code*

Sub ddd()

Dim r As Long
Dim i As Long

With Columns("F:F").Font
.Name = "Times New Roman"
.FontStyle = "Regular"
.Size = 11
End With

r = Cells(Rows.Count, 2).End(xlUp).Row
With Cells(r, 6)
If IsEmpty(Cells(r, 4)) = True Then
.Value = Cells(r, 5).Value
.Characters(Start:=1, Length:=3).Font.FontStyle = "Bold"
Else
.Value = Cells(r, 4).Value & ": " & Cells(r, 5).Value
.Characters(Start:=1, Length:=2).Font.FontStyle = "Bold"
.Characters(Start:=1, Length:=3).Font.Size = 8
End If
End With

Range("F1").Font.Bold = True

End Sub
 
M

MiataDiablo

*untested code*

Sub ddd()

Dim r As Long
Dim i As Long

With Columns("F:F").Font
    .Name = "Times New Roman"
    .FontStyle = "Regular"
    .Size = 11
End With

r = Cells(Rows.Count, 2).End(xlUp).Row
With Cells(r, 6)
    If IsEmpty(Cells(r, 4)) = True Then
        .Value = Cells(r, 5).Value
        .Characters(Start:=1, Length:=3).Font.FontStyle = "Bold"
    Else
        .Value = Cells(r, 4).Value & ": " & Cells(r, 5).Value
        .Characters(Start:=1, Length:=2).Font.FontStyle = "Bold"
        .Characters(Start:=1, Length:=3).Font.Size = 8
    End If
End With

Range("F1").Font.Bold = True

End Sub

--
Wigihttp://www.wimgielis.be= Excel/VBA, soccer and music






- Show quoted text -

perfectamundo. I knew it would be easy. Many thanks
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top