Results 1 to 9 of 9

Thread: how to make this????

  1. #1
    sizs is offline Senior Member+
    Last Online
    21st September 2016 @ 07:39 PM
    Join Date
    13 May 2009
    Posts
    146
    Threads
    113
    Credits
    1,008
    Thanked
    23

    Default how to make this????


    dosto ager hum excel may koi sheet banatay hein aur us may different number post kerty hain jesa k

    20302544
    24802145
    25304214
    24605645
    24701546
    20301544
    24805446
    20304554
    24702456
    24804565
    20302456
    24605234
    25304556




    yea jo start may hain 203,248,253,246 247 ect yea code
    ub ager in code kee uleg uleg sheet kis tarha bany gee

    mean phley to aik he sheet may post ho jaine gay bad may in ko ulg ulg code may saltout kerna hey

  2. #2
    Join Date
    13 Dec 2009
    Location
    Charsadda Tangi
    Gender
    Male
    Posts
    24,332
    Threads
    334
    Credits
    393
    Thanked
    1297

    Default

    Screenshoot daden masala jaldi hal ho jaega

  3. #3
    syar is offline Advance Member
    Last Online
    Yesterday @ 02:42 PM
    Join Date
    31 Jul 2009
    Location
    Nowshera(KP)
    Age
    47
    Gender
    Male
    Posts
    884
    Threads
    9
    Credits
    563
    Thanked
    340

    Default



    I'm not sure with your data layout. Aap k data kis column se start hota ha. Aur ye sab numbers aik he column m hain ya alag alag comlumn m. But I can help with macro. If it is acceptable. Jo k aap k entries jetne bhe hain in k alag alag sheet in he nam se bana de ga. Agar Macro k zarye hal darkar ho tu please reply.

    regards

  4. #4
    ihtesham_ulfat's Avatar
    ihtesham_ulfat is offline Senior Member+
    Last Online
    15th March 2014 @ 11:55 PM
    Join Date
    10 Jun 2007
    Location
    Multan
    Posts
    466
    Threads
    65
    Credits
    0
    Thanked
    3

    Default

    Quote sizs said: View Post

    dosto ager hum excel may koi sheet banatay hein aur us may different number post kerty hain jesa k

    20302544
    24802145
    25304214
    24605645
    24701546
    20301544
    24805446
    20304554
    24702456
    24804565
    20302456
    24605234
    25304556




    yea jo start may hain 203,248,253,246 247 ect yea code
    ub ager in code kee uleg uleg sheet kis tarha bany gee

    mean phley to aik he sheet may post ho jaine gay bad may in ko ulg ulg code may saltout kerna hey
    Dear Apny problem ko thora expalin keren, men samjh nahi paya,,, aur ager posible ho screenshot b lagain... aur ik baat.. aap ny likha hia, sltout.......
    yih "SORT OUT" hay, SORTING hoti data ki na k Salting...!
    Kindly Don't Share E-Mail Id In Your Signature.
    ITDunya.com Team

  5. #5
    sizs is offline Senior Member+
    Last Online
    21st September 2016 @ 07:39 PM
    Join Date
    13 May 2009
    Posts
    146
    Threads
    113
    Credits
    1,008
    Thanked
    23

    Default

    Quote syar said: View Post


    I'm not sure with your data layout. Aap k data kis column se start hota ha. Aur ye sab numbers aik he column m hain ya alag alag comlumn m. But I can help with macro. If it is acceptable. Jo k aap k entries jetne bhe hain in k alag alag sheet in he nam se bana de ga. Agar Macro k zarye hal darkar ho tu please reply.

    regards
    k pls heklp watever u can tell me how can i do by Micro
    tks waitting for reply

  6. #6
    underworld's Avatar
    underworld is offline Advance Member
    Last Online
    6th July 2023 @ 04:14 PM
    Join Date
    07 Jan 2010
    Posts
    906
    Threads
    183
    Credits
    524
    Thanked
    22

    Default

    good work

  7. #7
    syar is offline Advance Member
    Last Online
    Yesterday @ 02:42 PM
    Join Date
    31 Jul 2009
    Location
    Nowshera(KP)
    Age
    47
    Gender
    Male
    Posts
    884
    Threads
    9
    Credits
    563
    Thanked
    340

    Default



    Follow these steps
    1. Press ALt+F11
    2. Insert Menu m ja kar Module Select Karain.
    3. Below Code new open hone wale window m paste karain.
    4. ALT+Q se vba editor k window close karain
    5. Excel k interface m tool k menu m ja kar macro run karain.
    6. Macro Aap ko prompt kara ga k apna column select karain . Apna column select karain suppose aap ka data column a m ha ( I assume ka aap ka row 1 coumns ki header row ha jo k automatic tamam sheet m copy ho jae gi.)

    NOTE: Before testing this Macro please make a copy of your file.

    Code:
    Sub Test()
    Dim lastrow As Long, LastCol As Integer, i As Long, iStart As Long, iEnd As Long
    Dim ws As Worksheet, r As Range, iCol As Integer, t As Date
    On Error Resume Next
    Set r = Application.InputBox("Click in the column to extract by", Type:=8)
    On Error GoTo 0
    If r Is Nothing Then Exit Sub
    iCol = r.Column
    t = Now
    Application.ScreenUpdating = False
    With ActiveSheet
        lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
        LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
        .Range(.Cells(2, 1), Cells(lastrow, LastCol)).Sort Key1:=Cells(2, iCol), Order1:=xlAscending, _
            Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        iStart = 2
        For i = 2 To lastrow
            If .Cells(i, iCol).Value <> .Cells(i + 1, iCol).Value Then
                iEnd = i
                Sheets.Add after:=Sheets(Sheets.Count)
                Set ws = ActiveSheet
                On Error Resume Next
                ws.Name = .Cells(iStart, iCol).Value
                On Error GoTo 0
                ws.Range(Cells(1, 1), Cells(1, LastCol)).Value = .Range(.Cells(1, 1), .Cells(1, LastCol)).Value
                .Range(.Cells(iStart, 1), .Cells(iEnd, LastCol)).Copy Destination:=ws.Range("A2")
                iStart = iEnd + 1
            End If
        Next i
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "Completed in " & Format(Now - t, "hh:mm:ss.00"), vbInformation
    End Sub

    If u have some problem please reply. And also intrested k kia aap ka masla hal ho gaya k nahee. If isn't please attach your sheet or screen shot dain

  8. #8
    Join Date
    13 Dec 2009
    Location
    Charsadda Tangi
    Gender
    Male
    Posts
    24,332
    Threads
    334
    Credits
    393
    Thanked
    1297

    Default

    Quote syar said: View Post


    Follow these steps
    1. Press ALt+F11
    2. Insert Menu m ja kar Module Select Karain.
    3. Below Code new open hone wale window m paste karain.
    4. ALT+Q se vba editor k window close karain
    5. Excel k interface m tool k menu m ja kar macro run karain.
    6. Macro Aap ko prompt kara ga k apna column select karain . Apna column select karain suppose aap ka data column a m ha ( I assume ka aap ka row 1 coumns ki header row ha jo k automatic tamam sheet m copy ho jae gi.)

    NOTE: Before testing this Macro please make a copy of your file.

    Code:
    Sub Test()
    Dim lastrow As Long, LastCol As Integer, i As Long, iStart As Long, iEnd As Long
    Dim ws As Worksheet, r As Range, iCol As Integer, t As Date
    On Error Resume Next
    Set r = Application.InputBox("Click in the column to extract by", Type:=8)
    On Error GoTo 0
    If r Is Nothing Then Exit Sub
    iCol = r.Column
    t = Now
    Application.ScreenUpdating = False
    With ActiveSheet
        lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
        LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
        .Range(.Cells(2, 1), Cells(lastrow, LastCol)).Sort Key1:=Cells(2, iCol), Order1:=xlAscending, _
            Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        iStart = 2
        For i = 2 To lastrow
            If .Cells(i, iCol).Value <> .Cells(i + 1, iCol).Value Then
                iEnd = i
                Sheets.Add after:=Sheets(Sheets.Count)
                Set ws = ActiveSheet
                On Error Resume Next
                ws.Name = .Cells(iStart, iCol).Value
                On Error GoTo 0
                ws.Range(Cells(1, 1), Cells(1, LastCol)).Value = .Range(.Cells(1, 1), .Cells(1, LastCol)).Value
                .Range(.Cells(iStart, 1), .Cells(iEnd, LastCol)).Copy Destination:=ws.Range("A2")
                iStart = iEnd + 1
            End If
        Next i
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "Completed in " & Format(Now - t, "hh:mm:ss.00"), vbInformation
    End Sub

    If u have some problem please reply. And also intrested k kia aap ka masla hal ho gaya k nahee. If isn't please attach your sheet or screen shot dain
    sab se pehle apne copy paste kya ha dosra ye ke ap english use mat karen

  9. #9
    syar is offline Advance Member
    Last Online
    Yesterday @ 02:42 PM
    Join Date
    31 Jul 2009
    Location
    Nowshera(KP)
    Age
    47
    Gender
    Male
    Posts
    884
    Threads
    9
    Credits
    563
    Thanked
    340

    Default

    sab se pehle apne copy paste kya ha
    Kia aap ko apne elawa kisi par yaqeen nahee k wo coding kar sakta ha?

Similar Threads

  1. How to make win7 DVD Image and Make another DVD
    By Talhatareen in forum Urdu Tutorials & Designing
    Replies: 49
    Last Post: 22nd October 2016, 09:40 AM
  2. how to make this pic in Ps cs5 . . . . . . Help?
    By king usama in forum Ask an Expert
    Replies: 2
    Last Post: 6th December 2013, 11:52 PM
  3. Replies: 20
    Last Post: 23rd November 2013, 09:06 PM
  4. Replies: 0
    Last Post: 27th February 2013, 03:20 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •