infinity
03-17-2006, 06:56 PM
Hello all you wonderful helpful people at VBAX,:hi:
I have a workbook that I could perform certain actions based on the value of one cell.
If Range("C11") > Range("K1") Then
Range("B11").Select
Selection.Copy
Range("B10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
Range("C10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Range("D10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E11").Select
Application.CutCopyMode = False
Selection.Copy
Range("E10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.unprotect
Range("B11:G11").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B11:F11").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("B10:F10").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("B11").Select
ElseIf Range("C11") <= Range("K1") Then
Range("B10").Select
End If
At that point If Range("C12") > Range("K1) Then I would like to be able to repeat this same thing for the next row down and the next row, until the value in column C, row " ? " is less than or equal to range K1. Once I meet that criteria, then I would like to select the cell in column B of the row that is now empty. I hope this makes sense. You have all been so much help in the past and I hope you can help this time. Thank you so much in advance!!!
Scott
I have a workbook that I could perform certain actions based on the value of one cell.
If Range("C11") > Range("K1") Then
Range("B11").Select
Selection.Copy
Range("B10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
Range("C10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Range("D10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E11").Select
Application.CutCopyMode = False
Selection.Copy
Range("E10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.unprotect
Range("B11:G11").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B11:F11").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("B10:F10").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("B11").Select
ElseIf Range("C11") <= Range("K1") Then
Range("B10").Select
End If
At that point If Range("C12") > Range("K1) Then I would like to be able to repeat this same thing for the next row down and the next row, until the value in column C, row " ? " is less than or equal to range K1. Once I meet that criteria, then I would like to select the cell in column B of the row that is now empty. I hope this makes sense. You have all been so much help in the past and I hope you can help this time. Thank you so much in advance!!!
Scott