Hi Siti Vi
Sorry for that..This was the new query......i should have posted new link
for this ...anyhow i apologize for this....
Reagrds
L SUDHEER
On Wed, Oct 13, 2010 at 7:38 PM, Paul Schreiner <schreiner_p...@att.net>wrote:
> How is this related to "Delete of a value Deltes that from every sheet" ??
>
> is this a new query?
>
> Paul
>
>
> *From:* sudheer lolla <sudheer1...@gmail.com>
>
> *To:* excel-macros@googlegroups.com
> *Sent:* Wed, October 13, 2010 7:00:18 AM
>
> *Subject:* Re: $$Excel-Macros$$ DELETE OF A VALUE DELTES THAT FROM EVERY
> SHEET
>
> *Hi *
> *
> *
> *I have developed a custom button with name "Only one applicable".After
> user clicks that it does some functions.*
> *i want this button to be disabled later.*
> *
> *
> *AT ANY TIME USER SHOULD BE ABLE TO CLICK THAT BUTTON ONLY ONCE.LATER THAT
> HAS BE GRAYED OUT.*
> *
> *
> *HOW CAN THAT BE DONE I USED THIS CODE TO DEVELOP A NEW BUTTON*
> *
> *
> *
> *
> *Dim ctlMenu1 As CommandBarControl*
> * Set myCommandBar = CommandBars.Add(name:="APPLY XLSB(RULESET)",
> Position:=msoBarFloating)*
> * myCommandBar.Visible = True*
> * Set myCommandBarCtl =
> myCommandBar.Controls.Add(Type:=msoControlButton)*
> * With myCommandBarCtl*
> * .Caption = "Only one applicable"*
> * .Style = msoButtonCaption*
> * .TooltipText = "Only one applicable)"*
> * .OnAction = " Only one applicableSUB"*
> * End With*
>
>
> On Tue, Oct 12, 2010 at 3:33 PM, sudheer lolla <sudheer1...@gmail.com>wrote:
>
>> Hi Siti Vi
>>
>> *Superbly coded....That was excellent..full praise you*
>> Thanks for excellent reply
>>
>> Regards
>> L SUDHEER
>>
>> On Tue, Oct 12, 2010 at 7:02 AM, siti Vi <villager.g...@gmail.com> wrote:
>>
>>> Hi Lolla,
>>> check this code
>>>
>>> --------------------- the VBA code -------------------------
>>> Dim *DelValue*
>>>
>>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>>> If Target.Cells.Count = 1 Then
>>> If Not IsEmpty(Target.Cells) Then
>>> *DelValue* = Target.Value
>>> End If
>>> End If
>>> End Sub
>>>
>>> Private Sub Worksheet_Change(ByVal Target As Range)
>>> Dim *rB* As Long, *rC* As Long
>>> If Target.Cells.Count = 1 Then
>>> If Target.Column = 1 Then
>>> If IsEmpty(Target.Value) Then
>>> With WorksheetFunction
>>> If .CountIf(Sheets("B").Range("B:B"), *DelValue*) > 0
>>> Then
>>> rB = .Match(*DelValue*, Sheets("B").Range("B:B"), 0)
>>> Sheets("B").Cells(*rB*, 2).ClearContents
>>> End If
>>> If .CountIf(Sheets("C").Range("A:A"), *DelValue*) > 0
>>> Then
>>> rC = .Match(*DelValue*, Sheets("C").Range("A:A"), 0)
>>> Sheets("C").Cells(*rC*, 1) = ClearContents
>>> End If
>>> End With
>>> End If
>>> End If
>>> End If
>>> End Sub
>>>
>>>
>>> On Mon, Oct 11, 2010 at 12:40 PM, sudheer lolla <sudheer1...@gmail.com
>>> > wrote:
>>>
>>>> *Hi siti Vi*
>>>> *
>>>> *
>>>> *Thanks for your reply .That was efficient*
>>>> *
>>>> *
>>>> *But i had a problem the order of the values may not be the same in all
>>>> sheets*
>>>> *
>>>> *
>>>> *for example:if "17" is in row 17 in sheet "A" it may be in row 20 in
>>>> sheet "B"*
>>>> *Your code works effectively if the order is same.You are comparing
>>>> with target.row.This may not be the same in all sheets.I will end
>>>> up deleting the other value.*
>>>> *
>>>> *
>>>> *How can we overcome this problem*
>>>> *
>>>> *
>>>> *Regards*
>>>> *L SUDHEER
>>>> *
>>>> On Sun, Oct 10, 2010 at 6:58 PM, siti Vi <villager.g...@gmail.com>wrote:
>>>>
>>>>> Hi Lolla,
>>>>>
>>>>> try this code (written in Module of *Sheet A)
>>>>> *and let me know*
>>>>>
>>>>> Private Sub Worksheet_Change(ByVal Target As Range)
>>>>>
>>>>> If Target.Cells.Count = 1 Then
>>>>> If Target.Column = 1 Then
>>>>> If IsEmpty(Target.Value) Then
>>>>> Sheets("B").Cells(Target.Row, 2) = Target.Value
>>>>> Sheets("C").Cells(Target.Row, 1) = Target.Value
>>>>> End If
>>>>> End If
>>>>> End If
>>>>> End Sub
>>>>>
>>>>>
>>>>>
>>>>> kindest regards,
>>>>> siti Vi
>>>>> jakarta
>>>>>
>>>>>
>>>>> *
>>>>>
>>>>> On Fri, Oct 8, 2010 at 8:10 PM, sudheer lolla <sudheer1...@gmail.com>
>>>>> wrote:
>>>>> >
>>>>> > Hi guys
>>>>> > I Have a column "xyz" which is there in every sheet of the workbook
>>>>> > and the column number in sheet A is 1 ,sheet B is 2,sheet C is 1
>>>>> > If i delete a value from that column "xyz" in sheet A,the deleted
>>>>> cell has to be deleted from these B,C sheets
>>>>> > But the vice-versa should not happen i.e Delete of a cell in column
>>>>> "xyz" of sheet B or C should not delete from A
>>>>> > For me sheet A is a base sheet
>>>>> >
>>>>> >
>>>>> > "DELETE REFLECTS ALL SHEETS IS WHAT I NEEDED"
>>>>> > I will be very thankful to this community if i get some answer.
>>>>> > Thanks
>>>>> > sudheer.L
>>>>
>>>> --
>>>
>>> ----------------------------------------------------------------------------------
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> Like our page on facebook , Just follow below link
>>>
>>> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>>>
>>
>>
>>
>> --
>> sudheer.L
>>
>
>
>
> --
> sudheer.L
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>
--
sudheer.L
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
