Posting code with IF

The following code is only part of larger posting process. I require
assistance for this posting to be done only if DG77 is NOT �� i.e. there must
be value, zero is not a value. Additional info, the formula in DG77 is
=IF($DF$8=1,$DF$3,��) DF3 has a positive number all the time.

Set CopyRng = _
Sheets("Sheet2").Range("DG77", "DH77")
Set DestRng = _
Sheets("Sheet1").Cells(65536, "F").End(xlUp).Offset(1, 0)
i = 0
For Each cell In CopyRng
DestRng.Offset(0, i).Value = cell
i = i + 2
Next

Similar postings (without conditions) take place before and after
the process above.

Thank you.

--
Robert

what about:

If Sheets("Sheet2").Range("DF8").Value = 1 Then
Set CopyRng = _
Sheets("Sheet2").Range("DG77", "DH77")
Set DestRng = _
Sheets("Sheet1").Cells(65536, "F").End(xlUp).Offset(1, 0)
i = 0
For Each cell In CopyRng
DestRng.Offset(0, i).Value = cell
i = i + 2
Next
End If

Hope this helps
Rowan

Robert wrote:
> The following code is only part of larger posting process. I require
> assistance for this posting to be done only if DG77 is NOT “” i.e. there must
> be value, zero is not a value. Additional info, the formula in DG77 is
> =IF($DF$8=1,$DF$3,””) DF3 has a positive number all the time.
>
> Set CopyRng = _
> Sheets("Sheet2").Range("DG77", "DH77")
> Set DestRng = _
> Sheets("Sheet1").Cells(65536, "F").End(xlUp).Offset(1, 0)
> i = 0
> For Each cell In CopyRng
> DestRng.Offset(0, i).Value = cell
> i = i + 2
> Next
>
> Similar postings (without conditions) take place before and after
> the process above.
>
> Thank you.
>

will this work for you?

If Range("DG77") = "" Or Range("dg77") = 0 Then
' do nothing
Else
'do something your code here
End If


--


Gary


"Robert" <[email protected]> wrote in message
news:[email protected]...
> The following code is only part of larger posting process. I require
> assistance for this posting to be done only if DG77 is NOT "" i.e. there
> must
> be value, zero is not a value. Additional info, the formula in DG77 is
> =IF($DF$8=1,$DF$3,"") DF3 has a positive number all the time.
>
> Set CopyRng = _
> Sheets("Sheet2").Range("DG77", "DH77")
> Set DestRng = _
> Sheets("Sheet1").Cells(65536, "F").End(xlUp).Offset(1, 0)
> i = 0
> For Each cell In CopyRng
> DestRng.Offset(0, i).Value = cell
> i = i + 2
> Next
>
> Similar postings (without conditions) take place before and after
> the process above.
>
> Thank you.
>
> --
> Robert

Thank you Rowan.
--
Robert

You're welcome!

Robert wrote:
> Thank you Rowan.

Thank you Gary, I tried yours after Rowans.
Special thanks to Rowan and Gary for being so fast.
--
Robert

you're welcome, as long as it worked<g>
hopefully it worked out ok.

--


Gary


"Robert" <[email protected]> wrote in message
news:[email protected]...
> Thank you Gary, I tried yours after Rowans.
> Special thanks to Rowan and Gary for being so fast.
> --
> Robert
>
>
>

Gary, of course it works, Rowans as well. I do not know any VBA and had to
shift the "End If" by trial and error.
--
Robert