Vishaal
Well-known Member
- Joined
- Mar 16, 2019
- Messages
- 533
- Office Version
- 2010
- 2007
- Platform
- Windows
- Web
Hi all,
i am using this code but want to few changes, please help
Private Sub CommandButton1_Click()
a = Worksheets(“Sheet1”) .Cells(Rows.Count, 1) .End(x1Up) .Row
For I = 2 To a
If Worksheets (“Sheet1”) .Cells(I, 3) .Value = “North” Then
Worksheets (“Sheet1”) .Rows(i) .Copy
Worksheets (“Sheet2”) .Activate
b = Worksheets (“Sheet2”) .Cells(Rows.Count, 1) .End(x1Up) .Row
Worksheets (“Sheet2”) .Cells(b + 1, 1) .Select
ActiveSheet.Paste
Worksheets(“Sheet1”) .Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets(“Sheet1”) .Cells(1, 1) .Select
End Sub
i have a master data sheet
Excel 2007 32 bit
We change the price regularly on many products and want to copy all the products entire row where the price has change in one new file. so that we can mail it to all our suppliers.
It will be great if also get a code for send to mail to our all suppliers through vb code (file will be in attachment) and body description will be same.
pls provide the code
i am using this code but want to few changes, please help
Private Sub CommandButton1_Click()
a = Worksheets(“Sheet1”) .Cells(Rows.Count, 1) .End(x1Up) .Row
For I = 2 To a
If Worksheets (“Sheet1”) .Cells(I, 3) .Value = “North” Then
Worksheets (“Sheet1”) .Rows(i) .Copy
Worksheets (“Sheet2”) .Activate
b = Worksheets (“Sheet2”) .Cells(Rows.Count, 1) .End(x1Up) .Row
Worksheets (“Sheet2”) .Cells(b + 1, 1) .Select
ActiveSheet.Paste
Worksheets(“Sheet1”) .Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets(“Sheet1”) .Cells(1, 1) .Select
End Sub
i have a master data sheet
Excel 2007 32 bit
A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
1 | ISBN | S.No. | CATEGORY | BOOK TITLE | BOOK CODE | BOOK PRICE | AUTHOR | Language | SUBJECT | Binding | Publisher | Stock | Page No. | Length (CM) | Width (CM) | Height (CM) | Weight |
2 | |||||||||||||||||
3 | 9789388701563 | 1 | RECENT RELEASES | 20 Practice Sets RAILWAY RECRUITMENT BOARD NTPC (GRADUATE) CBT (IInd Stage) | 3009 | 215.00 | Abhinav Jha | English | COMPETITION BOOKS | paperback | Citizen Publication | 50 | |||||
4 | 9789388701570 | 1 | RECENT RELEASES | NURSING RECRUITMENT EXAM. | 3012 | 165.00 | B.M.Thulasidas & K.V.Usha | English | COMPETITION BOOKS | paperback | Citizen Publication | 50 | 188 | 27.3 | 19.5 | 0.8 | 298 |
5 | 9789388701617 | 1 | RECENT RELEASES | SSC Multi Tasking (NON-TECHNICAL) STAFF RECRUITMENT EXAM. 82 SOLVED PAPERS 2017 | 3013 | 620.00 | Abhinav Jha | English | COMPETITION BOOKS | paperback | Citizen Publication | 50 | 716 | 27.3 | 19.5 | 3.2 | 982 |
6 | 9789388701525 | 1 | RECENT RELEASES | CCC Course on Computer Concepts | 3011 | 155.00 | Abhinav Jha | English | COMPETITION BOOKS | paperback | Citizen Publication | 50 | 180 | 27.3 | 19.5 | 0.8 | 282 |
| Sheet: ENGLISH |
We change the price regularly on many products and want to copy all the products entire row where the price has change in one new file. so that we can mail it to all our suppliers.
It will be great if also get a code for send to mail to our all suppliers through vb code (file will be in attachment) and body description will be same.
pls provide the code
