Comments by Benjaminj007

Benjaminj007 14-May-20 9:20am View

Thanks for the input, Richard.

Benjaminj007 14-May-20 9:19am View

Thanks for the input, Richard, much appreciated.

Benjaminj007 28-Apr-20 16:22pm View

Yes, that refers to the Word application.

Benjaminj007 13-Apr-20 12:37pm View

Acknowledged. Thanks for the input. Much appreciated

Benjaminj007 13-Apr-20 12:23pm View

I'm not asking you to do my work for me, Dave. I have no experience in either language, and time is a factor. I have over twenty pages of code to translate and I don't have a starting point. That's why I'm seeking some assistance with this piece so I can take it from there. No shortcuts. I don't believe asking for help equates to a shortcut or wanting someone to do it for me.

Benjaminj007 13-Apr-20 12:03pm View

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'set sheet names
Set valSheet = Sheets("CTF-Issue Val Tracker")
Set issueAssignments = Sheets("Issue Assignments")
'handle invalid stuff, exit if any are true
If valSheet.Cells(1, "AA").text <> "filled" Or Target.Row = 1 Or ActiveSheet.Name <> "CTF-Issue Val Tracker" Then GoTo exitHandler
'put it where it goes
On Error Resume Next
For Each aCell In Target
changedCell = valSheet.Cells(aCell.Row, aCell.Column).Value
Set tempCell = issueAssignments.Range("H:H").Find(What:=valSheet.Cells(aCell.Row, "A").Value)
If Not tempCell Is Nothing Then
Select Case aCell.Column
Case "9"
'link "Validated?" columns if filled
tempCell.offset(0, 9).Value = changedCell
Case "7"
'link "Tester?" columns if filled
tempCell.offset(0, 3).Value = changedCell
Case "8"
'link "Completed Date" columns if filled
tempCell.offset(0, 6).Value = changedCell
End Select
End If
Next
On Error GoTo 0
'handle exit
exitHandler:
Application.EnableEvents = True
Exit Sub
Whoa:
MsgBox Err.Description
Resume exitHandler
End Sub
'Private Sub fillValSheet_Click()
' Call Sheets("Import Sheet").fillValTracker
'End Sub
'Private Sub clearValSheet_Click()
' Call Sheets("Import Sheet").clearValTracker
'End Sub

Benjaminj007 13-Apr-20 11:54am View

I see the humor, Bobby, but I feel fortunate to have a job when millions have lost theirs.

Benjaminj007 13-Apr-20 11:51am View

Deleted

My apologies. What about this one?

Comments by Benjaminj007 (Top 8 by date)