if structure help

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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)
 
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 said:
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 said:
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
Click to expand...
Click to expand...
 
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
Click to expand...

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 said:
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 said:
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 said:
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 ""
Click to expand...
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
Click to expand...
Click to expand...
Click to expand...
 
Back
Top