Re: [belajar-excel] memecah Data perkota

[anton suryadi]

Sub CobaCobi()
Dim ws As Worksheet
Dim wsh As Worksheet
For Each ws In Worksheets
    Application.DisplayAlerts = False
    If ws.Name <> "Data" Then ws.Delete
    Application.DisplayAlerts = True
Next
For i = 5 To 100 'sesuaikan
    If Cells(i, 5) <> blank Then
        On Error Resume Next
        Set wsh = Worksheets(Cells(i, 5).Value)
        If wsh Is Nothing Then
            Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Cells(i, 
5).Value
            With Sheets(Cells(i, 5).Value)
            .Range("A4:B4").Value = Split("Tanggal,Inv.", ",")
            .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 2).Value = 
Cells(i, 1).Resize(1, 2).Value
            End With
        Else
            With Sheets(Cells(i, 5).Value)
            .Range("A4:B4").Value = Split("Tanggal,Inv.", ",")
            .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 2).Value = 
Cells(i, 1).Resize(1, 2).Value
            End With
        End If
        On Error GoTo 0
    End If
Next
End Sub


>semoga bermanfaat


=======================================
catatan mods
mohon maaf posting ini terlambat karena
masuk ke folder spam
=======================================

________________________________
From: PP 03 <ppc...@sami.co.id>
To: belajar-excel@yahoogroups.com
Sent: Fri, July 23, 2010 4:30:02 PM
Subject: [belajar-excel] memecah Data perkota
 
mohon bantuannya bagaimana code untuk
permasalahan saya ini
 
file ini semula mempunyai 1 Sheet (Data)
ketika tombol Rekap koto di  Klik 
1.menDelet semua sheet kecuali sheet Data
2.membuat sheet sesuai  nama kota (koom E)
3.memasukkan tanggal (kolom A) dan Inv. (kolom  B)
   ke Sheet yang telah dibuat
   Contoh :disini ada  4 sheet (JKT,SMG,DMK,RMBG)
 
  Thanks & Best Regards 
||-----------------------------------------------||
   Sidoel