Snasui Excel Forum

Code: Select all

Sub GenSegment()
    Dim rt As Range, rs As Range
    Dim r As Range
    With Worksheets("Input")
        Set rs = .Range("N5", .Range("N" & Rows.Count).End(xlUp))
    End With
    For Each r In rs
        If r <> 0 Then
            Set rt = Worksheets("Result").Range("B65536").End(xlUp).Offset(1, 0)
            r.Offset(0, -13).Resize(1, 13).Copy rt
        End If
    Next r
    Application.CutCopyMode = False
    MsgBox "Finish."
End Sub

Code: Select all

'Other code
If r <> 0 Then
   Set rt = Worksheets("Result").Range("B65536").End(xlUp).Offset(1, 0)
   r.Offset(0, -13).Resize(1, 13).Copy rt
   rt.offset(0,-1) = "กรุงเทพ" '<== Add this line.
End If
'Other code

Code: Select all

'Other code
    For Each r In rs
        If r <> 0 Then
            Set rt = Worksheets("Result").Range("C65536").End(xlUp).Offset(1, 0)
            r.Offset(0, -13).Resize(1, 13).Copy rt
            rt.Offset(0, -2) = "กรุงเทพ"
            rt.Offset(0, -1).NumberFormat = "@"
            rt.Offset(0, -1) = "002" & rt
        End If
    Next r
'Other code