I have a sheet with 5,000 cells (a2:a5000) with numbers, and 5,000
cells(b2:b5000) with numbers, what I want to do is if a2 = b2 print "" and if
they are different (else) print the Date, as I cant print 5000 times the
folowing formula in VB:
If Worksheets("Sheet3").[A11] = Worksheets("Sheet3").[b11] Then
Worksheets("Sheet3").[c11] = "" Else Worksheets("Sheet3").[c11] = Date


I need an other way to do what I want, Do you have any idea????

regards

Do you mean

WithWorksheets("Sheet3")
For i = 2 to 5000
If .Cells(i,"A").Value = .Cells(i,"B").Value Then
.Cells(i,"C").Value = ""
Else
.Cells(i,"C"). = Format(Date,"dd mmm yyyy")
End If
Next i
End WIth

--

HTH

RP
(remove nothere from the email address if mailing direct)


"filo666" wrote in message
...
I have a sheet with 5,000 cells (a2:a5000) with numbers, and 5,000
cells(b2:b5000) with numbers, what I want to do is if a2 = b2 print "" and
if
they are different (else) print the Date, as I cant print 5000 times the
folowing formula in VB:
If Worksheets("Sheet3").[A11] = Worksheets("Sheet3").[b11] Then
Worksheets("Sheet3").[c11] = "" Else Worksheets("Sheet3").[c11] = Date


I need an other way to do what I want, Do you have any idea????

regards

That's exactly what I meant, your a genius, could you tell me where I can
learn more about VBA because im good in excel but I have a huge limit because
I dont know how to use VBA.¡¡¡

"Bob Phillips" wrote:

Do you mean

WithWorksheets("Sheet3")
For i = 2 to 5000
If .Cells(i,"A").Value = .Cells(i,"B").Value Then
.Cells(i,"C").Value = ""
Else
.Cells(i,"C"). = Format(Date,"dd mmm yyyy")
End If
Next i
End WIth

--

HTH

RP
(remove nothere from the email address if mailing direct)


"filo666" wrote in message
...
I have a sheet with 5,000 cells (a2:a5000) with numbers, and 5,000
cells(b2:b5000) with numbers, what I want to do is if a2 = b2 print "" and
if
they are different (else) print the Date, as I cant print 5000 times the
folowing formula in VB:
If Worksheets("Sheet3").[A11] = Worksheets("Sheet3").[b11] Then
Worksheets("Sheet3").[c11] = "" Else Worksheets("Sheet3").[c11] = Date


I need an other way to do what I want, Do you have any idea????

regards

On Tue, 1 Mar 2005 11:59:08 -0800, "filo666"
wrote:

I have a sheet with 5,000 cells (a2:a5000) with numbers, and 5,000
cells(b2:b5000) with numbers, what I want to do is if a2 = b2 print "" and if
they are different (else) print the Date, as I cant print 5000 times the
folowing formula in VB:
If Worksheets("Sheet3").[A11] = Worksheets("Sheet3").[b11] Then
Worksheets("Sheet3").[c11] = "" Else Worksheets("Sheet3").[c11] = Date


I need an other way to do what I want, Do you have any idea????

regards

Perhaps:

===================
Sub foo()
Dim i As Integer

For i = 2 To 5000
If Worksheets("Sheet3").Cells(i, 1) = Worksheets("Sheet3").Cells(i, 2) Then
Worksheets("Sheet3").Cells(i, 3) = ""
Else
Worksheets("Sheet3").Cells(i, 3) = Date
End If
Next i
End Sub
===================


--ron

Get John Walkenbach's VBA For Dummies book (it is just a generic name, it is
really traeting you as a dummy :-)), and work through it. And ask specific
questions here just as youy did and also study this group and see what
others are asking and others respond. Practice, practice, practice.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"filo666" wrote in message
...
That's exactly what I meant, your a genius, could you tell me where I can
learn more about VBA because im good in excel but I have a huge limit
because
I dont know how to use VBA.¡¡¡

"Bob Phillips" wrote:

Do you mean

WithWorksheets("Sheet3")
For i = 2 to 5000
If .Cells(i,"A").Value = .Cells(i,"B").Value Then
.Cells(i,"C").Value = ""
Else
.Cells(i,"C"). = Format(Date,"dd mmm yyyy")
End If
Next i
End WIth

--

HTH

RP
(remove nothere from the email address if mailing direct)


"filo666" wrote in message
...
I have a sheet with 5,000 cells (a2:a5000) with numbers, and 5,000
cells(b2:b5000) with numbers, what I want to do is if a2 = b2 print ""
and
if
they are different (else) print the Date, as I cant print 5000 times
the
folowing formula in VB:
If Worksheets("Sheet3").[A11] = Worksheets("Sheet3").[b11] Then
Worksheets("Sheet3").[c11] = "" Else Worksheets("Sheet3").[c11] = Date


I need an other way to do what I want, Do you have any idea????

regards