Reducing length of code

**dschmitt** · 05-09-2010, 08:30 PM

can the following code be written in one line?

Sheets("SC-Author ranking").Cells(j, LastColumnSc + 7) = Sheets("Author ranking").Cells(k, LastColumn - 4) - Sheets("SC-Author ranking").Cells(j, LastColumnSc - 2)
If Sheets("SC-Author ranking").Cells(j, LastColumnSc + 7) = 0 Then Sheets("SC-Author ranking").Cells(j, LastColumnSc + 7) = ""

**pike** · 05-09-2010, 09:20 PM

Hi dschmitt
maybe as good start to reduce would be

With Sheets("SC-Author ranking")
.Cells(j, LastColumnSc + 7) = .Cells(k, LastColumn - 4) - .Cells(j, LastColumnSc - 2)
If .Cells(j, LastColumnSc + 7) = 0 Then .Cells(j, LastColumnSc + 7) = ""
End With

**dschmitt** · 05-09-2010, 10:06 PM

so, you are saying it can not be written in one line? Is that correct?

**pike** · 05-09-2010, 10:21 PM

try

Sheets("SC-Author ranking").Cells(j, LastColumnSc + 7) = Sheets("Author ranking").Cells(k, LastColumn - 4) - Sheets("SC-Author ranking").Cells(j, LastColumnSc - 2):If Sheets("SC-Author ranking").Cells(j, LastColumnSc + 7) = 0 Then Sheets("SC-Author ranking").Cells(j, LastColumnSc + 7) = ""