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>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>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>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.
>>> To unsubscribe from this group, send email to
>>> excel-macros+unsubscr...@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.
>
>
>
--
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.
