add border when copy information

[Halos]

Hi,

Please help how to add border when copying information to the sheet. ( Selection.Borders(xlDiagonalDown).LineStyle = xlNone)

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Set ws1 = Worksheets("Sheet2")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.textbox_data.Value

 

[Michael M]

Maybe this

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Set ws1 = Worksheets("Sheet2")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.textbox_data.Value

With ws.Cells(iRow, 1).Borders
        .LineStyle = xlContinuous
        .Weight = xlMedium
End With

 

[Halos]

Maybe this

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Set ws1 = Worksheets("Sheet2")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.textbox_data.Value

With ws.Cells(iRow, 1).Borders
        .LineStyle = xlContinuous
        .Weight = xlMedium
End With

ok, thanks but this affects only range but I need full row to be affected?

Private Sub Cmdbutton_add_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Set ws1 = Worksheets("Sheet2")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

With ws.Cells(iRow, 1).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
        
         
   
            
        
        
End With

 

[Dan5977]

Why not just use conditional formatting within the sheet to add a border where a cell isn't blank?

 

[Halos]

Why not just use conditional formatting within the sheet to add a border where a cell isn't blank?

Good idea thanks.

 

[Michael M]

Ok....you didn't specify the entire row !!!
Try this

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Set ws1 = Worksheets("Sheet2")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.textbox_data.Value

With ws.Rows(iRow).Borders
        .LineStyle = xlContinuous
        .Weight = xlMedium
End With