[belajar-excel] Digest Number 1249

Milis Belajar Microsoft Excel

Messages In This Digest (4 Messages)

1a.

Re: Bagaimana mendinamiskan hasil record macro membuat customer card From: Franciscus SOG

1b.

Re: Bagaimana mendinamiskan hasil record macro membuat customer card From: Franciscus SOG

2a.

Bisakah sheet lama dicopy kesheet baru tapi beda file From: Tjahya Hartono

2b.

Re: Bisakah sheet lama dicopy kesheet baru tapi beda file From: Franciscus SOG

View All Topics | Create New Topic

Messages

1a.

Re: Bagaimana mendinamiskan hasil record macro membuat customer card

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Fri Jul 15, 2011 10:07 pm (PDT)

Dear Tjahya,

Heheh.. mirip lagu Briptu Norman..

Semoga sesuai keinginan. Untuk sheet company & issue tidak boleh ada
baris yang kosong. Baris yang dimaksud adalah baris data (sesudah
header). Untuk sheet template, saya delete header yang tidak digunakan
dan kolom kosong disampingnya. Nama perusahaan di sheet issue harus
sama dengan nama di sheet company.

Blessings,

Fran'z

On 7/16/11, Tjahya Hartono <tjahyahartono@yahoo.co.id> wrote:
> Dear master ex-cel
>
> Saya ingin membuat customer card in dalam sheet-sheet baru,tambahannya
> adalah saya perlu untuk menginput data "tanggal", "issue",pic &
> position,"cre","kmd" dan "comments" setiap saat. Adakah yang bisa membantu
> saya
>
>
>
> Regards
>
>
> Tjahya
>

Back to top

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

1b.

Re: Bagaimana mendinamiskan hasil record macro membuat customer card

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Fri Jul 15, 2011 10:17 pm (PDT)

Maaf, cuplikan vba tertinggal..

Sub CreateSheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 2 To Sheet1.UsedRange.Rows.Count
'copy sheet template
Sheets("Tmplt").Select
Sheets("Tmplt").Copy After:=Sheets(Sheets.Count)
Sheets("Tmplt (2)").Select
Sheets("Tmplt (2)").Name = Sheet1.Range("A" & i)
'isi data company
Sheet1.Activate
Sheet1.Range("A" & i & ":H" & i).Select
Selection.Copy
Sheets(Sheets.Count).Activate
'Sheets(Sheet1.Range("A" & i)).Select
Sheets(Sheets.Count).Range("B3:B10").PasteSpecial
Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
'isi data issue
baris_issue = 13
For j = 2 To Sheet2.UsedRange.Rows.Count
If Sheet2.Range("A" & j) = Sheet1.Range("A" & i) Then
Sheet2.Activate
Sheet2.Range("B" & j & ":G" & j).Select
Selection.Copy
Sheets(Sheets.Count).Activate
Sheets(Sheets.Count).Range("A" & baris_issue).PasteSpecial
Paste:=xlPasteValues, Transpose:=False
Application.CutCopyMode = False
baris_issue = baris_issue + 1
End If
Next j
'buat border
With Sheets(Sheets.Count).Range("A13:F" &
Sheets(Sheets.Count).UsedRange.Rows.Count)
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlInsideVertical).Weight = xlMedium
.Borders(xlInsideHorizontal).Weight = xlMedium
End With
Sheets(Sheets.Count).Range("A1").Select
Next i
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Sheet1.Activate
Sheet1.Range("A1").Select
MsgBox "Create customer card selesai", vbInformation, "Success.."
End Sub

Blessings

Fran'z

On 7/16/11, Tjahya Hartono <tjahyahartono@yahoo.co.id> wrote:
> Dear master ex-cel
>
> Saya ingin membuat customer card in dalam sheet-sheet baru,tambahannya
> adalah saya perlu untuk menginput data "tanggal", "issue",pic &
> position,"cre","kmd" dan "comments" setiap saat. Adakah yang bisa membantu
> saya
>
>
>
> Regards
>
>
> Tjahya
>

Back to top

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

2a.

Bisakah sheet lama dicopy kesheet baru tapi beda file

Posted by: "Tjahya Hartono" tjahyahartono@yahoo.co.id   tjahyahartono

Fri Jul 15, 2011 11:05 pm (PDT)

Dear master ex-cel,
 
 
Saya sudah belajar cara create sheet sama master kayak Stdev, Mr.Kid, Haps,dan Fransiscus, terima kasih atas pencerahaannya, nah mungkinkah di x-cel, seperti judul diatas yg saya berikan mampukah x-cel meng-cut sheet lama ke sheet baru tapi beda file. (kalo dalam ex-cel klik kanan move/copy ksheet lain)
 
 
Terima kasih
 
 
 
Tjahya H

Back to top

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

2b.

Re: Bisakah sheet lama dicopy kesheet baru tapi beda file

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Fri Jul 15, 2011 11:27 pm (PDT)

Dear Tjahya,

Bukankah fitur tersebut sudah disediakan oleh excel? Tinggal diubah
pada list To Book nya saja.

Blessings

Fran'z

On 7/16/11, Tjahya Hartono <tjahyahartono@yahoo.co.id> wrote:
> Dear master ex-cel,
>
>
> Saya sudah belajar cara create sheet sama master kayak Stdev, Mr.Kid,
> Haps,dan Fransiscus, terima kasih atas pencerahaannya, nah mungkinkah di
> x-cel, seperti judul diatas yg saya berikan mampukah x-cel meng-cut sheet
> lama ke sheet baru tapi beda file. (kalo dalam ex-cel klik kanan move/copy
> ksheet lain)
>
>
> Terima kasih
>
>
>
> Tjahya H

Back to top

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

Recent Activity

•  12
  New Members
•  3
  New Links

Visit Your Group

Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

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