.visible

I used the following code to print a hidden sheet and my first sheet disappeared .......can anyone tell me what the problem was, please TIA GT Sub PrintOnlyHiddenWorksheets() Dim CurVis As Long Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets With sh...

When I select a cell to add a date using DatePicker drop down box, I select a date but nothing displays in the selected cell. The code I used is; Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Sheet1.DTPicker1 .Height = 20 .Width = 20 If Not Intersect(Target...

I have the below VBA coding on 3 of my sheets in an excel workbook. My excel crases after few minutes, can someone suggest if there is anything wrong with the coding Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Sheet1.DTPicker1 DTPicker1.Value =...

Hello, I'm using the following code below. However even time is displaying, can someone please help me, how do I remove time from this Thanks Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Sheet1.DTPicker1 .Height = 20 .Width = 20 If Not Intersect(Target...

I'm trying to use this code (red line) to determine what row the current date can be found in column B of the worksheet. With ws_wstoview If .Visible = xlSheetVisible Then .Visible = xlSheetHidden Worksheets("FRONT").Activate...

I wanted to ease the input of dates for some employees in a shop. There are 4 columns that require date inputs: G, H, J and K. I added one date picker for columns G:H and another one for J:K with the following code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) With...

Hello friends, hope all is well! please help me I am trying to choose more than one choice on a pivot table with VBA. But didn't succeeded. Your time & Effort is really appreciated! Sub AAA() Sheets("PTDocRev").Select ActiveSheet.PivotTables("DrMnAct").PivotFields("Visit...

Hello This VBA code helps me to do a individual check box selection When I select first checkbox ,Cell O18 has value 1 When I select second checkbox (first checkbox became white..second is black), and Cell O18=0 an O19=1 Please tell me which are mofication for vba code wher I want to create...

I'm having some trouble with the command button code below when I protect my workbook. I can protect the worksheet the button is on and lock it down so everything is tight, but as soon as I protect the workbook, I get a "Run-time error '1004': Method 'Visible' of object'_Worksheet' failed...

Hi, Can someone please help shorten this code. Thank you. Sheets("SMMRY - WO BY DAYS IN ROLE").Select Set pvt = ActiveSheet.PivotTables("PivotTable1") pvt.ColumnGrand = False pvt.RowGrand = False pvt.RowAxisLayout xlTabularRow pvt.ClearTable 'FILTERS 'FALSE...

Hello friends, hope all is well! Please help me fix the below code; this line has an error: Sheet2.Shapes("& Sheets("Report").Range("D4").Value&"")" & .Visible = True Thank you very much in advance Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target...

Im trying to turn some shapes on and off, this is the code im using. Private Sub Worksheet_Change(ByVal Target As Range) Select Case Range("J9").Value Case "GREEN" With Me.Shapes("GREEN_TIME") .Visible = Not .Visible End With Case "RED" With Me.Shapes("RED_TIME")...

I have a specific range of values that I want hidden from view in a pivot table and cannot figure out how to simplify the following formula by using a range/variable for the .pivotitems? I am trying to simplify the following code: On Error Resume Next With...