Messages In This Digest (3 Messages)

1a.: Re: Makro mengekstraksi data vertikal menjadi data horizontal From: anton suryadi

2a.: Re: Lama Kerja From: jkssxls Sudarsono

3a.: Re: pembulatan From: paulroth

View All Topics | Create New Topic

Messages

1a.: Re: Makro mengekstraksi data vertikal menjadi data horizontal

Posted by: "anton suryadi" summonery@yahoo.com summonery

Sat Feb 4, 2012 8:40 am (PST)

Berikut ini mirip dengan script bung Arie,
+1 dengan tetap mempertahankan data asal seperti sedia kala.
coba,

Sub ekstrak()
'anton suryadi, 4/Feb/2012
lr = Cells(Rows.Count, 1).End(xlUp).Row
dt = Cells(1).Resize(lr)
Cells(1).Resize(lr).Sort Cells(1)
k = 1: b = 1
Sheet2.Cells(1).CurrentRegion.Clear
For i = 1 To lr
If Left(Cells(i, 1), 11) <> Left(Cells(i + 1, 1), 11) Then
Range(Cells(b, 1), Cells(i, 1)).Copy Sheet2.Cells(k)
k = k + 1: b = i + 1
End If
Next
Cells(1).Resize(lr) = dt
End Sub

File terlampir

>semoga bermanfaat

________________________________
From: Arie Bowo Witjaksono <arie_b_w@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, February 3, 2012 3:00 PM
Subject: Re: [belajar-excel] Makro mengekstraksi data vertikal menjadi data horizontal

Dear P. Andre,

Coba makro terlampir.

Sub Extract()
Application.ScreenUpdating = False
    Set Sumber = Range("a1").CurrentRegion 'mencari banyaknya data
    Sumber.Sort Range("a1"), xlAscending
    banyak = Sumber.Rows.Count
    tempcari = 1 'temporary untuk copy range
    tempcolumn = 1 'temporary untuk paste column
    For i = 1 To banyak
      If Left(Cells(i, 1), 11) <> Left(Cells(i + 1, 1), 11) Then 'pengecekan dengan cells berikutnya
          Range(Cells(tempcari, 1), Cells(i, 1)).Copy
          Sheets("SheetHasil").Select
          Cells(1, tempcolumn).Select
          ActiveCell.PasteSpecial
xlPasteValuesAndNumberFormats
          Sheets("DataAsal").Select
          tempcolumn = tempcolumn + 1
          tempcari = i + 1
      End If
    Next i
Application.ScreenUpdating = True
End Sub

Regards,

Arie

--- On Fri, 2/3/12, andri apriyadi <andreemobile@yahoo.co.id> wrote:

>From: andri apriyadi <andreemobile@yahoo.co.id>
>Subject: [belajar-excel] Makro mengekstraksi data vertikal menjadi data horizontal
>To: belajar-excel@yahoogroups.com
>Date: Friday, February 3, 2012, 12:34 AM
>
>
>
>Salam Para Pakar Excel
>
>Jika dengan menggunakan tombol Makro, bagaimana mengekstraksi deretan data vertikal menjadi data berbentuk horizontal (menyamping) sesuai dengan kategorinya?
>
>Contoh kasus ada dalam lampiran. Terima Kasih atas bantuannya.
>
>Regards
>
>
>Andree
>
>

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

2a.: Re: Lama Kerja

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Sat Feb 4, 2012 12:41 pm (PST)

gunakan rumus :=DATEDIF(C5,J5,"y") & " tahun "& MOD(DATEDIF(C5,J5,"m"),12) & " bulan"
To: belajar-excel@yahoogroups.com
From: d_yuliyanto@yahoo.com
Date: Wed, 1 Feb 2012 22:45:22 -0800
Subject: [belajar-excel] (unknown)

Dear all,,
maaf bapak saya mau minta rumus untuk membuat lama masa kerja.. terhitung dari tanggal masuk sampai per 1 februari 2012..berikut saya lampirkan formatnya.. terima kasih.. Terimakasih,

Danang
Yuliyanto
Email : d_yuliyanto@yahoo.com
yuliyanto.danang@gmail.com
Contact : +6281-332-785-472

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

3a.: Re: pembulatan

Posted by: "paulroth" iq_bal76id@yahoo.com iq_bal76id

Sat Feb 4, 2012 12:41 pm (PST)

Hi mr Kid, terima kasih atas jawabannya.
kalau 500 pembulatan menjadi ke atas.
saya sudah mencoba dengan fungsi "Mround" dan ternyata bisa. dengan format, :

=Mround(D1,1000)
atau bila langsung pada kolom perkalian bisa menggunakan format :

=Mround((A1*B1),1000), sehingga dengan fungsi diatas, saya tidak lagi memakai kolom D.
okay, terima kasih atas masukannya.

Salam
Paulroth

--- In belajar-excel@yahoogroups.com, "Kid Mr." <mr.nmkid@...> wrote:
>
> Hai paulroth,
>
> dari keinginan berikut :
> "keinginan saya adalah melakukan pembulatan dibawah 500 dibulatkan ke
> bawah, dan jika diatas 500 dibulatkan ke atas. sehingga jadinya seperti
> kolom D."
> jika nilainya adalah 500 akan dibulatkan atau tidak ya ?
>
> Jika pembulatan <500 adalah turun dan >=500 adalah naik,
> =round( nilainya , -3 )
>
> Salam,
> Kid.
>
> 2012/2/3 paulroth <iq_bal76id@...>
>
> > **
> >
> >
> > Salam Kenal, saya new member disini,
> > saya mau bertanya tentang logika rumus pembulatan.
> > data saya :
> >
> > 4500 1.65 Rp7,425.00 Rp7,000.00
> > 4500 2 Rp9,000.00 Rp9,000.00
> > 4500 2.35 Rp10,575.00 Rp11,000.00
> > 4500 2.7 Rp12,150.00 Rp12,000.00
> > 4500 3.05 Rp13,725.00 Rp14,000.00
> > 4500 3.4 Rp15,300.00 Rp15,000.00
> > 4500 3.75 Rp16,875.00 Rp17,000.00
> > 4500 4.1 Rp18,450.00 Rp18,000.00
> > 4500 4.45 Rp20,025.00 Rp20,000.00
> > 4500 4.8 Rp21,600.00 Rp12,000.00
> >
> > Kolom A adalah Harga bahan bakar 1 liter, sedangkan kolom B adalah jumlah
> > dikonsumsi.
> > kolom C adalah hasil perkalian dari kolom A dan B. keinginan saya adalah
> > melakukan pembulatan dibawah 500 dibulatkan ke bawah, dan jika diatas 500
> > dibulatkan ke atas. sehingga jadinya seperti kolom D.
> > terima kasih sebelumnya.
> >
> > Salam
> >
> >
> >
> >
>

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

Minggu, 05 Februari 2012

[belajar-excel] Digest Number 1503

Messages In This Digest (3 Messages)

Messages

Re: Makro mengekstraksi data vertikal menjadi data horizontal

Posted by: "anton suryadi" summonery@yahoo.com summonery

Sat Feb 4, 2012 8:40 am (PST)

Re: Lama Kerja

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Sat Feb 4, 2012 12:41 pm (PST)

Re: pembulatan

Posted by: "paulroth" iq_bal76id@yahoo.com iq_bal76id

Sat Feb 4, 2012 12:41 pm (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me