Try this
Sub ProtectAll()
Dim wSheet As Worksheet
Dim Pwd As String
Pwd = InputBox("Enter your password to protect all worksheets",...
Type: Posts; User: princ_wns
Try this
Sub ProtectAll()
Dim wSheet As Worksheet
Dim Pwd As String
Pwd = InputBox("Enter your password to protect all worksheets",...
Hi,
I have lot of charts on a an excel sheet and i am pasting them on different workbook, Sometimes few charts pastes successfully but when i run the same code again it generates an error...
let say you have a merge cells A1:C1 then for extracting the data from this you can code it like this.
range("A1:C1").areas(1).cells(1,1)
Regards
Prince
Hi Lee,
Can you please explain it bit more, what exactly you want.
:confused:
Hi Devid,
Can you please share your workbook, So that we can provide you exact solution.
Regards
Prince
Plese try this one.
Sub OptimzeSpeed()
Dim varArrSheet1 As Variant
Dim varArrSheet2 As Variant
Dim lngCtr1 As Long
Dim lngCtr2 ...
Hi Hope this will be fine for you.
...
Hi You Can refer this
Public Sub DeleteRow()
Dim strC1 As String
Dim strC2 As String
Dim strSht As String
Dim rngData As Range
This is exactly what i was required. many thanks to Admin.
Prince
:cheers::cheers:
Hi All,
I have a range of 10 columns and i want to assign only columns 1,2,3,7,8,10 into an array. I tried it by using union on this range and selecting only thoes columns which are required but...
Try this One..
Public Sub InsertColumns()
Dim intCol As Integer
Const strCol = "N:N" 'Here Just add the last Columns charactor Like "C:N"'s - N:N
Const strSheetName =...
Hi Friend,
Just Paste The Following formula in Cell J3 : =IF(D3="Todays Date",TEXT(TODAY(),"dd-mmm-yyyy"),"")
Regards
Prince
:cheers:
I think Your Scroll Lock Key Is Lock so Just Unlock the same and revert back if problem is solved.
Regards
Prince
Hi Paul
PFA
Regards
Prince
Can yu please explain more as it is not clear what to do. It would be better if you can provide somthing with sample data with workbook.
:confused:
regards
Prince
Can you Please share the workbook ?
You may Also try this
Sub getCommon()
Dim obj As Object
Dim lngRow As Long
Dim intCell As Integer
Dim varDataS ...
Can you please share any sample file ?
Regards
Prince
Hi Paul,
Plz follow these steps.
1: Right Click on the cell choose format Cell-> Select Protection Tab->Select Hidden Option->ok
2: Protect the Sheet
This will hide the formulea on the...
Hi Dear,
You may also try this one...
=VLOOKUP(MAX(C3:J3),C3:J3,MATCH(MAX(C3:J3),C3:J3,0)+1)
Regards
Prince
Try This
Sub test()
Dim rngData As Range
With ThisWorkbook.Worksheets("Sheet1")
Set rngData = .Range("A1").CurrentRegion
Hi Mag,
Hope this will help you.
Sub GetSummary()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
Hi all,
I have range of data on my excel sheet and data is grouped and merged now what i want to unmerge these cells and fill the rows with the duplicate values.
For example:
My Actual data. ...
Hi Rasm,
Here is my code that i had used in one of my project where i had to sort the Columns based on the date in their first cell value that were containing date in. As you see the range starts...
Hi Tomylee,
Please use this i hope this will help you.
Public Sub GetBrandsFiles()
Dim varArrFile As Variant
Dim intCtr As Integer
Dim strFiles As String
Dim...