help with VB

[rcirone]

I am looking for something if I have formula 7cells from A1 to G1 pulling info over. If one of the cell do not pull info over an it delete the row or line. like if info does not show up in cells D1,E1 and F1


Help please

 

[rcirone]

I got this off of mr excel and this is what I am trying to do

Sub Whateveryouwanttocalltheprocedure()
Dim c As Range
For Each c In Range("U2:U50")
Range ("v2:v50")
Range ("w2:w50")
If c.Value = "" Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next c
End Sub

 

[Logit]

.

Your posts are confusing. In #1 you seem to be looking for a means to hide rows if something is blank.

In #2 you are wanting to copy information from one cell to another .. but if the source cell (or is it the destination cell ?) is blank after attempting to copy .. delete the row the cell is located in ?


You will need to describe your needs in a clearer manner.

 

[rcirone]

Sorry I need A VBA that will hide rows if column U, V and W has a blank cell in them.

 

[Logit]

.
Here's a sample macro you can start with. Of course the range will need editing.

Option Explicit


Sub DoIfNotEmpty()
    Dim ra As Range, re As Range


    With ThisWorkbook.Worksheets("Sheet1")
    Set ra = .Range("B2:B10")
        For Each re In ra
            If IsEmpty(re.Value) Or re.Value = vbNullString Then
                Columns("B").EntireColumn.Hidden = True
            End If
        Next re
    End With
End Sub

 

[rcirone]

I need help can not get it to work right

 Sub DoIfNotEmpty()
    Dim ra As Range, re As Range

    With ThisWorkbook.Worksheets("Sheet1")
    Set ra = .Range("U2:W10")
        For Each re In ra
            If IsEmpty(re.Value) Or re.Value = vbNullString Then
                Rows("U", "V", "W").EntireColumn.Hidden = True
            End If
        Next re
    End With
End Sub

 

[Logit]

.

Option Explicit


Sub DoIfNotEmpty()
    Dim ra As Range, re As Range


    With ThisWorkbook.Worksheets("Sheet1")
    Set ra = .Range("U2:W10")
        For Each re In ra
            If IsEmpty(re.Value) Or re.Value = vbNullString Then
                Columns("U:W").EntireColumn.Hidden = True
            End If
        Next re
    End With
End Sub

 

[rcirone]

Still can not get it right. If I have blink space in U2 and V4 and V6 and W7. I want it to hidden Rows 2,4,6 and 7.

code:[Option Explicit

Sub DoIfNotEmpty()
Dim ra As Range, re As Range

With ThisWorkbook.Worksheets("Sheet1")
Set ra = .Range("U2:W10")
For Each re In ra
If IsEmpty(re.Value) Or re.Value = vbNullString Then
Rows("U:W").EntireRow.Hidden = True
End If
Next re
End With
End Sub ]/ code