Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations waross on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. RYANspaceHall

    Array Help

    And once again I figured it out. Set myRng = shB.Range(Cells(1, j), Cells(1, 19)) needed to be Set myRng = shB.Range(shB.Cells(1, j), shB.Cells(1, 19))
  2. RYANspaceHall

    Array Help

    I am having trouble when I run this. It ran Perfect when I Set myRng = ActiveSheet.Range(Cells(1, j), Cells(1, 19)). When I changed is to shB (which is Sheet2) then I get an error, Method Range of Objects. I believe I have a problem defining the range. Just need some help figuring it out. I also...
  3. RYANspaceHall

    Array Help

    Thanks I will implement your code in with what I have now. I had it indented but when I copied it it left justified everything.
  4. RYANspaceHall

    Array Help

    Thanks, I have a drop down list for them to choose from.
  5. RYANspaceHall

    Array Help

    Thanks for your help I figured it out.... And I didn't use an array; just over thought it. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$3" Then Dim i As Integer i = 5 For i = 5 To 19 If (Target.Value) = "close RUN" And Cells(4, i).Value = "RUN" Then...
  6. RYANspaceHall

    Array Help

    Here is the updated version. I am probably over complicating it. My goal is to have one group of cells close if it has data and have the other group of cells open if it doesn't have data. (The data is 'RUN' in this situation) This will search and see if the column (j) has data in cell(4,i). If...
  7. RYANspaceHall

    Array Help

    I am trying to hide cells that are in my array. I am new to VBA so I am having a little trouble. My code is below. Thanks in advance! My array is in columns E-S and the cells contain letters E-S in it. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$3" Then...
Back
Top