bademployee
Board Regular
- Joined
- Aug 19, 2010
- Messages
- 184
Hi all,
I'm using this to hide any rows without a value in "deblending" B13:B40:
Leaves a list of values in A13:B40 (will only ever be a maximum number of 7 rows visible, usually only 2-3, but will have hidden rows between each visible row).
What I need is some VBA to copy & paste the visible values in A13:A40 to another sheet called "Blends" C9:C15.
Also, the visible values in B13:B40 copy & pasted to "Blends" R9:R15.
Thanks in advance.
Mark
I'm using this to hide any rows without a value in "deblending" B13:B40:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range, c As Range
Set r = Range("b13:b40")
Application.ScreenUpdating = False
For Each c In r
If Len(c.Text) = 0 Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next c
Application.ScreenUpdating = True
End Sub
Leaves a list of values in A13:B40 (will only ever be a maximum number of 7 rows visible, usually only 2-3, but will have hidden rows between each visible row).
What I need is some VBA to copy & paste the visible values in A13:A40 to another sheet called "Blends" C9:C15.
Also, the visible values in B13:B40 copy & pasted to "Blends" R9:R15.
Thanks in advance.
Mark