- Messages
- 347
- Reaction score
- 0
- Points
- 26
Re: MS excel formula, programming, analysis, presentation and tutorials.
Galing galing! Haha, nareceive ko na yung PM tungkol dun sa Excel. Thanks Ma'am!
Pakidelete lahat ng code existing including modules.. then copy and paste this to your worksheet code editor
Public InputsP As String
Public InputsH As String
Public InputsL17 As String
Public InputsL18 As String
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
tRow = Target.Row
If Target.Column = 16 Then
Range("L" & tRow).Value = InputsP
End If
If Target.Column = 8 Then
Range("D" & tRow).Value = InputsH
End If
If Target.Column = 12 Then
If Target.Row = 17 Then
Application.EnableEvents = False
Range("H" & tRow).Value = InputsL17
End If
End If
If Target.Column = 12 Then
If Target.Row = 18 Then
Application.EnableEvents = False
Range("H" & tRow).Value = InputsL18
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
InputsP = Range("P" & Target.Row).Value
InputsH = Range("H" & Target.Row).Value
InputsL17 = Range("L" & Target.Row).Value
InputsL18 = Range("L" & Target.Row).Value
End Sub
Galing galing! Haha, nareceive ko na yung PM tungkol dun sa Excel. Thanks Ma'am!