Find a value in a column, then from that point find the first of another value in that same column and paste a value 20 columns to the right of that v

[sdoppke]

Well although long, the titel sais it all. I am hoping to get help with a Macro to find a value in a column (a number) then find the matching name (Bob) in that same column, below that number (will be withing 29 rows of that number) and then paste a value 20 columns to the right of the found name (Bob).

Well sounds easy, but im sure its not.

Thanks in advance for any help.

sd

 

[sdoppke]

Well although long, the titel sais it all. I am hoping to get help with a Macro to find a value in a column (a number) then find the matching name (Bob) in that same column, below that number (will be withing 29 rows of that number) and then paste a value 20 columns to the right of the found name (Bob).

Well sounds easy, but im sure its not.

Thanks in advance for any help.

sd

I figures this out Imhoping to get further help with this though.
The sheet2 is so large (1100 + rows), I have much it hidden at different time to help the viewer. With that said, it seems as though my "find" task is not able to find the item, if it is in the hidden portion of the sheet. Is there a way to get around that without unhidding everything?

Here is the complete Sub:

Sub Input_Availability()
Application.ScreenUpdating = False
findvalue = Sheets("MyStoreInfo").ComboBox1.Value
If Sheets("MyStoreInfo").CheckBox1.Value = True Then
Box = "O"
End If
If Sheets("MyStoreInfo").CheckBox2.Value = True Then
Box = "P"
End If
If Sheets("MyStoreInfo").CheckBox3.Value = True Then
Box = "R"
End If
    On Error GoTo finish
    Range("Q10:AD49").Select
   Selection.Find(What:=findvalue, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
        , SearchFormat:=False).Activate
    On Error GoTo 0
    RowNum = ActiveCell.row
    ColNum = ActiveCell.Column
    
    For r = 1 To 7
        If Cells(RowNum + r, ColNum) = "" Then
            Cells(RowNum + r, ColNum) = Range("B10") & " " & Range("C10")
            Cells(RowNum + r, ColNum + 1) = Box
            
'begin part that inputs the letter to Schedule Template
FindName = Sheets("MyStoreInfo").Range("B10") & " " & Sheets("MyStoreInfo").Range("C10")
FindNumber = Sheets("MyStoreInfo").ComboBox1.Value
If Sheets("MyStoreInfo").CheckBox1.Value = True Then
Box = "O"
End If
If Sheets("MyStoreInfo").CheckBox2.Value = True Then
Box = "P"
End If
If Sheets("MyStoreInfo").CheckBox3.Value = True Then
Box = "R"
End If
Sheets("Schedule Tool").Visible = True
Sheets("Schedule Tool").Select
    Columns("A:A").Select
    Range("A3").Activate
    On Error GoTo 0
    Selection.Find(What:=FindNumber, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Selection.FindNext(After:=ActiveCell).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Find(What:=FindName, After:=ActiveCell, LookIn:= _
        xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Select
        
    RowNum = ActiveCell.row
    ColNum = ActiveCell.Column
    Cells(RowNum, ColNum + 88) = Box
    Sheets("Schedule Tool").Visible = False
'end part that inputs the letter to Schedule Template
            Sheets("MyStoreInfo").Select
            Range("Q8").Select
            Application.ScreenUpdating = True
            Exit Sub
            
        Else
            If r = 7 Then
                Application.ScreenUpdating = True
                MsgBox ("No more room")
                Exit Sub
            End If
            
        End If
    Next
finish:
    Err.Clear
    MsgBox ("Date not found")
End Sub

Thanks in advacne for any help.

sd