Dropdown list question

[Deadly48]

I have a dropdown list of document types in cell A1. Drawings, Word docs, Excel docs, etc… I want to fill cell A1 with a code dependant on the doc type selected from the dropdown list.
e.g. select “Drawings” from dropdown. Code to be displayed in cell A1 “DRG”

 

[My Aswer Is This]

Try this:

The script will run when you enter a value in Range("A1")

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  1/29/2019  1:41:56 PM  EST
If Target.Address = "$A$1" Then
Application.EnableEvents = False
With Target
    Select Case Target.Value
        Case "Drawings"
            .Value = "DRG"
        Case "Word docs"
            .Value = "Ms Word is great"
        Case "Excel docs"
            .Value = "Mr.Excel"

    End Select
End With
Application.EnableEvents = True
End If
End Sub

 

[Deadly48]

Try this:

The script will run when you enter a value in Range("A1")

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  1/29/2019  1:41:56 PM  EST
If Target.Address = "$A$1" Then
Application.EnableEvents = False
With Target
    Select Case Target.Value
        Case "Drawings"
            .Value = "DRG"
        Case "Word docs"
            .Value = "Ms Word is great"
        Case "Excel docs"
            .Value = "Mr.Excel"

    End Select
End With
Application.EnableEvents = True
End If
End Sub

Hi, Thank you this works fine I've attached the code I have modified see below.
I have one more question how can I change this to be a range in column D or the whole column, rather than a specific cell

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 1/29/2019 1:41:56 PM EST
If Target.Address = "$D$1" Then
Application.EnableEvents = False
With Target
Select Case Target.Value
Case "General document"
.Value = "GD"
Case "Technical requisition"
.Value = "TR"
Case "Technical specification"
.Value = "TE"
Case "Civil drawing"
.Value = "DC"
Case "Mechanical drawing"
.Value = "DM"
Case "Electrical drawing"
.Value = "DE"
Case "General drawing"
.Value = "DG"
End Select
End With
Application.EnableEvents = True
End If
End Sub

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  1/30/2019  5:53:56 AM  EST
If Target.Column = 4 Then
If Target.CountLarge > 1 Then Exit Sub
Application.EnableEvents = False
With Target
Select Case Target.Value
Case "General document"
.Value = "GD"
Case "Technical requisition"
.Value = "TR"
Case "Technical specification"
.Value = "TE"
Case "Civil drawing"
.Value = "DC"
Case "Mechanical drawing"
.Value = "DM"
Case "Electrical drawing"
.Value = "DE"
Case "General drawing"
.Value = "DG"
End Select
End With
Application.EnableEvents = True
End If
End Sub

 

[Deadly48]

Thank you that's great just what I needed.

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thank you that's great just what I needed.