| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA code if/then
Hi,
Perhaps something like this may help. Code:
Sub test()
Application.ScreenUpdating = False
Dim myrng As Range
For Each myrng In Sheets("Sheet1").Range("F2:F" & Sheets("Sheet1").Range("F65536").End(xlUp).Row)
If Sheets("Sheet1").Cells(myrng.Row, 6).Text = "TOOL ASSEMBLY" Then
MsgBox "Tool Assembly"
Sheets("Sheet1").Cells(myrng.Row, 1).Value = "Test"
Sheets("Sheet1").Cells(myrng.Row, 2).Value = "Test1"
Sheets("Sheet1").Cells(myrng.Row, 3).Value = "Test2"
Sheets("Sheet1").Cells(myrng.Row, 4).Value = "Test3"
End If
Next
End Sub
|
| 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 | |||
| How can I modify my code to offset the defined range and repeat theprocedure instead of duplicating my code? | Excel Programming | |||
| Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | 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 | |||
| Excel code convert to Access code - Concat & eliminate duplicates | Excel Programming | |||
Linear Mode
