Dropdown dependencies

Hi All
Hoping someone can help with a small problem I have?
I have a 2 worksheet file & both sheets are multi column.
Sheet 1 has a combination of drop downs & free txt fields but no calculations and feeds Sheet 2 has various formula and no direct entry into its fields.
Sheet1 Col R (Dropdown) feeds Sheet2 Col AA & Sheet1 Col K (yes/no dropdown) feeds Sheet2 Col S.
What I need to do is retain the normal usability but with the added that if Col R is selected it not only puts the normal feed through to sheet 2 col AA but also selects "No" in sheet2 Col S.
If you've managed to understand what I'm aiming at, is it possible & how????
Many many thanks for your anticipated help.

araujo

Details are lacking, but perhaps this will do what you want.
When a cell in column-R on sheet1 is selected (no changed), it make the cell in column-AA of sheet2 have a value of "No", using the same row as the selected cell.

This code must go into the worksheet module of Sheet1.
Note: sheet references are sheet code names, not worksheet (tab) names.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Columns("R:R")) Is Nothing Then
        Sheet2.Range("AA" & Target.Row).Value = "No"
    End If
    
End Sub

If this is not what you intended, then state your requirements more precisely and with more details, or upload a sample workbook that shows the desired results.

Revised code, which uses the worksheet_change event.
If the changed cell is in column-R and the cell value is not a null value then cell-K of the same row is change to "No".

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Columns("R:R")) Is Nothing Then
        If Target <> vbNullString Then
            Range("K" & Target.Row) = "No"
        End If
    End If

End Sub

Did you put the code into the worksheet module? That is where it must go.

If not, then:

Right-click the worksheet tab and choose View Code
Copy and paste the code into the code pane (normally on the right side of the screen)
Close the VB Editor