Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA code if/then
i would to create VBA code that will bring up a dialogue box if the
words "TOOL ASSEMBLY" are input under column "F". I would like to place certain words A, B, C, D whatever in a corresponding column on the same row. Is this possible? any help is greatly appreciated, thanks. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA code if/then
Certainly possible using sheet event code.
Who/what decides which certain words(or whatever) are placed in the adjacent column. Some code to place values in column G at each row where "tool assembly" is input Not case-sensitive............. Option Compare Text Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col F On Error GoTo enditall Application.EnableEvents = False If Target.Cells.Column = 6 Then n = Target.Row If Excel.Range("F" & n).Value = "TOOL ASSEMBLY" Then Excel.Range("G" & n).Value = "A, B, C, D or whatever" End If End If enditall: Application.EnableEvents = True End Sub Gord Dibben MS Excel MVP On Mon, 4 Apr 2011 09:41:11 -0700 (PDT), john taiariol wrote: i would to create VBA code that will bring up a dialogue box if the words "TOOL ASSEMBLY" are input under column "F". I would like to place certain words A, B, C, D whatever in a corresponding column on the same row. Is this possible? any help is greatly appreciated, thanks. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA code if/then
On Apr 4, 3:12*pm, Gord Dibben wrote:
Certainly possible using sheet event code. Who/what decides which certain words(or whatever) are placed in the adjacent column. Some code to place values in column G at each row where "tool assembly" is input Not case-sensitive............. Option Compare Text Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col F On Error GoTo enditall * * Application.EnableEvents = False If Target.Cells.Column = 6 Then * * * * n = Target.Row * * * * If Excel.Range("F" & n).Value = "TOOL ASSEMBLY" Then * * * * * * Excel.Range("G" & n).Value = "A, B, C, D or whatever" * * * * End If * * End If enditall: * * Application.EnableEvents = True End Sub Gord Dibben * * MS Excel MVP On Mon, 4 Apr 2011 09:41:11 -0700 (PDT), john taiariol wrote: i would to create VBA code that will bring up a dialogue box if the words "TOOL ASSEMBLY" are input under column "F". I would like to place certain words A, B, C, D whatever in a corresponding column on the same row. Is this possible? any help is greatly appreciated, thanks.- Hide quoted text - - Show quoted text - this works great thanks. just one thing, is it possible to look for a column heading such as "Name" instead of column "F", thanks again for the help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating excel file, adding code to it from code, VBE window stays | Excel Programming | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
How can I modify my code to offset the defined range and repeat theprocedure instead of duplicating my code? | Excel Programming | |||
Run VBA code only worksheet change, but don't trigger worksheet_change event based on what the code does | Excel Programming | |||
Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming |