Hi dude,
Please help me on this. I can finish it.
Thanks,
Kranthi
This forum has been moved to TeachExcel.com
Ask all future questions in the New Excel Forum.
ExcelKey
when i run all three macros at once i am not getting output of third macro.... If i run "Lot" macro separately then i am getting the output.
Sub Lot()
Dim rng As Range, cel As Range
Dim ThisDay As Date, LastDay As Date
Dim curLot As Integer
Sheets("W R").Select
Set rng = Sheets("W R").Range("F2:F" & Cells(Rows.Count, 6).End(xlUp).Row)
For Each cel In rng
If cel.Offset(0, 2).Value = "" Then ThisDay = cel.Value
If ThisDay <> LastDay Then curLot = curLot + 1
If cel.Offset(0, 2) = "" Then cel.Offset(0, 2).Value = "Lot-" & curLot
LastDay = ThisDay
Next cel
End Sub
Return to Macros and VBA Questions
Users browsing this forum: No registered users and 45 guests