Search:

Type: Posts; User: princ_wns

Page 1 of 2 1 2

Search: Search took 0.01 seconds.

  1. Replies
    5
    Views
    2,518

    Try this Sub ProtectAll() Dim...

    Try this



    Sub ProtectAll()

    Dim wSheet As Worksheet
    Dim Pwd As String

    Pwd = InputBox("Enter your password to protect all worksheets",...
  2. Replies
    1
    Views
    876

    Paste method fails.

    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...
  3. Replies
    3
    Views
    1,704

    let say you have a merge cells A1:C1 then for...

    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
  4. Hi Lee, Can you please explain it bit more,...

    Hi Lee,

    Can you please explain it bit more, what exactly you want.

    :confused:
  5. Replies
    6
    Views
    1,558

    Hi Devid, Can you please share your...

    Hi Devid,


    Can you please share your workbook, So that we can provide you exact solution.

    Regards
    Prince
  6. Replies
    6
    Views
    1,558

    Plese try this one. Sub OptimzeSpeed() ...

    Plese try this one.


    Sub OptimzeSpeed()

    Dim varArrSheet1 As Variant
    Dim varArrSheet2 As Variant

    Dim lngCtr1 As Long
    Dim lngCtr2 ...
  7. Replies
    4
    Views
    1,297

    Hi Hope this will be fine for you. ...

    Hi Hope this will be fine for you.

    ...
  8. Hi You Can refer this Public Sub...

    Hi You Can refer this



    Public Sub DeleteRow()

    Dim strC1 As String
    Dim strC2 As String
    Dim strSht As String
    Dim rngData As Range
  9. This is exactly what i was required. many thanks...

    This is exactly what i was required. many thanks to Admin.

    Prince

    :cheers::cheers:
  10. How To Assign A Non-contiguous Discontinuous Range To An Array

    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...
  11. Replies
    2
    Views
    1,601

    Try this One.. Public Sub InsertColumns() ...

    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 =...
  12. Hi Friend, Just Paste The Following formula in...

    Hi Friend,

    Just Paste The Following formula in Cell J3 : =IF(D3="Todays Date",TEXT(TODAY(),"dd-mmm-yyyy"),"")

    Regards
    Prince
    :cheers:
  13. Thread: Arrows

    by princ_wns
    Replies
    2
    Views
    931

    I think Your Scroll Lock Key Is Lock so Just...

    I think Your Scroll Lock Key Is Lock so Just Unlock the same and revert back if problem is solved.

    Regards
    Prince
  14. Replies
    10
    Views
    3,434

    Hi Paul PFA Regards Prince

    Hi Paul

    PFA

    Regards
    Prince
  15. Can yu please explain more as it is not clear...

    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
  16. Can you Please share the workbook ?

    Can you Please share the workbook ?
  17. You may Also try this Sub getCommon() ...

    You may Also try this


    Sub getCommon()

    Dim obj As Object
    Dim lngRow As Long
    Dim intCell As Integer

    Dim varDataS ...
  18. Can you please share any sample file ? Regards...

    Can you please share any sample file ?

    Regards
    Prince
  19. Replies
    1
    Views
    1,301

    Hi Paul, Plz follow these steps. 1: Right...

    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...
  20. Replies
    4
    Views
    1,504

    Hi Dear, You may also try this one... ...

    Hi Dear,

    You may also try this one...

    =VLOOKUP(MAX(C3:J3),C3:J3,MATCH(MAX(C3:J3),C3:J3,0)+1)

    Regards
    Prince
  21. Try This Sub test() Dim rngData ...

    Try This




    Sub test()
    Dim rngData As Range

    With ThisWorkbook.Worksheets("Sheet1")
    Set rngData = .Range("A1").CurrentRegion
  22. Replies
    10
    Views
    2,826

    Hi Mag, Hope this will help you. Sub...

    Hi Mag,

    Hope this will help you.


    Sub GetSummary()

    Dim wks As Worksheet

    For Each wks In ThisWorkbook.Worksheets
  23. Unmerge Cells and Fill with Duplicate Values

    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. ...
  24. Replies
    2
    Views
    1,326

    Hi Rasm, Here is my code that i had used in...

    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...
  25. Hi Tomylee, Please use this i hope this will...

    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...
Results 1 to 25 of 41
Page 1 of 2 1 2