Lowell In the south
Board Regular
- Joined
- Sep 26, 2002
- Messages
- 55
THis is the macro and it is slow as christmas.
If CheckBox1.Value = True Then
Dim Rg As Range
'// Filtered rg with header = C1:C17
'// Just select one row down
Set Rg = Range("A10:Z19")
'// Assumes Range is Filtered so now get the result
Set Rg = Rg.SpecialCells(xlCellTypeVisible)
'Range("A10:Z19").Select
Rg.SpecialCells(xlCellTypeBlanks)(1, 1).Select
Else
Mymsg = "Not enough room on top of quotation. Notify software designer. LRBII"
End If
If CheckBox1.Value = True Then
Dim Rg As Range
'// Filtered rg with header = C1:C17
'// Just select one row down
Set Rg = Range("A10:Z19")
'// Assumes Range is Filtered so now get the result
Set Rg = Rg.SpecialCells(xlCellTypeVisible)
'Range("A10:Z19").Select
Rg.SpecialCells(xlCellTypeBlanks)(1, 1).Select
Else
Mymsg = "Not enough room on top of quotation. Notify software designer. LRBII"
End If