Want to write in VBA, If cell is not blank, do x

[Badnames]

I want to make it so my if statement will work if the cell is not blank. Currently my if statement only works if the cell is equal to a specific value. In this case the value is ####

If Range("B" & i) = "####" Then
Worksheets("####").Activate
Sheets("####").Range("A" & (13 + ####Count)) = Sheets("Input").Range("AD" & i)
Sheets("####").Range("D" & (13 + ####Count)) = Sheets("Input").Range("P" & i)
Sheets("####").Range("E" & (13 + ####Count)) = Sheets("Input").Range("U" & i)
Sheets("####").Range("F" & (13 + ####Count)) = Sheets("Input").Range("O" & i)
Sheets("####").Range("G" & (13 + ####Count)) = Sheets("Input").Range("U" & i)
Sheets("####").Range("H" & (13 + ####Count)) = Sheets("Input").Range("F" & i)
Sheets("####").Range("I" & (13 + ####Count)) = Sheets("Input").Range("S" & i)
Application.CutCopyMode = False
####Count = ####Count +

So basically if range("B"&i) is not blank, do the copy and paste function, rather than only doing it when it is equal to a specific value.

 

[Marcelo Branco]

Take a look at

http://www.dailydoseofexcel.com/archives/2004/08/12/testing-for-empty-cells/

M.

 

[Badnames]

This looks like it is for checking if the cell is empty, but I want to do the opposite. If the cell has any value other than blank, I want the formula to work.

 

[Marcelo Branco]

This looks like it is for checking if the cell is empty, but I want to do the opposite. If the cell has any value other than blank, I want the formula to work.

Maybe

If Not IsEmpty(...) then

 

[Badnames]

If Not IsEmpty("B" & i) Then

Worksheets("Summary").Activate
Sheets("Summary").Range("A" & (12 + Summarycount)) = Sheets("Input").Range("B" & i)
Sheets("Summary").Range("C" & (12 + Summarycount)) = Sheets("Input").Range("Y" & i)
Sheets("Summary").Range("D" & (12 + Summarycount)) = Sheets("Input").Range("Z" & i)
Summarycount = Summarycount + 1

End If

I tried this code, but it is still copying where the cells are blank, as well as taking an extremely long time to process. Do you know how I could improve it?


Edit* O yeah, this is all part of a loop. i is an integer to keep count of the row in the inputs sheet.

 

[tweedle]

If you have formuals returning "" in col B then

If Range("B" & i ) <> "" Then

 

[Badnames]

Awesome tweedle, that did exactly what I needed!

 

[Marcelo Branco]

I think you need

If Not IsEmpty(Range("B"&i).Value) Then

'do your stuff

End if