Messages In This Digest (3 Messages)

1a.: Fw: [belajar-excel] Macro Print From: hendrik karnadi

2a.: Re: Trs: case Mandays From: Rara Wilis

3a.: Re: Menghilangkan angka "0" From: hartini_80@yahoo.co.id

View All Topics | Create New Topic

Messages

1a.: Fw: [belajar-excel] Macro Print

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Wed Apr 11, 2012 11:29 pm (PDT)

Terima kasih Pak Sudarsono atas koreksinya.
Khusus mengenai Range("A1") = i, waktu saya uji coba (file terlampir) Range("A1) langsung saya isi formula "=N7" (angka awal).

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: jkssxls Sudarsono <jkssxls@hotmail.com>
To: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups.com>
Sent: Thursday, 12 April 2012, 11:33
Subject: RE: [belajar-excel] Macro Print

Saya modif sedikit :

Sub CetakOto()
    Dim i As Integer
    Sheets("Lap_Hsl_Try").Select
' Cek Pilihan
    If Range("L7") = "" Then Exit Sub
    If Range("N7") = "" Then Exit Sub
    If Range("L7") > Range("N7") Then Exit Sub
    For i = Range("L7") To Range("N7")
        Range("A1") = i
        If WorksheetFunction.IsNA(Range("E13")) Then
            AdaData = False
        ElseIf Range("E13") = "" Then
            AdaData = False
        Else
            AdaData = True
        End If
        If AdaData Then
            ActiveWindow.SelectedSheets.PrintPreview            ' .PrintOut copies:=1, Collate:=True
        End If
    Next
End Sub

________________________________
To: belajar-excel@yahoogroups.com
From: hendrikkarnadi@yahoo.com
Date: Wed, 11 Apr 2012 20:39:55 -0700
Subject: Re: [belajar-excel] Macro Print

Seperti pepatah mengatakan "Sekali dayung dua tiga pulau terlampaui" maka point 1 dan 2 dapat digabungkan pada tombol Cetak (2) dimulai dari no (angka) pada sel N7 dan berakhir pada angka L7.

Perintah ini diattached pada tombol Cetak (2)
Sub CetakOto()
Dim i As Integer
For i = Range("N7") To Range("L7")
ActiveSheet.PrintPreview 'untuk cetak ganti dengan ActiveSheet.PrintOut
Range("N7") = Range("N7") + 1
Next
End Sub

Salam,
Hendrik Karnadi

________________________________
From: Jufri Devis <kuok_bevel@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 12 April 2012, 9:54
Subject: [belajar-excel] Macro Print

Teman2,
Mohon bantuannya untuk sempurnakan Macro Printnya ya (contoh filenya ada di Lampiran) :
1. Perintah Cetak(1) maunya 1x klik akan mencetak satu persatu sampai 32 kali, sekarang ini saya harus meng "klik" 32 kali
2. Perintah Cetak(2) dapat memilih nomor yang akan dicetak sesuai nomor yang diinginkan.

Terima kasih.

Wasalam,
Jufri

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

2a.: Re: Trs: case Mandays

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Wed Apr 11, 2012 11:46 pm (PDT)

sepi yaa..

Bapak...
tidak ada penjelasannya kah ?
di badan email hanya "mohon pencerahan"
di lampiran hanya ada tabel2 yg tidak ada penjelasannya

Sambil menunggu members lain yg *langsung tahu maksud*nya,
jika Bapak ada kesempatan, bolehkah kpd kami diberi informasi:

- ini mengenai apa..
- mana inputnya..
- mana outputnya..
- mau-nya (proses yg disyaratkan) bgmana..
- contoh hasil seperti apa..

standarnya 'kan begitu..

maaf ya Bapak, bukan mencarikan solusi tapi malah bertanya...

wassalam
~Rr
*

*
*On Thu, Apr 12, 2012 at 11:12 AM, Aghoest Iwan <aghoestiwan@yahoo.com>wrote:
*
>
> * *
> *Dear all Masters..*
> *Mohon pencerahannya atas kasus terlampir..*
> *Maaf merepotkan..semoga dengan arahan para master, saya bisa tambah
> wawasannya.*
> *Terima kasih..*
> *Iwan.*
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

3a.: Re: Menghilangkan angka "0"

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80

Thu Apr 12, 2012 12:09 am (PDT)

Terima kasih ya atas bantuannya
Salam
Tini
Powered by Telkomsel BlackBerry�

-----Original Message-----
From: Rara Wilis <ra2wilis@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 12 Apr 2012 13:26:59
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghilangkan angka "0"

Sub PsikoNumGenerator()
'-------------------------------------
' ModifiedBy : Rr_Wilis / 12 Apr 2012
' BeExcel Case No: # 16740 / Hartini
'-------------------------------------
Dim N As Integer, Angka As Integer
Dim StrN As String, LnFeed As String, Garis As String
Randomize
N = InputBox("Jumlah angka yang akan dibuat", "BANYAKNYA DATA")
If Not IsNumeric(N) Then Exit Sub
If Int(N) = 0 Then Exit Sub

For i = 1 To N
Angka = Int(Rnd(i) * 10)
If i Mod 20 = 0 Then LnFeed = vbCrLf Else LnFeed = ""
If (i + 20) Mod 200 = 0 Then Garis = "__" Else Garis = ""
If Angka = 0 Then
StrN = StrN & LnFeed & Garis & vbTab
Else
StrN = StrN & LnFeed & Garis & vbTab & Angka
End If
Next

Selection.TypeText Text:=StrN
End Sub

Rara tidak suka dengan object shape misalnya Line
Object tsb sulit di letakkan di tempat yg berhubungan dengan beradanya
suatu text tertentu; karena Line (dan shape lainnya) sebetulnya berada di
LAYER LAIN
(tidak se LAYER dengan Text di dalam dokumen.
Oleh karena itu bisa dipindah kemana saja. *CMIIW*
LINE yg diminta oleh mbak Hartini diganti dengan* text "__"*

Menjalankan makronya masih belum diotomatiskan:
- hapus dulu data yg ada di dokumen
*- Alt + F8 > pilih nama makro ( PsikoNumGenerator )*
*- klik tombol RUN*

warm regards,
~Rara

*
On Thu, Apr 12, 2012 at 10:15 AM, <hartini_80@yahoo.co.id> wrote:
>
> Dear All,
> Saya ingin membuat kreaplin, tetapi hasil yg saya inginkan kurang
sempurna, *
*> saya ingin menghilangkan angka 0 yang muncul serta menambahkan garis
datar *
*> disetiap 10 barisnya, contoh hasil yg diinginkan ada pada lampiran.
> Mohon bantuan dr rekan2 semua
> Salam
> Tini*

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

EXCEL FEED

Kamis, 12 April 2012

[belajar-excel] Digest Number 1581

Messages In This Digest (3 Messages)

Messages

Fw: [belajar-excel] Macro Print

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Wed Apr 11, 2012 11:29 pm (PDT)

Re: Trs: case Mandays

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Wed Apr 11, 2012 11:46 pm (PDT)

Re: Menghilangkan angka "0"

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80

Thu Apr 12, 2012 12:09 am (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me