Financial Control

Justin

<div>
When data is large, avoid looping through the range object instead use array like below...<br />

<pre><code id="code-20-42644204-1">Sub ChangeToNegative()
Dim lr As Long, i As Long
Dim x, y
Application.ScreenUpdating = False
lr = Cells(Rows.Count, &quot;E&quot;).End(xlUp).Row
x = Range(&quot;E2:E&quot; &amp; lr).Value
y = Range(&quot;G2:G&quot; &amp; lr).Value

For i = 1 To UBound(x, 1)
    If x(i, 1) &lt;&gt; &quot;&quot; And Left(x(i, 1), 2) = &quot;93&quot; Then y(i, 1) = y(i, 1) * -1
Next i

Range(&quot;G2&quot;).Resize(UBound(y, 1)).Value = y
Application.ScreenUpdating = True
End Sub</code></pre>
</div>


When data is large, avoid looping through the range object instead use array like below...


Sub ChangeToNegative()
Dim lr As Long, i As Long
Dim x, y
Application.ScreenUpdating = False
lr = Cells(Rows.Count, "E").End(xlUp).Row
x = Range("E2:E" & lr).Value
y = Range("G2:G" & lr).Value

For i = 1 To UBound(x, 1)
    If x(i, 1) <> "" And Left(x(i, 1), 2) = "93" Then y(i, 1) = y(i, 1) * -1
Next i

Range("G2").Resize(UBound(y, 1)).Value = y
Application.ScreenUpdating = True
End Sub

<div>
<div class="content wysiwyg-content">
Hi Guys, I am trying to do a Do Loop where I loop down Column E in a spreadsheet and if the number in the cell starts with &quot;93&quot;,<br />
it populates the cell 2 columns right of it in column G as a negative, eg: if Range &quot;E2&quot; &nbsp;= 937019784 and &quot;G2&quot; = 1000. It populates G2 as -1000.<br />
If I had a Formula it would be =IF(LEFT(E2,2) = &quot;93&quot;, G2*-1,G2).
</div>
</div>


Hi Guys, I am trying to do a Do Loop where I loop down Column E in a spreadsheet and if the number in the cell starts with "93",
it populates the cell 2 columns right of it in column G as a negative, eg: if Range "E2"  = 937019784 and "G2" = 1000. It populates G2 as -1000.
If I had a Formula it would be =IF(LEFT(E2,2) = "93", G2*-1,G2).

DoLoop which populates column G with a Negative value if  Number in Column E starts with 93.

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Microsoft Applications

Programming includes both the specifics of the language you’re using, like Visual Basic, .NET, Java and others, but also the best practices in user experience and interfaces and the management of projects, version control and development. Other programming topics are related to web and cloud development and system and hardware programming.

Programming

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.