title: Convert column positive values to negative values VBA
body: <p>I know this has been asked several times but I'm quite confused on how to put the negative values for my column L:L in a loop. I can't get it to work. I've tried everything I researched. I'd appreciate any help.</p>
  
  <pre><code> Option Explicit
  Sub Importpaymentsales()
      Dim fpath As Variant
      Dim wb As Excel.Workbook
      Dim ws As Excel.Worksheet
      Dim Text As String
      On Error GoTo terminatemsg
  
      Set wb = Excel.ActiveWorkbook
      Set ws = Excel.ActiveSheet
  
      fpath = Application.GetOpenFilename(Filefilter:="text Files(*.txt; *.txt), *.txt; *.txt", Title:="Open Prepayment Sales Report")
  
      If fpath = False Then Exit Sub
  
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
  
      Text = getTextfileData(fpath)
      If Len(Text) Then
          ProcessData Text
          AdjustDates
      Else
          MsgBox fpath &amp; " is empty", vbInformation, "Import Cancelled"
          Exit Sub
  
      End If
      ws.Range("J:L").Value = ws.Range("J:L").Value
      ws.Range("J:L").numberformat = "#,##0.00"
  
  
      ws.Range("O:Q").Value = ws.Range("O:Q").Value
      ws.Range("O:Q").numberformat = "#,##0.00"
  
      Columns.EntireColumn.AutoFit
      Sheets(1).Move Before:=wb.Sheets(1)
  
  terminatemsg:
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      If Err.Number &lt;&gt; 0 Then MsgBox Err.Number &amp; " " &amp; Err.Description
  
  End Sub
  
  Sub ProcessData(Text As String)
      Dim x As Long, y As Long, z As Long
      Dim data, vLine
  
      data = Split(Text, vbCrLf)
      x = 2
      Range("A1:R1").Value = Array("Supplier Name", "Supplier Number", "Inv Curr Code CurCode", "Payment CurCode", "Invoice Type", "Invoice Number", "Voucher Number", "Invoice Date", "GL Date", "Invoice Amount", "Withheld Amount", "Amount Remaining", "Description", "Account Number", "Invoice in USD", "Withheld in USD", "Amt in USD", "User Name")
  
      For y = 0 To UBound(data)
          If InStr(data(y), "|") Then
              vLine = Split(data(y), "|")
              If Not Trim(vLine(0)) = "Supplier" Then
  
                  For z = 0 To UBound(vLine)
                      vLine(z) = Trim(vLine(z))
  
                      If vLine(z) Like "*.*.*.*.*.*.*.*.*.*.*.*.*.*.*" Then vLine(z) = Left(vLine(z), InStr(vLine(z), ".") + 2)
  
                  Next
                  Cells(x, 1).Resize(1, UBound(vLine) + 1).Value = vLine
                  x = x + 1
                  'Range("L2:L").Value = Range("L2:L").Value * (-1)
                  Range("L2:L").Value = Abs(rng.Offset(teller - 1, -2).Value) * -1
              End If
  
          End If
      Next
  
  End Sub
  </code></pre>