ws1.cellsi

So I am using the below code and it works perfectly thanks to some help on here but I want to add a check so that if the row has data but the value of ws1 column G is empty then I want to get the value of ws1 G by using ws1 E as the reference and getting the value for G from ws2 column A. The...

Good afternoon, I have researched this for days, but cannot get my code to work, and I am wondering what specifically is wrong. Here is the code: Sub DailyErrors1() Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("owssvr") Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Daily...

My excel sheet is large with 250K rows and 32 columns, and the below code takes half an hour to complete. Is it possible to optimise the below code and to run macro faster? Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents =...

G'day, I have data in a master sheet (BvTrax) which I am trying to compare to another sheet (DUPLICATED BRANDS) where I have made some suggested corrections. I have created a string of multiple cell values in the master sheet (BvTrax) to compare to the corrections sheet (DUPLICATED BRANDS). If...

If anyone can audit and tell me whats wrong. When I step through the code everything works but as a whole it crashes. <tbody> Sub ImportTextFile() Application.EnableEvents = False Application.DisplayAlerts = False 'IMPORTS TICKETS Dim vFileName vFileName = Application.GetOpenFilename("Text...

I have an Array (arr3) as follows: ReDim arr3(0 To c) For i = LBound(arr3) To UBound(arr3) arr3(i) = ws1.Cells(i + 4, 19) - ws1.Cells(i + 4, 13) Next i I want to create another Array (also (0 To c) where each value (i) is conditional on value (i) in Array 3. Assuming arr3 was in cells...

Sub Concate() Dim i As Long Dim c As String Dim WS1 As Worksheet Dim WS2 As Worksheet Set WS1 = Worksheets("BEFORE AND AFTER") Set WS2 = Worksheets("COMPARE") For i = 4 To 10004 WS2.Cells(i, 123) = WS1.Cells(i, 188) & " " & WS1.Cells(i, 189) c =...

Hi all, I have an issue; when I run the code (through a UserForm) below it runs fine and ends, everything works perfectly for a few seconds and then the workbook starts to get slower and slower. If the book AutoSaves it crashes, and the display doesn't update without moving away (i.e...