Terima kasih Tante Vi dan Oom Puthut atas bantuannya.
________________________________ Dari: siti Vi <[email protected]> Kepada: [email protected] Terkirim: Jum, 23 Oktober, 2009 18:08:24 Judul: Re: [belajar-excel] Membuat Rekap Laporan maaf, walaupun di pc siti makro tetap jalan & menghasikan data yg sesuai; tetapi demi tidak membingungkan "masyarakat" , perlu ada penjelasan dikitt: (1) pada prosedur kedua (Prosedur Rekap2) yaitu prosedur yg dipanggil oleh Prosedur pertama; variable Rkp2 dan Rkp3 tidak perlu ada (lupa menghapus). Jadi prosedur2 lengkapnya Private Sub Rekap2(Rkp1 As Range) Dim n As Long, r2 As Long, r3 As Long For n = 1 To Rkp1.Rows.Count If Rkp1(n, 2) = "Sudah Kirim" Then r2 = r2 + 1 [G5].Cells(r2, 1) = r2 [G5].Cells(r2, 2) = Rkp1(n, 1) ElseIf LenB(Rkp1(n, 2)) = 0 And Rkp1(n, 3) = "Belum Kirim" Then r3 = r3 + 1 [J5].Cells(r3, 1) = r3 [J5].Cells(r3, 2) = Rkp1(n, 1) End If Next n End Sub (2) pada prosedur pertama; FfPath = "C:\Data\" hanya di-assigned jika files *.TXT yg akan dirujuk memang ada di folder tsb. ________________________________ ----- Original Message ----- From: siti Vi >To: belajar-excel@ yahoogroups. com >Sent: Friday, October 23, 2009 > 04:57PM >Subject: Re: [belajar-excel] Membuat > Rekap Laporan > >Private Sub > PROSES_Click( ) > 'siti Vi / 23 okt > 209 > Dim Rkp As Range > Dim FileNm As > String, FfPath As String, r As Long > Set Rkp = Range([b5], > [b5].End(xlDown) ) > FfPath = ThisWorkbook. Path & > "\" > ' harap diganti > dengan > ' FfPath > = "C:\DATA\" > For r = 1 To > Rkp.Rows.Count > FileNm = FfPath + > Rkp(r, 1) + ".txt" > If > LenB(Dir(FileNm) ) > 0 > Then > Rkp(r, 2) = "Sudah > Kirim" > > Else > Rkp(r, 3) = "Belum > Kirim" > End If > Next > r > Call Rekap2(Rkp) >End Sub > >Private Sub Rekap2(Rkp1 As Range) > 'siti Vi / 23 okt 209 > > Dim Rkp2 As Range, Rkp3 As > Range > '<<--- > Dim n As Long, r2 As Long, r3 As > Long > For n = 1 To > Rkp1.Rows.Count > If Rkp1(n, 2) = "Sudah > Kirim" Then > r2 = r2 + > 1 > [G5].Cells(r2, 1) = > r2 > [G5].Cells(r2, 2) = > Rkp1(n, 1) > ElseIf LenB(Rkp1(n, 2)) = 0 And > Rkp1(n, 3) = "Belum Kirim" > Then > r3 = r3 + > 1 > [J5].Cells(r3, 1) = > r3 > [J5].Cells(r3, 2) = > Rkp1(n, 1) > End If > Next > n >End Sub > "Coba Yahoo! Mail baru yang LEBIH CEPAT. Rasakan bedanya sekarang! http://id.mail.yahoo.com"
