changes in vb code

Vishaal

Active Member
Joined
Mar 16, 2019
Messages
261
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
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 RELEASES20 Practice Sets RAILWAY RECRUITMENT BOARD NTPC (GRADUATE) CBT (IInd Stage)
3009​
215.00​
Abhinav JhaEnglishCOMPETITION BOOKSpaperbackCitizen Publication
50​
4
9789388701570​
1
RECENT RELEASESNURSING RECRUITMENT EXAM.
3012​
165.00​
B.M.Thulasidas & K.V.Usha
English​
COMPETITION BOOKSpaperbackCitizen Publication
50​
188​
27.3​
19.5​
0.8​
298​
5
9789388701617​
1
RECENT RELEASESSSC 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 RELEASESCCC 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
 

Forum statistics

Threads
1,082,382
Messages
5,365,134
Members
400,825
Latest member
Sreekanth_21

Some videos you may like

This Week's Hot Topics

  • populate from drop list with multiple tables
    Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
  • Find list of words from sheet2 in sheet1 before a comma and extract text vba
    Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
  • Dynamic Formula entry - VBA code sought
    Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...
  • Listbox Header
    Have a named range called "AccidentsHeader" Within my code I have: [CODE]Private Sub CommandButton1_Click() ListBox1.RowSource =...
  • Complex Heat Map using conditional formatting
    Good day excel world. I have a concern. Below link have a list of countries that carries each country unique data. [URL...
  • Conditional formatting
    Hi good morning, hope you can help me please, I have cells P4:P54 and if this cell is equal to 1 then i want row O to say "Fully Utilised" and to...
Top