terimakasih mas anton dan mas safri atas bantuannya meskipun codingnya berbeda tapi hasilnya spt yang saya harapkan
Thanks & Best Regards ||-----------------------------------------------|| Sidoel ----- Original Message ----- From: anton suryadi To: [email protected] Sent: Tuesday, July 27, 2010 2:01 PM Subject: Re: [belajar-excel] memecah Data perkota agar fleksibel: LR = Cells(Rows.Count, 1).End(xlUp).Row For i = 5 To LR File terlampir >semoga bermanfaat ------------------------------------------------------------------------------ From: PP 03 <[email protected]> To: [email protected] Sent: Tue, July 27, 2010 1:26:44 PM Subject: Re: [belajar-excel] memecah Data perkota terimakasih baget mas anton kurang 1 permasalahanku yang belum di jawab nich di sheet (Data) tidak pasti barisnya berapa mungkin 100, mungkin lebih dari itu mungkin Code For i = 5 To 100 yang perlu di Fleksibel kan sehingga tidak selalu Update angka 100 menjadi 10000 atau lebih Thanks & Best Regards ||---------- --------- --------- --------- --------- -|| Sidoel ----- Original Message ----- From: anton suryadi To: belajar-excel@ yahoogroups. com Sent: Monday, July 26, 2010 5:08 PM Subject: Re: [belajar-excel] memecah Data perkota Ooops, ada yg belum dikliring object variable-nya perlu ditambahkan: Set wsh = Nothing File terlampir >semoga bermanfaat ---------------------------------------------------------------------------- From: PP 03 <ppc...@sami. co.id> To: belajar-excel@ yahoogroups. com Sent: Mon, July 26, 2010 12:34:07 PM Subject: Re: [belajar-excel] memecah Data perkota terimakasih mas anton atas kodingnya tapi jika aku tambah nama kota dan data nya misal kota PATI kok tidak bisa nambah Sheet (PATI) berikut tanggal dan INV. nya ya.. di sheet (Data) tidak bisa di pastikan sampai baris keberapa dan berapa jumlah kota yang di input di sheet (Data) tersebut mohon para pakar macro excel bisa membantu Thanks & Best Regards ||---------- --------- --------- --------- --------- -|| Sidoel ----- Original Message ----- From: anton suryadi To: belajar-excel@ yahoogroups. com Sent: Sunday, July 25, 2010 5:40 PM Subject: Re: [belajar-excel] memecah Data perkota iya benar pak/bu PP03, jika macro nya di letakkan di module1 maka hanya akan nambah 1 sheet saja yaitu sheet JKT,, karena seharusnya macro tersebut diletakkan di Sheet1(Data) @_@ untuk lebih jelasnya di file terlampir berikut ini. >semoga bermanfaat ---------------------------------------------------------------------------- From: PP 03 <ppc...@sami. co.id> To: belajar-excel@ yahoogroups. com Sent: Sun, July 25, 2010 9:13:34 AM Subject: Re: [belajar-ex cel] memecah Data perkota maaf mas anton coding yang di berikan sudah aku aplikasikan namun hasilnya hanya nambah 1 sheet (JKT) saja, tanggal dan Inv.nya tidak ke record padahal seharusnya ada banyak sheet sesuai nama kota dan maaf mas hendrik bosnya minta agar di di susun per sheet per kota para pakar macro mohon bantuannya Thanks & Best Regards ||---------- --------- --------- --------- --------- -|| Sidoel ----- Original Message ----- From: anton suryadi To: belajar-excel@ yahoogroups. com Sent: Friday, July 23, 2010 10:45 PM Subject: Re: [belajar-excel] memecah Data perkota 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
