|
Case Statement Question
Can someone provide me assistance with this case statement. I have attached
it to a command button and it does nothing. The object is to copy information from another sheet in the workbook based on the value of a certain cell. Sub GetGrades_Sh1() Dim sGrade1 As String sGrade1 = "Shift1!P101" Select Case sGrade1 Case Is = "WF" Sheets("Data").Range("B6:B17").Select Selection.Copy Sheets("Shift1").Range("A7").Select Selection.Paste Application.CutCopyMode = False Case Is = "PP" Sheets("Data").Range("C6:C22").Select Selection.Copy Sheets("Shift1").Range("A7").Select Selection.Paste Application.CutCopyMode = False Case Is = "SP" Sheets("Data").Range("D6:D16").Select Selection.Copy Sheets("Shift1").Range("A7").Select Selection.Paste Application.CutCopyMode = False End Select End Sub -- ----- Thank you, Liz |
Case Statement Question
You are not comparing to the cell, you are comparing to the string
"Shift1!P101" which is not really what you are looking for. Try this... Sub GetGrades_Sh1() Select Case Sheets("Shift1").Range("P101").Value Case "WF" Sheets("Data").Range("B6:B17").Copy _ Sheets("Shift1").Range("A7") Application.CutCopyMode = False Case "PP" Sheets("Data").Range("C6:C22").Copy _ Sheets("Shift1").Range("A7") Application.CutCopyMode = False Case "SP" Sheets("Data").Range("D6:D16").Copy _ Sheets("Shift1").Range("A7") Application.CutCopyMode = False End Select End Sub -- HTH... Jim Thomlinson "Liz Steffen" wrote: Can someone provide me assistance with this case statement. I have attached it to a command button and it does nothing. The object is to copy information from another sheet in the workbook based on the value of a certain cell. Sub GetGrades_Sh1() Dim sGrade1 As String sGrade1 = "Shift1!P101" Select Case sGrade1 Case Is = "WF" Sheets("Data").Range("B6:B17").Select Selection.Copy Sheets("Shift1").Range("A7").Select Selection.Paste Application.CutCopyMode = False Case Is = "PP" Sheets("Data").Range("C6:C22").Select Selection.Copy Sheets("Shift1").Range("A7").Select Selection.Paste Application.CutCopyMode = False Case Is = "SP" Sheets("Data").Range("D6:D16").Select Selection.Copy Sheets("Shift1").Range("A7").Select Selection.Paste Application.CutCopyMode = False End Select End Sub -- ----- Thank you, Liz |
Case Statement Question
Works like a charm.
Thank you so much! -- ----- Thank you, Liz "Jim Thomlinson" wrote: You are not comparing to the cell, you are comparing to the string "Shift1!P101" which is not really what you are looking for. Try this... Sub GetGrades_Sh1() Select Case Sheets("Shift1").Range("P101").Value Case "WF" Sheets("Data").Range("B6:B17").Copy _ Sheets("Shift1").Range("A7") Application.CutCopyMode = False Case "PP" Sheets("Data").Range("C6:C22").Copy _ Sheets("Shift1").Range("A7") Application.CutCopyMode = False Case "SP" Sheets("Data").Range("D6:D16").Copy _ Sheets("Shift1").Range("A7") Application.CutCopyMode = False End Select End Sub -- HTH... Jim Thomlinson "Liz Steffen" wrote: Can someone provide me assistance with this case statement. I have attached it to a command button and it does nothing. The object is to copy information from another sheet in the workbook based on the value of a certain cell. Sub GetGrades_Sh1() Dim sGrade1 As String sGrade1 = "Shift1!P101" Select Case sGrade1 Case Is = "WF" Sheets("Data").Range("B6:B17").Select Selection.Copy Sheets("Shift1").Range("A7").Select Selection.Paste Application.CutCopyMode = False Case Is = "PP" Sheets("Data").Range("C6:C22").Select Selection.Copy Sheets("Shift1").Range("A7").Select Selection.Paste Application.CutCopyMode = False Case Is = "SP" Sheets("Data").Range("D6:D16").Select Selection.Copy Sheets("Shift1").Range("A7").Select Selection.Paste Application.CutCopyMode = False End Select End Sub -- ----- Thank you, Liz |
| All times are GMT +1. The time now is 06:42 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com