Re: Linking invoice to inventory great, but can't have any empty spaces between rows.
Get rid of the do until loop and go with a for loop instead
Re: Linking invoice to inventory great, but can't have any empty spaces between rows.
It would be more helpful to tell everyone what your goal is.
Re: Linking invoice to inventory great, but can't have any empty spaces between rows.
Sub updateInventory()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim answer As Integer
Dim x As Integer
Dim findItem As Range
Set ws1 = ThisWorkbook.Sheets("Invoice")
Set ws2 = ThisWorkbook.Sheets("Inventory")
answer = MsgBox("Are you sure you want to update Inventory?", vbYesNo + vbQuestion, "Empty Sheet")
If answer = vbYes Then
For x = 19 To 37
Set findItem = ws2.Range("A:A").Find(What:=ws1.Range("A" & x).Value, LookAt:=xlWhole, MatchCase:=False)
If Not findItem Is Nothing Then
ws2.Range("C" & findItem.Row).Value = ws2.Range("C" & findItem.Row).Value - ws1.Range("E" & x).Value
End If
Next x
End If
End SubRe: VBA ignore empty cells when looping through a range
Hi xntdriver, welcome to OzGrid 
Please note that I've changed your thread title to keep it search-friendly. If you could keep this in mind for any future posts it would be greatly appreciated. Cheers!
Re: VBA ignore empty cells when looping through a range
Hi xntdriver,
In looking at your workbook I see information that may be sensitive.
Things like email addresses, account numbers, phone numbers and other information should probably not be included in your workbook.
It's okay to have dummy data in your workbook as long as it fits the criteria of your actual data.
For instance if your account numbers are in a 5 digit format then the dummy data should be the same, if 12345 were an actual account number ABCDE would not be a good replacement for the actual number.
Good luck. :cheers:
Don’t have an account yet? Register yourself now and be a part of our community!