Re: [belajar-excel] TANYA MACRO PINDAH

[Sofyan Efendi]

Mas Bambang, macro nya di simpan dalam file Personal.XLS ya, saya jadi nggak 
bisa lihat macronya...
Bisa dicopy tidak ke module pada filenya secara langsung?

  ----- Original Message ----- 
  From: Purnomo, Bambang 
  To: belajar-excel@yahoogroups.com 
  Sent: Tuesday, October 30, 2007 4:59 PM
  Subject: RE: [belajar-excel] TANYA MACRO PINDAH



  Waduh sya ga paham,ini filenya yah saya kasih cuma contohnya,
  ada file master and file data,
  yang yang jadi maslah ad di file master sheet a,b,c....
  duh semoga bisa membantu 
  thanks
  bambang
    -----Original Message-----
    From: belajar-excel@yahoogroups.com [mailto:[EMAIL PROTECTED] Behalf Of 
slamet harto
    Sent: Tuesday, October 30, 2007 4:29 PM
    To: belajar-excel@yahoogroups.com
    Subject: RE: [belajar-excel] TANYA MACRO PINDAH



    Mas ini aku kasih contoh beberapa coding yang harus di copy paste ke dalam 
module mu.
    tinggal dipelajari syntaknya dan disesuaikan dengan kebutuhan.. sebenarnya 
dari awal saya dah bilang minta attachmennya ... kalo isi filenya sangat 
crutial.. tinggal di hapus saja dan sisakan yang mau ditanyakan...

    Mohon maaf jika keberatan


    Sub SelectDown()
        Range(ActiveCell, ActiveCell.End(xlDown)).Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectUp()
        Range(ActiveCell, ActiveCell.End(xlUp)).Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectToRight()
        Range(ActiveCell, ActiveCell.End(xlToRight)).Select
    End Sub

    '''''''! ''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectToLeft()
        Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectCurrentRegion()
        ActiveCell.CurrentRegion.Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectActiveArea()
        Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectActiveColumn()
        If IsEmpty(ActiveCell) Then Exit Sub
    '   ignore error if activecell is in Row 1
        On Error Resume Next
        If IsEmpty(ActiveCell.Offset(-1, 0)) Then Set TopCell = ActiveCell Else 
Set TopCell = ActiveCell.End(xlUp)
        If IsEmpty(ActiveCell.Offset(1, 0)! ) Then Set BottomCell = ActiveCell 
Else Set BottomCell = ActiveCell.End(xlDown)
        Range(TopCell, BottomCell).Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectActiveRow()
        If IsEmpty(ActiveCell) Then Exit Sub
    '   ignore error if activecell is in Column A
        On Error Resume Next
        If IsEmpty(ActiveCell.Offset(0, -1)) Then Set LeftCell = ActiveCell 
Else Set LeftCell = ActiveCell.End(xlToLeft)
        If IsEmpty(ActiveCell.Offset(0, 1)) Then Set RightCell = ActiveCell 
Else Set RightCell = ActiveCell.End(xlToRight)
        Range(LeftCell, RightCell).Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectEntireColumn()
        Selection.EntireColumn.Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectE! ntireRow()
        Selection.EntireRow.Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectEntireSheet()
        Cells.Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub ActivateNextBlankDown()
        ActiveCell.Offset(1, 0).Select
        Do While Not IsEmpty(ActiveCell)
            ActiveCell.Offset(1, 0).Select
        Loop
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub ActivateNextBlankToRight()
        ActiveCell.Offset(0, 1).Select
        Do While Not IsEmpty(ActiveCell)
            ActiveCell.Offset(0, 1).Select
        Loop
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub S! electFirstToLastInRow()
        Set LeftCell = Cells(ActiveCell.Row, 1)
        Set RightCell = Cells(ActiveCell.Row, 256)
        If IsEmpty(LeftCell) Then Set LeftCell = LeftCell.End(xlToRight)
        If IsEmpty(RightCell) Then Set RightCell = RightCell.End(xlToLeft)
        If LeftCell.Column = 256 And RightCell.Column = 1 Then 
ActiveCell.Select Else Range(LeftCell, RightCell).Select
    End Sub

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub SelectFirstToLastInColumn()
        Set TopCell = Cells(1, ActiveCell.Column)
        Set BottomCell = Cells(16384, ActiveCell.Column)
        If IsEmpty(TopCell) Then Set TopCell = TopCell.End(xlDown)
        If IsEmpty(BottomCell) Then Set BottomCell = BottomCell.End(xlUp)
        If TopCell.Row = 16384 And BottomCell.Row = 1 Then ActiveCell.Select 
Else Range(TopCell, BottomCell).Select
    End Sub
    &n! bsp;
    End Sub

    __________________________________________________
    Do You Yahoo!?
    Tired of spam? Yahoo! Mail has the best spam protection around 
    http://mail.yahoo.com