Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If cell equals anything then
I am trying to write a macro that pulls date from one sheet and puts
it into another sheet which I am going to e-mail. I only want the cells that have information in them. Can someone help me? This is what I am trying For cnt = 7 To lrow2 If wsmiss102.Range("b" & cnt) = xlValue Then _ wsmiss102.Rows(cnt).Copy ThisWorkbook.Sheets("Misses").Rows(x).PasteSpecial x = x + 1 End If Next I am getting nothing copied over. But this is what I have in the third row. 6021427993 BLAYLOCK 1-20 Bad X-Record Length Thu Sep 06 04:00:35 I know it has something to do with xlvalue but I don't know what to replace it with. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
If cell equals anything then
Try this:
For cnt = 7 To lrow2 If wsmiss102.Range("b" & cnt) < "" Then _ wsmiss102.Rows(cnt).Copy ThisWorkbook.Sheets("Misses").Rows(x).PasteSpecial Paste:=xlValues cnt = cnt + 1 End If "bpotter" wrote: I am trying to write a macro that pulls date from one sheet and puts it into another sheet which I am going to e-mail. I only want the cells that have information in them. Can someone help me? This is what I am trying For cnt = 7 To lrow2 If wsmiss102.Range("b" & cnt) = xlValue Then _ wsmiss102.Rows(cnt).Copy ThisWorkbook.Sheets("Misses").Rows(x).PasteSpecial x = x + 1 End If Next I am getting nothing copied over. But this is what I have in the third row. 6021427993 BLAYLOCK 1-20 Bad X-Record Length Thu Sep 06 04:00:35 I know it has something to do with xlvalue but I don't know what to replace it with. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
If cell equals anything then
No that doesn't work. It collects all of the empty rows not the rows
that have values. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
If cell equals anything then
This line
If wsmiss102.Range("b" & cnt) < "" Then _ should prevent any empty lines from being copied. Is says if the specified range is not equal to null then ... do something. So the only cells it will acknowledge are those with data in them. "bpotter" wrote: No that doesn't work. It collects all of the empty rows not the rows that have values. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
If cell equals anything then
See if this idea helps
Sub copyvalues() x = 1 For Each c In Range("a2:a22") If Len(Trim(c)) 0 Then Rows(c.Row).Copy Sheets("sheet11").Cells(x, 1) x = x + 1 End If Next c End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "bpotter" wrote in message ps.com... I am trying to write a macro that pulls date from one sheet and puts it into another sheet which I am going to e-mail. I only want the cells that have information in them. Can someone help me? This is what I am trying For cnt = 7 To lrow2 If wsmiss102.Range("b" & cnt) = xlValue Then _ wsmiss102.Rows(cnt).Copy ThisWorkbook.Sheets("Misses").Rows(x).PasteSpecial x = x + 1 End If Next I am getting nothing copied over. But this is what I have in the third row. 6021427993 BLAYLOCK 1-20 Bad X-Record Length Thu Sep 06 04:00:35 I know it has something to do with xlvalue but I don't know what to replace it with. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
If a cell equals _, at the next row that equals _, return value fr | Excel Worksheet Functions | |||
If cell is left blank, or equals zero, then cell equals a different cell | Excel Discussion (Misc queries) | |||
How to create/run "cell A equals Cell B put Cell C info in Cell D | Excel Discussion (Misc queries) | |||
if a:a (range) equals january and c:c equals gas then add g:g ($) | Excel Worksheet Functions | |||
custom filter does not work when selecting 'equals' X AND 'equals' | Excel Discussion (Misc queries) |