Hi Shrinivas,
A sample workbook with the parameters and the expected output will be
helpful for giving exact solution.
<><><><><><><>
*Ms-Exl-Learner*
<><><><><><><>
On 06-10-2012 9:01 AM, Shrinivas Shevde wrote:
Dear Excel Learner
First of all sorry for delay.
Thanks for the reply and this is exactly I want.
Can u help me little more
In a master sheet there is sample Name I want to put 2 or 3 (may be
more)more parameter like ,Date, Created by ,Cost etc.and all this
should get transfer to respective sheet.
All this should be mandatory. means if any of the fields are blank
then data should not transfer.
Thanks in advance.
Regards
Shrinivas
Dear Don.
I appretiate u r effort of understanding my problem.
I got solution
Thanks for help
Regards
Shrinivas
On Thu, Oct 4, 2012 at 11:50 AM, Ms-Exl-Learner .
<ms.exl.lear...@gmail.com <mailto:ms.exl.lear...@gmail.com>> wrote:
Hi Shrinivas,
Copy and paste the below code in Standard Module
Option Explicit
Sub PreserveData()
Dim bWs As Worksheet, sName As String
Dim i As Integer, myTemp1 As Byte, myTemp2 As Byte
Application.ScreenUpdating = False
On Error GoTo ShtMissing
Set bWs = Sheets("Master Sheet")
sName = bWs.Range("E1").Value
If Trim(sName) = "" Then
sName = "Def." & Sheets.Count
End If
For i = 1 To Sheets.Count
If Sheets(i).Name = sName Then
myTemp1 = 1
End If
Next i
If myTemp1 = 1 Then
myTemp2 = MsgBox(" Sheet '" & sName & "' is already exist, " _
& "would you like to replace it?" _
, vbQuestion + vbYesNo, "Sheet Exist")
End If
If myTemp2 = 6 Then
Application.DisplayAlerts = False
Sheets(sName).Delete
Application.DisplayAlerts = True
ElseIf myTemp2 = 7 Then
Exit Sub
End If
On Error GoTo 0
With bWs.Range("A1").CurrentRegion
.AutoFilter Field:=2, Criteria1:="<>"
.EntireRow.SpecialCells(xlCellTypeVisible).Copy
End With
Sheets.Add After:=bWs
With ActiveSheet
.Name = sName
.Paste
.Range("A:E").Columns.AutoFit
.Range("A1").Select
End With
bWs.Select
Selection.AutoFilter
Range("E1").Select
MsgBox "Sheet '" & sName & "' is created successfully",
vbInformation, "Task Completed"
Application.ScreenUpdating = True
Exit Sub
ShtMissing:
MsgBox "Master Sheet is Missing, Unable to continue...",
vbCritical, "Sheet Missing"
End Sub
Press Alt+F8 and Select “PreserveData” Macro and click Run.
Refer the attachment file for details.
Hope that helps!
Please let us know, in case of any further assistance.
----
<><><><><><>
*Ms.Exl.Learner*
<><><><><><>
On Mon, Oct 1, 2012 at 10:18 AM, Shrinivas Shevde
<shrinivas...@gmail.com <mailto:shrinivas...@gmail.com>> wrote:
Dear Don,
Thanks for reply.
Please find details what I want.
1.I have many raw material.Consider I have 50 raw material
2.I want to make a sample with this raw material.While making
sample I will use some of the material out of 50 .% of the
material wull vary .
3.To do this what I noted down all the raw material in one
sheet (master sheet fro raw material) say Sheet No 1.
4.I will make 1st sample with 5 raw material and name it say
"111".
5.Now while making another sample say "222" I want to store
details of the 1st sample.
6.For that I want a macro so that when I run macro raw
material which I used for 1st sample will store in another
sheet (As I will required this in future for reference and
need to take out print) and master sheet will get empty.
7.In a month I am making more that 65 samples.
8.So I amy required 65 sheet.
I hope this is clear if anything is not clear please ask.
Regards
Shrinivas
On Fri, Sep 28, 2012 at 6:16 PM, Don Guillett
<dguille...@gmail.com <mailto:dguille...@gmail.com>> wrote:
What you want is easy to do but I fail to see the LOGIC of
what you want. Explain.......
On Friday, September 28, 2012 5:48:22 AM UTC-5, shrini wrote:
Dear All
Can Any one help me to write a macro for following things.
In sheet 1 I have more than 200 items.I want to make a
sample by choosing items from this list.
1.I will make a sample " 111" by choosing Items A,C D
.(rest items will be there but the percentage column
will be blank.)
2.I will make a sample " 222" by choosing Items B,E, D
3.Now there should be button if I click on that .Macro
will create a new sheet and Details of Sample "111"
will copy in that sheet
In short whnever I will click on button it will create
a new sheet and copy details of that sample.
Sample file attached
--
Shrini
--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES (1120+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread
titles, like Please Help, Urgent, Need Help, Formula
Problem, Code Problem, and Need Advice will not get quick
attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing
any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to
this forum in signatures are prohibited.
6) Jobs posting is not allowed.
7) Sharing copyrighted ebooks/pirated ebooks/their links
is not allowed.
NOTE : Don't ever post personal or confidential data in a
workbook. Forum owners and members are not responsible for
any loss.
---
You received this message because you are subscribed to
the Google Groups "MS EXCEL AND VBA MACROS" group.
To post to this group, send email to
excel-macros@googlegroups.com
<mailto:excel-macros@googlegroups.com>.
To unsubscribe from this group, send email to
excel-macros+unsubscr...@googlegroups.com
<mailto:excel-macros%2bunsubscr...@googlegroups.com>.
--
Shrini
--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES (1120+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles,
like Please Help, Urgent, Need Help, Formula Problem, Code
Problem, and Need Advice will not get quick attention or may
not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any
security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this
forum in signatures are prohibited.
6) Jobs posting is not allowed.
7) Sharing copyrighted ebooks/pirated ebooks/their links is
not allowed.
NOTE : Don't ever post personal or confidential data in a
workbook. Forum owners and members are not responsible for any
loss.
---
You received this message because you are subscribed to the
Google Groups "MS EXCEL AND VBA MACROS" group.
To post to this group, send email to
excel-macros@googlegroups.com
<mailto:excel-macros@googlegroups.com>.
To unsubscribe from this group, send email to
excel-macros+unsubscr...@googlegroups.com
<mailto:excel-macros%2bunsubscr...@googlegroups.com>.
--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES (1120+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and
Need Advice will not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any
security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this
forum in signatures are prohibited.
6) Jobs posting is not allowed.
7) Sharing copyrighted ebooks/pirated ebooks/their links is not
allowed.
NOTE : Don't ever post personal or confidential data in a
workbook. Forum owners and members are not responsible for any loss.
---
You received this message because you are subscribed to the Google
Groups "MS EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com
<mailto:excel-macros@googlegroups.com>.
To unsubscribe from this group, send email to
excel-macros+unsubscr...@googlegroups.com
<mailto:excel-macros%2bunsubscr...@googlegroups.com>.
--
Shrini
--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES (1120+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and
Need Advice will not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum
in signatures are prohibited.
6) Jobs posting is not allowed.
7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.
NOTE : Don't ever post personal or confidential data in a workbook.
Forum owners and members are not responsible for any loss.
---
You received this message because you are subscribed to the Google
Groups "MS EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to
excel-macros+unsubscr...@googlegroups.com.
--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES (1120+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited.
6) Jobs posting is not allowed.
7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to
excel-macros+unsubscr...@googlegroups.com.