[belajar-excel] Digest Number 1463

Milis Belajar Microsoft Excel

Messages In This Digest (25 Messages)

1.

Input file dari komputer client From: Arafir Primasyah

2a.

Re: Shorting n Delete listbox From: i Haps

2b.

Re: Shorting n Delete listbox From: Asror Cakep

2c.

Re: Shorting n Delete listbox From: Adi Irawan

2d.

Re: Shorting n Delete listbox From: i Haps

2e.

Re: Shorting n Delete listbox From: Adi Irawan

3a.

Re: Penjumlahan From: i Haps

3b.

Re: Penjumlahan From: summonery

4a.

Beda Print Area ama Page break From: utthank abe

4b.

Re: Beda Print Area ama Page break From: i Haps

4c.

Re: Beda Print Area ama Page break From: mail4muja@yahoo.co.id

4d.

Re: Beda Print Area ama Page break From: Aliif Akbar

5a.

filtering karakter (lagi) dan save data pada sheet yg sesuai karakte From: Reza F

5b.

Re: filtering karakter (lagi) dan save data pada sheet yg sesuai kar From: o' Seno

5c.

Re: filtering karakter (lagi) dan save data pada sheet yg sesuai kar From: o' Seno

5d.

Re: filtering karakter (lagi) dan save data pada sheet yg sesuai kar From: Reza F

5e.

Re: filtering karakter (lagi) dan save data pada sheet yg sesuai kar From: Kid Mr.

5f.

Re: filtering karakter (lagi) dan save data pada sheet yg sesuai kar From: o' Seno

6a.

Re: Bls: [belajar-excel] Nomor otomatis berdasarkan tanggal From: Bachelor Ard

7a.

Formula VLOOKUP From: Henry Sitohang

7b.

Re: Formula VLOOKUP From: o' Seno

7c.

Re: Formula VLOOKUP From: o' Seno

7d.

Re: Formula VLOOKUP From: Henry Sitohang

8a.

membuat penempatan sel dalam satu baris yang sama, akan muncul perin From: Giyanto Widodo

8b.

Re: membuat penempatan sel dalam satu baris yang sama, akan muncul p From: i Haps

View All Topics | Create New Topic

Messages

1.

Input file dari komputer client

Posted by: "Arafir Primasyah" arafirprimasyah@yahoo.com   arafirprimasyah

Wed Jan 4, 2012 10:02 am (PST)

Dear Pakar Excel,

saya ada beberapa permasalahan,

bagaimana input file dari komputer client kemudian hasil inputan tersebut masuk kedalam file master di komputer server
maaf jika pertanyaan seperti ini sudah ada yang menanyakan(jika sudah bisa dikirimkan link file downloadnya)

Terima kasih,
Arafirprimasyah

Back to top

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

2a.

Re: Shorting n Delete listbox

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Wed Jan 4, 2012 11:00 am (PST)

Terus terang aku ndak tahu babar-blass: arti *"SHORTING and delete Listbox"*
Kalau* "Sorting"* aku tahu sedikit, katanya: pengUrutan, data yg tidak urut
(secara
alfabetik, atau numerik atau alpanumerik, atau kronologik, mau diurutkan,
dari tidak urut
dibuat urut...
Kalau SHORTING ?? mungkin "pemendekan" , orang yg semula tinggi semampai,
dipendekkan menjadi setinggi Firdaus Mini..., atau apa ya ? hanya Asror -
lah yg tahu...

Misalnya hanya salah tulis, sorting tertulis shorting, tapi "sorting and
delete listbox"
apakah setelah itemnya berhasil diurutkan lalau object ListBox-nya yg harus
didelete?
atau bgmana ???

Sebenarnya, jika kita punya problem / masalah yg ingin dicari solusinya;
maka jika
kita sanggup mendeskripsikan masalah tsb secara sederhana, jelas, logis,
bening,
mudah dipahami oleh diri-sendiri maupun orang lain;... maka 50 % pemecahan
masalah
sudah ada ditangan kita; hanya belum dilaksanakan saja...

Tetapi jika deskripsi mengenai masalah itu sendiri kacauw-balauw, inilah
tanda yg
begitu jelas, bahwa pemecahannya akan dirasa sulit malah mungkin gagal.
Bagimana mungkin menemukan solusinya, jika deskripsinya saja kita ndak
jelas !?

Di dalam tulisan pendek "VBA at a Glance", Yu Siti menutup tulisan itu
dengan bersabda:

"Satu lagi hal kecil: Anda harus mengetahui maksud dan keinginan Anda,
serta dapat menjabarkan
keinginan tsb, paling tidak kerangkanya:
*Sesuatu (yang jelas) - yang dulunya cuma begitu (juga jelas) - ingin
dijadikan begini (juga jelas).*

Bila salah satu dari *tiga urusan yang harusnya jelas* itu ternyata belum
jelas bagi Anda, sebaiknya
jangan mulai menuliskan VBA-Code-nya dulu. Lebih berguna bila Anda mencari
kejelasan keinginan
Anda lebih dahulu, karena bila dituliskan VBA-Code-nya, hasilnya pun, bila
jadi, jangan jangan juga
tidak begitu jelas asupan apalagi keluarannya.

==========================
Dim Rng As Range
' Coded By: indri Hapsari / jkt, 04 Jan 2011
' beExcel Case # 15007
' http://tech.groups.yahoo.com/group/belajar-excel/message/15007
'-------------------------------------------
Private Sub DTPicker1_Change()
Select Case DTPicker1.Value
Case Is > DTPicker2: DTPicker1 = DTPicker2
Case Is < Rng(1, 1): DTPicker1 = Rng(1, 1)
End Select
UpdateListBox DTPicker1, DTPicker2
End Sub

Private Sub DTPicker2_Change()
Select Case DTPicker2.Value
Case Is > Rng(Rng.Rows.Count, 1): DTPicker2 = Rng(Rng.Rows.Count, 1)
Case Is < DTPicker1: DTPicker2.Value = DTPicker1
End Select
UpdateListBox DTPicker1, DTPicker2
End Sub

Private Sub UpdateListBox(DateMin As Date, DateMax As Date)
' Coded By: indri Hapsari / jkt, 04 Jan 2011
' beExcel Case # 15007
'-------------------------------------------
Dim i As Integer, iR As Integer, iC
Application.EnableEvents = False
With ListBox1
.Clear
If Not Rng Is Nothing Then
iR = -1
For i = 1 To Rng.Rows.Count
If Rng(i, 1).Value >= DateMin Then
If Rng(i, 1).Value <= DateMax Then
iR = iR + 1
.AddItem
For iC = 0 To Rng.Columns.Count - 1
If iC = 0 Then .List(iR, iC) = _
Format(Rng(i, iC + 1), "dd-mmm-yyyy") _
Else .List(iR, iC) = Rng(i, iC + 1)
Next iC
End If
End If
Next i
End If
End With
Application.EnableEvents = True
End Sub

Private Sub UserForm_Initialize()
' Coded By: indri Hapsari / jkt, 04 Jan 2011
' beExcel Case # 15007
'-------------------------------------------
ReDefine_Table
If Not Rng Is Nothing Then
Rng.Sort Key1:=Rng(1, 1)
DTPicker1.Value = Rng(1, 1)
DTPicker2.Value = Rng(Rng.Rows.Count, 1)
With ListBox1
.MultiSelect = fmMultiSelectExtended
.ListStyle = fmListStyleOption
.BoundColumn = 1
.ColumnCount = Rng.Columns.Count
.Width = 320
.ColumnWidths = "90 pt;120 pt;90 pt;1 pt"
.ColumnHeads = False
.TextColumn = True ' <<---mau dimanfaatkan untuk apa ya?
UpdateListBox DTPicker1, DTPicker2
.ListIndex = 0
End With
End If
End Sub

Private Sub CmdDelete_Click()
' Coded By: indri Hapsari / jkt, 04 Jan 2011
' beExcel Case # 15007
'-------------------------------------------
Dim n As Long, r As Long, IsSelect As Boolean
With ListBox1
For n = .ListCount - 1 To 0 Step -1
If .Selected(n) = True Then
IsSelect = True
r = ListBox1.List(n, Rng.Columns.Count - 1)
Rng(r, 1).Resize(1, Rng.Columns.Count).Delete Shift:=xlUp
End If
Next n
End With
If Not Rng Is Nothing Then
If IsSelect Then
ListBox1.Clear
ReDefine_Table
DTPicker1 = Rng(1, 1)
DTPicker2 = Rng(Rng.Rows.Count, 1)
UpdateListBox DTPicker1, DTPicker2
IsSelect = False
End If
End If
End Sub

Private Sub ReDefine_Table()
' Coded By: indri Hapsari / jkt, 04 Jan 2011
' beExcel Case # 15007
'-------------------------------------------
Dim r As Long
Set Rng = Sheet1.Range("a1").CurrentRegion.Offset(1)
If Rng.Rows.Count > 1 Then
Set Rng = Rng.Resize(Rng.Rows.Count - 1, Rng.Columns.Count)
For r = 1 To Rng.Rows.Count
Rng(r, Rng.Columns.Count) = r
Next r
Else
Set Rng = Nothing
End If
End Sub
'==========================

*2012/1/4 Aliif Akbar <asrorcakep@yahoo.com>
* from: Aliif Akbar asrorcakep@yahoo.com to: belajar-excel@yahoogroups.com
date: Wed, Jan 4, 2012 at 5:08 PM subject: [belajar-excel] *Shorting n
Delete listbox*
*> Selamat sore,
> Dear Master Excel BeExcel,
> Mau tanya nee, mohon maaf kalau sebelumnya pertanyaan saya pernah dibahas,
> misal : tanggal dari di isi 5-Jan-12 dan tanggal sampai di isi 9-Jan-12
ketika button short *
*> (atau otomatis ketika tanggal dipilih ) di klik maka tampilan yang ada
di listbox hanya *
*> menampilkan data yang dari tanggal 5-jan-12 s.d 9-Jan-12 ketika button
delete di hapus, *
*> maka akan mendelete data yang ada di sheet sesuai yang dipilih
> terimakasih.
>
> ASROR
>
> Detail ada di attachment, itu lampiran saya edit dari file yang beberapa
hari lalu dibahas di milis, *
*> saya edit kolom tabelnya saja,
> Terimakasih,*
*
*

Back to top

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

2b.

Re: Shorting n Delete listbox

Posted by: "Asror Cakep" asrorcakep@yahoo.com   asrorcakep

Wed Jan 4, 2012 3:52 pm (PST)

Mbak i Haps,
untuk namanya sendiri saya kurang tahu, setahu saya namanya sorting gitu :D
tapi saya barusan buka attachmennya, keren, luar biasa,..
terimakasih mbak iHaps,

warm regards
ASR

________________________________
From: i Haps <hapsari.stlizbeth@gmail.com>
Sent: Wednesday, January 4, 2012 10:59 AM
Subject: Re: [belajar-excel] Shorting n Delete listbox
 
Terus terang aku ndak tahu babar-blass: arti "S H O R T I N G and delete Listbox"
Kalau "Sorting"
aku tahu sedikit, katanya: pengUrutan, data yg tidak urut (secara alfabetik, atau numerik atau alpanumerik, atau kronologik, mau diurutkan, dari tidak urut dibuat urut...

Kalau SHORTING ??
Misalnya hanya salah tulis, sorting tertulis shorting, tapi "sorting and delete listbox"?
apakah setelah itemnya berhasil diurutkan lalau object ListBox-nya yg harus didelete? atau bgmana ???

Bagimana menemukan solusinya, jika deskripsinya saja kita ndak jelas !?

==========================
Dim Rng As Range
' Coded By: indri Hapsari / jkt, 04 Jan 2011
' beExcel Case # 15007
' http://tech.groups.yahoo.com/group/belajar-excel/message/15007
'-------------------------------------------

Private Sub DTPicker1_Change()
   Select Case DTPicker1.Value
      Case Is > DTPicker2: DTPicker1 = DTPicker2
      Case Is < Rng(1, 1): DTPicker1 = Rng(1, 1)
   End Select
   UpdateListBox DTPicker1, DTPicker2
End Sub

Private Sub DTPicker2_Change()
   Select Case DTPicker2.Value
      Case Is > Rng(Rng.Rows.Count, 1): DTPicker2 = Rng(Rng.Rows.Count, 1)
      Case Is < DTPicker1: DTPicker2.Value = DTPicker1
   End Select
   UpdateListBox DTPicker1, DTPicker2
End Sub

Private Sub UpdateListBox(DateMin As Date, DateMax As Date)
   Dim i As Integer, iR As Integer, iC
   Application.EnableEvents = False
   With ListBox1
      .Clear
      If Not Rng Is Nothing Then
         iR = -1
         For i = 1 To Rng.Rows.Count
            If Rng(i, 1).Value >= DateMin Then
               If Rng(i, 1).Value <= DateMax Then
                  iR = iR + 1
                  .AddItem
                  For iC = 0 To Rng.Columns.Count - 1
                     If iC = 0 Then .List(iR, iC) = _
                     Format(Rng(i, iC + 1), "dd-mmm-yyyy") _
                     Else .List(iR, iC) = Rng(i, iC + 1)
                  Next iC
               End If
            End If
         Next i
      End If
   End With
   Application.EnableEvents = True
End Sub

Private Sub UserForm_Initialize()
   ReDefine_Table
   If Not Rng Is Nothing Then
      Rng.Sort Key1:=Rng(1, 1)
      DTPicker1.Value = Rng(1, 1)
      DTPicker2.Value = Rng(Rng.Rows.Count, 1)
      With ListBox1
         .MultiSelect = fmMultiSelectExtended
         .ListStyle = fmListStyleOption
         .BoundColumn = 1
         .ColumnCount = Rng.Columns.Count
         .Width = 320
         .ColumnWidths = "90 pt;120 pt;90 pt;1 pt"
         .ColumnHeads = False
         .TextColumn = True ' <<---mau dimanfaatkan untuk apa ya?
          UpdateListBox DTPicker1, DTPicker2
         .ListIndex = 0
      End With
   End If
End Sub

Private Sub CmdDelete_Click()
   Dim n As Long, r As Long, IsSelect As Boolean
   With ListBox1
      For n = .ListCount - 1 To 0 Step -1
         If .Selected(n) = True Then
            IsSelect = True
            r = .List(n, Rng.Columns.Count - 1)
            Rng(r, 1).Resize(1, Rng.Columns.Count).Delete Shift:=xlUp
         End If
      Next n
   End With
   If Not Rng Is Nothing Then
      If IsSelect Then
         ListBox1.Clear
         ReDefine_Table
         DTPicker1 = Rng(1, 1)
         DTPicker2 = Rng(Rng.Rows.Count, 1)
         UpdateListBox DTPicker1, DTPicker2
         IsSelect = False
      End If
   End If
End Sub

Private Sub ReDefine_Table()
   Dim r As Long
   Set Rng = Sheet1.Range("a1").CurrentRegion.Offset(1)
   If Rng.Rows.Count > 1 Then
      Set Rng = Rng.Resize(Rng.Rows.Count - 1, Rng.Columns.Count)
      For r = 1 To Rng.Rows.Count
         Rng(r, Rng.Columns.Count) = r
      Next r
   Else
      Set Rng = Nothing
   End If
End Sub
'==========================

from:  Aliif Akbar asrorcakep@yahoo.com
to:  belajar-excel@yahoogroups.com
date:  Wed, Jan 4, 2012 at 5:08 PM
subject:  [belajar-excel] Shorting n Delete listbox

> Selamat sore,
> Dear Master Excel BeExcel,
> Mau tanya nee, mohon maaf kalau sebelumnya pertanyaan saya pernah dibahas,
> misal : tanggal dari di isi 5-Jan-12 dan tanggal sampai di isi 9-Jan-12 ketika button short 
> (atau otomatis ketika tanggal dipilih ) di klik maka tampilan yang ada di listbox hanya 
> menampilkan data yang dari tanggal 5-jan-12 s.d 9-Jan-12 ketika button delete di hapus, 
> maka akan mendelete data yang ada di sheet sesuai yang dipilih
> terimakasih.
>
> ASROR
>
> Detail ada di attachment, itu lampiran saya edit dari file yang beberapa hari lalu dibahas di milis, 
> saya edit kolom tabelnya saja,
> Terimakasih,

Back to top

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

2c.

Re: Shorting n Delete listbox

Posted by: "Adi Irawan" airawanp@gmail.com

Wed Jan 4, 2012 6:30 pm (PST)

Mba..saya coba jalankan makronya tapi ga bisa ya ? pesanya saya
capture ( see attchmnt ),

Mohon bantuannya,

On 1/5/12, Asror Cakep <asrorcakep@yahoo.com> wrote:
> Mbak i Haps,
> untuk namanya sendiri saya kurang tahu, setahu saya namanya sorting gitu :D
> tapi saya barusan buka attachmennya, keren, luar biasa,..
> terimakasih mbak iHaps,
>
> warm regards
> ASR
>
>
> ________________________________
> From: i Haps <hapsari.stlizbeth@gmail.com>
> Sent: Wednesday, January 4, 2012 10:59 AM
> Subject: Re: [belajar-excel] Shorting n Delete listbox
>
> Terus terang aku ndak tahu babar-blass: arti "S H O R T I N G and delete
> Listbox"
> Kalau "Sorting"
> aku tahu sedikit, katanya: pengUrutan, data yg tidak urut
> (secara alfabetik, atau numerik atau alpanumerik, atau kronologik, mau
> diurutkan, dari tidak urut dibuat urut...
>
> Kalau SHORTING ??
> Misalnya hanya salah tulis, sorting tertulis shorting, tapi "sorting and
> delete listbox"?
> apakah setelah itemnya berhasil diurutkan lalau object ListBox-nya yg harus
> didelete? atau bgmana ???
>
> Bagimana menemukan solusinya, jika deskripsinya saja kita ndak jelas !?
>
>
> ==========================
> Dim Rng As Range
> ' Coded By: indri Hapsari / jkt, 04 Jan 2011
> ' beExcel Case # 15007
> ' http://tech.groups.yahoo.com/group/belajar-excel/message/15007
> '-------------------------------------------
>
> Private Sub DTPicker1_Change()
> Select Case DTPicker1.Value
> Case Is > DTPicker2: DTPicker1 = DTPicker2
> Case Is < Rng(1, 1): DTPicker1 = Rng(1, 1)
> End Select
> UpdateListBox DTPicker1, DTPicker2
> End Sub
>
> Private Sub DTPicker2_Change()
> Select Case DTPicker2.Value
> Case Is > Rng(Rng.Rows.Count, 1): DTPicker2 = Rng(Rng.Rows.Count, 1)
> Case Is < DTPicker1: DTPicker2.Value = DTPicker1
> End Select
> UpdateListBox DTPicker1, DTPicker2
> End Sub

Back to top

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

2d.

Re: Shorting n Delete listbox

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Wed Jan 4, 2012 6:59 pm (PST)

*Object Control bernama "DTPicker "*
Apakah anda sudah kenal dengan artis satu ini ?

Si dia ini bentuk tubuh dan wajahnya seperti combobox (termasuk "bulu mata
anti-badai"-nya)
tetapi kalau di klik, muncul Kalender / Jam nya (sesuai setting kita).
Gunanya untuk menginput data DATE atau data TIME secara akurat dan GAMPANG.

Dapat ditebak : komputer pak Adi belum ada file yg bertanggung-jawab
mengenai tersedianya
object control bernama DTPicker *cs*, yaitu file bernama MSCOMCT32.OCX
Atau komputer pak Adi dan operating-system-nya sudah berarsitektur 64 bit ??

Terlampir sekelompok file yg sudah di kompak-kan dalam 1 file zip /
"About_DTPicker" <http://www.box.com/s/2svbn8rkf1z6bu4859ip>
isinya selain penjelasan, contoh pemakaian, juga FILE MSCOMCT32.OCX itu
sendiri
( sekitar 468 KB )

Jika saya lupa melampirkannya, anda dapat "bertindak" proaktif mengunduh
sendiri di sini
http://www.box.com/s/2svbn8rkf1z6bu4859ip

- i -

2012/1/5 Adi Irawan <airawanp@gmail.com>

> **
>
> Mba..saya coba jalankan makronya tapi ga bisa ya ? pesanya saya
> capture ( see attchmnt ),
> Mohon bantuannya,
> > ________________________________
> > From: i Haps <hapsari.stlizbeth@gmail.com>
> > Sent: Wednesday, January 4, 2012 10:59 AM
> > Subject: Re: [belajar-excel] Shorting n Delete listbox
> >
> > ==========================
> > Dim Rng As Range
> > ' Coded By: indri Hapsari / jkt, 04 Jan 2011
> > ' beExcel Case # 15007
> > '-------------------------------------------
> >
> > *Private Sub DTPicker1_Change()*
> > Select Case DTPicker1.Value
> > Case Is > *DTPicker2: DTPicker1 = DTPicker2*
> > Case Is < Rng(1, 1): *DTPicker1* = Rng(1, 1)
> > End Select
> > UpdateListBox* DTPicker1, DTPicker2*
> > End Sub
>
>

Back to top

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

2e.

Re: Shorting n Delete listbox

Posted by: "Adi Irawan" airawanp@gmail.com

Wed Jan 4, 2012 8:09 pm (PST)

Wah hebat2..memang tidak salah saya joint di milis ini..

Makasih banyak ya mba, ini referensi yang sangat bagus bagi saya,hehe

On 1/5/12, i Haps <hapsari.stlizbeth@gmail.com> wrote:
> *Object Control bernama "DTPicker "*
> Apakah anda sudah kenal dengan artis satu ini ?
>
> Si dia ini bentuk tubuh dan wajahnya seperti combobox (termasuk "bulu mata
> anti-badai"-nya)
> tetapi kalau di klik, muncul Kalender / Jam nya (sesuai setting kita).
> Gunanya untuk menginput data DATE atau data TIME secara akurat dan GAMPANG.
>
> Dapat ditebak : komputer pak Adi belum ada file yg bertanggung-jawab
> mengenai tersedianya
> object control bernama DTPicker *cs*, yaitu file bernama MSCOMCT32.OCX
> Atau komputer pak Adi dan operating-system-nya sudah berarsitektur 64 bit ??
>
> Terlampir sekelompok file yg sudah di kompak-kan dalam 1 file zip /
> "About_DTPicker" <http://www.box.com/s/2svbn8rkf1z6bu4859ip>
> isinya selain penjelasan, contoh pemakaian, juga FILE MSCOMCT32.OCX itu
> sendiri
> ( sekitar 468 KB )
>
> Jika saya lupa melampirkannya, anda dapat "bertindak" proaktif mengunduh
> sendiri di sini
> http://www.box.com/s/2svbn8rkf1z6bu4859ip
>
> - i -
>
>
>
>
> 2012/1/5 Adi Irawan <airawanp@gmail.com>
>
>> **
>>
>> Mba..saya coba jalankan makronya tapi ga bisa ya ? pesanya saya
>> capture ( see attchmnt ),
>> Mohon bantuannya,
>> > ________________________________
>> > From: i Haps <hapsari.stlizbeth@gmail.com>
>> > Sent: Wednesday, January 4, 2012 10:59 AM
>> > Subject: Re: [belajar-excel] Shorting n Delete listbox
>> >
>> > ==========================
>> > Dim Rng As Range
>> > ' Coded By: indri Hapsari / jkt, 04 Jan 2011
>> > ' beExcel Case # 15007
>> > '-------------------------------------------
>> >
>> > *Private Sub DTPicker1_Change()*
>> > Select Case DTPicker1.Value
>> > Case Is > *DTPicker2: DTPicker1 = DTPicker2*
>> > Case Is < Rng(1, 1): *DTPicker1* = Rng(1, 1)
>> > End Select
>> > UpdateListBox* DTPicker1, DTPicker2*
>> > End Sub
>>
>>
>

Back to top

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

3a.

Re: Penjumlahan

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Wed Jan 4, 2012 11:24 am (PST)

jika yg dihadapi range yg sangat luas / kolom yg sangat panjang)
dan diinginkan mengkonversi data TextAnka tsb menjadi Bilangan
langsung di cellnya..

1. Select / BLOK Range nya (rang yg ingin datanya dikonversi ke Bilangan)
*2. tekan Ctrl + SHIft + N*

(code makronya seperti ini:
Sub text2numbers()
Dim xCell As Range, N As Double
For Each xCell In Selection
* N = Trim(Val(xCell))*
* xCell.NumberFormat = "General"*
* xCell = N*
Next
End Sub
[image: short cut untuk makro.PNG]

2012/1/4 hendrik karnadi <hendrikkarnadi@yahoo.com>

> **
> Kalau mau jumlahnya saja dalam 1 kali kerja tanpa kolom bantu, gunakan
> Array Formula:
> {=SUM(VALUE(E1:E11))}
> Tanda { } akan muncul dengan sendirinya ketika anda mengakhiri formula
> dengan menekan tombol Ctrl Shift Enter pada Formula Bar.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* abu iyan99 <abu_iyan99@yahoo.com>
> *Sent:* Wednesday, 4 January 2012, 16:54
> *Subject:* [belajar-excel] Penjumlahan
>
> Terima kasih Pak, it's work.
> Untuk angka-angka di kolom E, selain dirubah type datanya menjadi
> BILANGAN, harus diedit dulu kemudian di-enter, baru menjadi angka yang
> "sesungguhnya". Bagaimana biar nggak 2 kali kerja?
>
> Terlampir contoh yang serupa.
> Terima kasih / Jaerony.-
>
>

Back to top

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

3b.

Re: Penjumlahan

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

Wed Jan 4, 2012 5:24 pm (PST)

+1 tanpa macroDengan memanfaatkan Paste Special>Operation

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, i Haps <hapsari.stlizbeth@...>
wrote:
>
> jika yg dihadapi range yg sangat luas / kolom yg sangat panjang)
> dan diinginkan mengkonversi data TextAnka tsb menjadi Bilangan
> langsung di cellnya..
>
> 1. Select / BLOK Range nya (rang yg ingin datanya dikonversi ke
Bilangan)
> *2. tekan Ctrl + SHIft + N*
>
>
> (code makronya seperti ini:
> Sub text2numbers()
> Dim xCell As Range, N As Double
> For Each xCell In Selection
> * N = Trim(Val(xCell))*
> * xCell.NumberFormat = "General"*
> * xCell = N*
> Next
> End Sub
> [image: short cut untuk makro.PNG]
>
>
>
> 2012/1/4 hendrik karnadi hendrikkarnadi@...
>
> > **
> > Kalau mau jumlahnya saja dalam 1 kali kerja tanpa kolom bantu,
gunakan
> > Array Formula:
> > {=SUM(VALUE(E1:E11))}
> > Tanda { } akan muncul dengan sendirinya ketika anda mengakhiri
formula
> > dengan menekan tombol Ctrl Shift Enter pada Formula Bar.
> >
> > Salam,
> > Hendrik Karnadi
> >
> > ------------------------------
> > *From:* abu iyan99 abu_iyan99@...
> > *Sent:* Wednesday, 4 January 2012, 16:54
> > *Subject:* [belajar-excel] Penjumlahan
> >
> > Terima kasih Pak, it's work.
> > Untuk angka-angka di kolom E, selain dirubah type datanya menjadi
> > BILANGAN, harus diedit dulu kemudian di-enter, baru menjadi angka
yang
> > "sesungguhnya". Bagaimana biar nggak 2 kali kerja?
> >
> > Terlampir contoh yang serupa.
> > Terima kasih / Jaerony.-
> >
> >
>

Back to top

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

4a.

Beda Print Area ama Page break

Posted by: "utthank abe" abeutthank@gmail.com   abe_utthank

Wed Jan 4, 2012 8:37 pm (PST)

mau nanya agan Be-Exeler zaat kita ngeprint apa perbedaan print area
ama page break.
maep pertanyaana rada goblok. mazalahnya ada dikit pedebatan ma teman
yang katanya zama zaja. makanya langzunk minta bantuan ke zini.
hehehehe

niy contoh perdebatan
http://sosektaniunhas.wordpress.com/2011/11/07/format-transkrip-nilai-kurikulum-2008/

mudah-mudahan aku tidak zok tahu :(

--
R125

Back to top

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

4b.

Re: Beda Print Area ama Page break

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Wed Jan 4, 2012 9:02 pm (PST)

ini menurut pendapatku saja ya .., pendapat orang lain bebassss..
apakah benar ataukah salah tentu bisa diuji.. karena ada libraries nya

Oleh karena ini milis excel, pembicaraan kita batasi di EXCEL sja

PRINT

print adalah tindakan mencetak : mentrasfer soft copy suatu dokument
menjadi hard copy
melalui alat yg sering dinamai "printer."

suatu dokumen yg masih berupa softcopy tidak perlu mengenal luasnya kertas
(jika
nantinyaa ia di PRINT); dan tidak mengenal seberapa luas daerah yg akan
diprint

PRINT AREA

maka dari itu, aplikasi nya (Excel) punya kemampuan memberi status:
sebuah soft copy dokumen misal katakan SEPERTI seluas 1 METER X 1.5 METER
si pemilik akan mencetak hanya sebagian saja
misalnya dari pojok kiri atas kekanannya hanya 40 CM, ke bawahnya hanya 0,5
M
maka daerah yg ditentukan untuk diumpankan ke mesin PRINTER inilah yg
disebut
PRINT AREA

di Excel , Print area dapat ditentukan secara manual, tetapi jika tidak
ditentukan,
Excel akan menentukan sendiri print areanya secara otomatis
(biasanya sheet seluas adanya data.)

Print area bisa berupa area yg kecil / sempit, bisa juga berupa area yang
luas
Jika print Area cukup LUAS, sehingga kalau nantinya dikirim ke printer >>
printernya
akan bingung
Untunglah Aplikasinya (excel) punya kemampuan memenej hal hal spt ini

PAGE BRAEK

seandainya print area itu , dengan skala tertentu tidak muat dicetak di
satu halaman
kertas di PRINTER, maka Print Area dapat di kapling kapling agar menjadi
SEPERTI
kotak kotak sawah, setiap kotak akan muat dicetak dlm 1 lembar kertas
*Batas antar kotak ini disebut PAGE BREAK !*

Di Excel Page Break bisa diatur secara manual, tetapi jika kita ogah (atau
ndak tahu cara)
mengaturnya, excel akan mengaturnya secara otomatis
(yaitu setelah memperhitugnkan skala, print area dan juga luas kertas yg
sudah
di set di printernya
Biasanya page break hasil settingan excel sudah cukup pas, tetapi selera
kita sering lain,
makanya diberi kesempatan mengbah secara manual

CMIIW,
colek me if i am wrong !!

indri Hapsari

2012/1/5 utthank abe <abeutthank@gmail.com>

> **
>
>
> mau nanya agan Be-Exeler zaat kita ngeprint apa perbedaan print area
> ama page break.
> maep pertanyaana rada goblok. mazalahnya ada dikit pedebatan ma teman
> yang katanya zama zaja. makanya langzunk minta bantuan ke zini.
> hehehehe
>
> niy contoh perdebatan
>
> http://sosektaniunhas.wordpress.com/2011/11/07/format-transkrip-nilai-kurikulum-2008/
>
> mudah-mudahan aku tidak zok tahu :(
>
> --
> R125
>
>

Back to top

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

4c.

Re: Beda Print Area ama Page break

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

Wed Jan 4, 2012 11:17 pm (PST)

Kalo gak salah :
Print area tuh area yang mau di print, page break tuh print area perhalaman.

-----Original Message-----
From: utthank abe <abeutthank@gmail.com>
Date: Thu, 5 Jan 2012 11:32:20
To: Belajar excell<belajar-excel@yahoogroups.com>
Subject: [belajar-excel] Beda Print Area ama Page break

mau nanya agan Be-Exeler zaat kita ngeprint apa perbedaan print area
ama page break.
maep pertanyaana rada goblok. mazalahnya ada dikit pedebatan ma teman
yang katanya zama zaja. makanya langzunk minta bantuan ke zini.
hehehehe

niy contoh perdebatan
http://sosektaniunhas.wordpress.com/2011/11/07/format-transkrip-nilai-kurikulum-2008/

mudah-mudahan aku tidak zok tahu :(

--
R125

Back to top

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

4d.

Re: Beda Print Area ama Page break

Posted by: "Aliif Akbar" asrorcakep@yahoo.com   asrorcakep

Thu Jan 5, 2012 4:43 am (PST)

Setahuku, page break itu batas halaman yang akan di print, kalo print area itu area2 yang akan diprint,

Cmiiw

-----Original Message-----
From: mail4muja@yahoo.co.id
Date: Thu, 5 Jan 2012 07:05:23
Subject: Re: [belajar-excel] Beda Print Area ama Page break

Kalo gak salah :
Print area tuh area yang mau di print, page break tuh print area perhalaman.

-----Original Message-----
From: utthank abe <abeutthank@gmail.com>
To: Belajar excell<belajar-excel@yahoogroups.com>
Subject: [belajar-excel] Beda Print Area ama Page break

mau nanya agan Be-Exeler zaat kita ngeprint apa perbedaan print area
ama page break.
maep pertanyaana rada goblok. mazalahnya ada dikit pedebatan ma teman
yang katanya zama zaja. makanya langzunk minta bantuan ke zini.
hehehehe

niy contoh perdebatan
http://sosektaniunhas.wordpress.com/2011/11/07/format-transkrip-nilai-kurikulum-2008/

mudah-mudahan aku tidak zok tahu :(

--
R125

Back to top

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

5a.

filtering karakter (lagi) dan save data pada sheet yg sesuai karakte

Posted by: "Reza F" puhaba2005@yahoo.com   puhaba2005

Wed Jan 4, 2012 11:16 pm (PST)

Halo para B-Excel semuanya...
Kali ini saya ingin diajari mengenai:
1. formula filtering untuk nama yg bisa menampilkan karakter yg kita ketik, tidak hanya dari karakter kiri tapi bisa juga karakter dari tengah2 nama yg difilter. bagaimana formulanya?
2. menyimpan data ke sheet sesuai dengan karakter pertama dari nama yg akan kita simpan. bagaimana perintah VB untuk commandbuttonnya?

Saya sudah sertakan file excell dummynya berikut pertanyaannya juga.

Mohon pencerahannya, terima kasih.

Reza

Back to top

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

5b.

Re: filtering karakter (lagi) dan save data pada sheet yg sesuai kar

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Thu Jan 5, 2012 12:40 am (PST)

oh ada kasus baru, gak lihat, soalnya main catur mulluk...

gampang...
yg *nomor 2* dulu
VBA Code untuk memasukkan data (data entri)
dari range J4:J7 di sheet REG SEARCH
ke sheet yg nama Tab nya sama dengan huruf pertama cell J5
ya kan ??

' ------- module Sheet REG & SEARCH" ---------
Private Sub CommandButton1_Click()
'-- entri data --
Dim EntriSheet As Worksheet
Dim rDestin As Range
Dim iRow As Long

Set EntriSheet = Worksheets(Left(Range("J5"), 1))
Set rDestin = EntriSheet.Cells(1).CurrentRegion
iRow = rDestin.Rows.Count
Range("J4:J7").Copy
rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _
PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
Application.CutCopyMode = False
End Sub

*nomor 1*
formula filtering dengan kriteria *asal ada *
maksudnya: misalnya kriteria *"D" * dianggap ada di "XXXXXXDXXXXXXXXXX"

ini formulanya

*=IFERROR(OFFSET(REGISTER!$A$1:$D$1,*
*
SMALL(IF((ISNUMBER(SEARCH($C$4,REGISTER!$B$2:$B$101)))*(LEN(REGISTER!$B$2:$B$101)>0),
*
*ROW($1:$100)),ROW(1:1)),,),"")*

Ini = ARRAY FORMULA, yg ditulis secara SEKALIGUS di *4 cell sejajar* (C7:F7)
Range C7:F7 itu kemudian dicopy ke baris-baris di bawahnya (tiap baris = 4
cell)

*o'Seno*
http://www.box.com/s/1c5lpx7mcb8y0t2meaxh

2012/1/5 Reza F <puhaba2005@yahoo.com>

> **
> Halo para B-Excel semuanya...
> Kali ini saya ingin diajari mengenai:
> 1. formula filtering untuk nama yg bisa menampilkan karakter yg kita
> ketik, tidak hanya dari karakter kiri tapi bisa juga karakter dari tengah2
> nama yg difilter. bagaimana formulanya?
> 2. menyimpan data ke sheet sesuai dengan karakter pertama dari nama yg
> akan kita simpan. bagaimana perintah VB untuk commandbuttonnya?
> Saya sudah sertakan file excell dummynya berikut pertanyaannya juga.
> Mohon pencerahannya, terima kasih.
> Reza
>

Back to top

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

5c.

Re: filtering karakter (lagi) dan save data pada sheet yg sesuai kar

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Thu Jan 5, 2012 12:50 am (PST)

maaf, workbook yg dikirim adalah workbook versi 1 step sebelum dianggap
final
makronya ada kurang sedikit
mohon dibuka module sheet Reg & Search
editlah makro menjadi seperti ini (hanya ada penambahan + 1

Private Sub CommandButton1_Click()
'-- entri data --
Dim EntriSheet As Worksheet
Dim rDestin As Range
Dim iRow As Long

Set EntriSheet = Worksheets(Left(Range("J5"), 1))
Set rDestin = EntriSheet.Cells(1).CurrentRegion
*iRow = rDestin.Rows.Count** + 1*
Range("J4:J7").Copy
rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _
PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
Application.CutCopyMode = False
End Sub

*o'Seno*
http://www.box.com/s/1c5lpx7mcb8y0t2meaxh

2012/1/5 o' Seno <ontoseno84@gmail.com>

> oh ada kasus baru, gak lihat, soalnya main catur mulluk...
>
> gampang...
> yg *nomor 2* dulu
> VBA Code untuk memasukkan data (data entri)
> dari range J4:J7 di sheet REG SEARCH
> ke sheet yg nama Tab nya sama dengan huruf pertama cell J5
> ya kan ??
>
> ' ------- module Sheet REG & SEARCH" ---------
> Private Sub CommandButton1_Click()
> '-- entri data --
> Dim EntriSheet As Worksheet
> Dim rDestin As Range
> Dim iRow As Long
>
> Set EntriSheet = Worksheets(Left(Range("J5"), 1))
> Set rDestin = EntriSheet.Cells(1).CurrentRegion
> iRow = rDestin.Rows.Count
> Range("J4:J7").Copy
> rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _
> PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
> Application.CutCopyMode = False
> End Sub
>
>

Back to top

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

5d.

Re: filtering karakter (lagi) dan save data pada sheet yg sesuai kar

Posted by: "Reza F" puhaba2005@yahoo.com   puhaba2005

Thu Jan 5, 2012 1:40 am (PST)

Makasi pak Seno atas share ilmunya. Pas sesuai keinginan. ^^b
Mau nanya sedikit lagi untuk pertanyaan no. 1. itu kan searchnya terbatas hanya untuk row 2 sampe row 101. kl searchnya untuk seluruh row saya ubah B:B, jadi sangat lama prosesnya.  ada cara yg lainnya kah?

________________________________
From: o' Seno <ontoseno84@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 5, 2012 3:50 PM
Subject: Re: [belajar-excel] filtering karakter (lagi) dan save data pada sheet yg sesuai karakter


 
maaf, workbook yg dikirim adalah workbook versi 1 step sebelum dianggap final
makronya ada kurang sedikit
mohon dibuka module sheet Reg & Search
editlah makro menjadi seperti ini (hanya ada penambahan + 1

Private Sub CommandButton1_Click()
   '-- entri data --
   Dim EntriSheet As Worksheet
   Dim rDestin As Range
   Dim iRow As Long
   
   Set EntriSheet = Worksheets(Left(Range("J5"), 1))
   Set rDestin = EntriSheet.Cells(1).CurrentRegion
   iRow = rDestin.Rows.Count+ 1
   Range("J4:J7").Copy
   rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _
      PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
   Application.CutCopyMode = False
End Sub

o'Seno
http://www.box.com/s/1c5lpx7mcb8y0t2meaxh

2012/1/5 o' Seno <ontoseno84@gmail.com>

oh ada kasus baru, gak lihat, soalnya main catur mulluk...
>
>gampang...
>yg nomor 2 dulu
>VBA Code untuk memasukkan data (data entri)  
>dari range J4:J7 di sheet REG SEARCH
>ke sheet yg nama Tab nya sama dengan huruf pertama cell J5
>ya kan ??
>
>
>' ------- module Sheet REG & SEARCH" ---------
>Private Sub CommandButton1_Click()
>   '-- entri data --
>   Dim EntriSheet As Worksheet
>   Dim rDestin As Range
>   Dim iRow As Long
>   
>   Set EntriSheet = Worksheets(Left(Range("J5"), 1))
>   Set rDestin = EntriSheet.Cells(1).CurrentRegion
>   iRow = rDestin.Rows.Count
>   Range("J4:J7").Copy
>   rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _
>      PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
>   Application.CutCopyMode = False
>End Sub
>
>

Back to top

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

5e.

Re: filtering karakter (lagi) dan save data pada sheet yg sesuai kar

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Jan 5, 2012 1:48 am (PST)

Coba gunakan nama range (klik kanan name a range dan refers to diisi suatu
formula ) daripada merujuk seluruh kolom (seperti B:B).
Coba kurangi penggunaan fungsi Offset dan memanfaatkan fungsi Index.
Mungkin kolom bantu untuk menentukan posisi data yang harus diambil, akan
lebih mempercepat proses kalkulasi.

Untuk memindahkan nama yang diinput ke sheet tertentu,
Andai sheet berawalan tertentu dimaksudkan untuk memudahkan pencarian nama,
maka bisa menggunakan pivot tabel dan filternya nama adalah dengan begins
with. Jika tetap ingin ada sheet karakter awalan nama, maka copy pivot
table ke sheet tersebut dan ubah kriteria. Dengan begini, Input tetap hanya
dilakukan ke sheet register. Bila perlu lengkapi dengan tanggal inputnya di
sheet register.

Regards,
Kid.

2012/1/5 Reza F <puhaba2005@yahoo.com>

> **
>
>
> Makasi pak Seno atas share ilmunya. Pas sesuai keinginan. ^^b
> Mau nanya sedikit lagi untuk pertanyaan no. 1. itu kan searchnya terbatas
> hanya untuk row 2 sampe row 101. kl searchnya untuk seluruh row saya ubah
> B:B, jadi sangat lama prosesnya. ada cara yg lainnya kah?
>
>
> ------------------------------
> *From:* o' Seno <ontoseno84@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, January 5, 2012 3:50 PM
> *Subject:* Re: [belajar-excel] filtering karakter (lagi) dan save data
> pada sheet yg sesuai karakter
>
>
> maaf, workbook yg dikirim adalah workbook versi 1 step sebelum dianggap
> final
> makronya ada kurang sedikit
> mohon dibuka module sheet Reg & Search
> editlah makro menjadi seperti ini (hanya ada penambahan + 1
>
> Private Sub CommandButton1_Click()
> '-- entri data --
> Dim EntriSheet As Worksheet
> Dim rDestin As Range
> Dim iRow As Long
>
> Set EntriSheet = Worksheets(Left(Range("J5"), 1))
> Set rDestin = EntriSheet.Cells(1).CurrentRegion
> *iRow = rDestin.Rows.Count** + 1*
> Range("J4:J7").Copy
> rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _
> PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
> Application.CutCopyMode = False
> End Sub
>
>
>
> *o'Seno*
> http://www.box.com/s/1c5lpx7mcb8y0t2meaxh
>
>
>
>
> 2012/1/5 o' Seno <ontoseno84@gmail.com>
>
> oh ada kasus baru, gak lihat, soalnya main catur mulluk...
>
> gampang...
> yg *nomor 2* dulu
> VBA Code untuk memasukkan data (data entri)
> dari range J4:J7 di sheet REG SEARCH
> ke sheet yg nama Tab nya sama dengan huruf pertama cell J5
> ya kan ??
>
> ' ------- module Sheet REG & SEARCH" ---------
> Private Sub CommandButton1_Click()
> '-- entri data --
> Dim EntriSheet As Worksheet
> Dim rDestin As Range
> Dim iRow As Long
>
> Set EntriSheet = Worksheets(Left(Range("J5"), 1))
> Set rDestin = EntriSheet.Cells(1).CurrentRegion
> iRow = rDestin.Rows.Count
> Range("J4:J7").Copy
> rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _
> PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
> Application.CutCopyMode = False
> End Sub
>
>
>
>
>

Back to top

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

5f.

Re: filtering karakter (lagi) dan save data pada sheet yg sesuai kar

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Thu Jan 5, 2012 1:50 am (PST)

coba cari tanya jawab mengenai *menDINAMISKAN Rujukan Range *belum lama ini
misal di http://tech.groups.yahoo.com/group/belajar-excel/message/14825

tetapi jika memang datanya BANYAK, rumus berat itu memang akan memperlamban
kinerja worksheet, kecuali anda mau mengeSET Excel-Options: Calculation =
Manual
(sewaktu-waktu perlu recalculate, tinggal tekan F9)

Anda sebagai pemilik data (calon data) apakah gak punya perkiraan : MAX
ROWs nya?

*o'Seno*
http://www.box.com/s/1c5lpx7mcb8y0t2meaxh

2012/1/5 Reza F <puhaba2005@yahoo.com>

> **
>
>
> Makasi pak Seno atas share ilmunya. Pas sesuai keinginan. ^^b
> Mau nanya sedikit lagi untuk pertanyaan no. 1. itu kan searchnya terbatas
> hanya untuk row 2 sampe row 101. kl searchnya untuk seluruh row saya ubah
> B:B, jadi sangat lama prosesnya. ada cara yg lainnya kah?
>
>
> ------------------------------
> *From:* o' Seno <ontoseno84@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, January 5, 2012 3:50 PM
> *Subject:* Re: [belajar-excel] filtering karakter (lagi) dan save data
> pada sheet yg sesuai karakter
>
> maaf, workbook yg dikirim adalah workbook versi 1 step sebelum dianggap
> final
> makronya ada kurang sedikit
> mohon dibuka module sheet Reg & Search
> editlah makro menjadi seperti ini (hanya ada penambahan + 1
>
> Private Sub CommandButton1_Click()
> '-- entri data --
> Dim EntriSheet As Worksheet
> Dim rDestin As Range
> Dim iRow As Long
>
> Set EntriSheet = Worksheets(Left(Range("J5"), 1))
> Set rDestin = EntriSheet.Cells(1).CurrentRegion
> *iRow = rDestin.Rows.Count** + 1*
> Range("J4:J7").Copy
> rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _
> PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
> Application.CutCopyMode = False
> End Sub
>

Back to top

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

6a.

Re: Bls: [belajar-excel] Nomor otomatis berdasarkan tanggal

Posted by: "Bachelor Ard" bachelor_ard@yahoo.com   bachelor_ard

Thu Jan 5, 2012 12:59 am (PST)

For All!
yang telah memberikan pencerahannya dlam kasus ini,akhirnya rebes dng formula mas Ghozi yang terakhir ini, dan telah saya coba samapi 100 data mantaf!

akhir kata Terima kasih yang sebesar-besarnya
-Ardhy_

________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sent: Wednesday, January 4, 2012 6:14 PM
 
coba ganti formulanya dengan
=IF(B2="";"";RANK(B2;B$2:B$47;1)+COUNTIF(B$1:B1;B2))
copy ke bawah

wassalam
Ghozi Alkatiri

--- Pada Rab, 4/1/12, Bachelor Ard <bachelor_ard@yahoo.com> menulis:
>Dari: Bachelor Ard <bachelor_ard@yahoo.com>
>Tanggal: Rabu, 4 Januari, 2012, 12:27 PM
>
>Mohon maaf mas!
>Kendalanya awal Ketika pada saat menginput tanggal yang sama Nomornya dobel
>contoh
>No     Tanggal         No.Kw
>12    01/04/2011        002
>13    04/04/2011        003
>14    01/04/2011        002
>
>yang diinginkan walaupun ada tanggalnya yang sama nomornya yang dihasilkan tidak ada yang kembar!

Back to top

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

7a.

Formula VLOOKUP

Posted by: "Henry Sitohang" henrysitohang@yahoo.com   henrysitohang

Thu Jan 5, 2012 1:00 am (PST)

Dear all,
Bagaiman solusi (Formulanya):

No.NamaNPWP
1Iman01.470.520-4.414.000
2Adi

Jika saya pindahkan ke sheet lain item 2 hasilnya adalah 000000000000 sementara yang saya inginkan adalah blank alias kosong
mohon pencerahan

________________________________
Henry Norris Sitohang
Mail : henrysitohang@yahoo.com
          henrysitohang@ovi.com
  henry@sitohang.org
Mobile : 081384056896

Back to top

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

7b.

Re: Formula VLOOKUP

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Thu Jan 5, 2012 1:28 am (PST)

Nyang dimaksudken *dipindah* itu mungkin di rujuk dengan formula di sheet
lain

misalnya :
cell A1 di Sheet 1 *"DIPINDAH"* KE Sheet2 Cell A1 juga

rumus rujukannya (ditulis di Shee2 Cell A1)
*=Sheet1!A1*

nah,...gantilah dengan
*
*
*=IF(Sheet1!A1="","",Sheet1!A1)*
atau
*=IF(IsBlank(Sheet1!A1),"",Sheet1!A1)*
atau
masih banyak cara lain untk meng-ekspresikan bahwa
"suatu cell itu = kosong"

*o'Seno*

2012/1/5 Henry Sitohang <henrysitohang@yahoo.com>

> **
> Dear all,
> Bagaiman solusi (Formulanya):
>
> *No. Nama NPWP*
> *1 Iman 01.470.520-4.414.000*
> *2 Adi *
> Jika saya pindahkan ke sheet lain item 2 hasilnya adalah 000000000000
> sementara yang saya inginkan adalah blank alias kosong
> mohon pencerahan
> ------------------------------
> Henry Norris Sitohang
>

Back to top

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

7c.

Re: Formula VLOOKUP

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Thu Jan 5, 2012 1:38 am (PST)

Kalau harus pakai VLOOKUP (yg contohnya tidak diperlihatkan ke sini (??!!))

=IF(VLOOKUP(B3,Sheet1!$B$2:$C$11,2,FALSE)=0,"",
VLOOKUP(B3,Sheet1!$B$2:$C$11,2,FALSE))

*o'Seno*

2012/1/5 o' Seno <ontoseno84@gmail.com>
>
> rumus rujukannya (ditulis di Shee2 Cell A1)
> =Sheet1!A1
>
> nah,...gantilah dengan
>
> =IF(Sheet1!A1="","",Sheet1!A1)
>
> 2012/1/5 Henry Sitohang <henrysitohang@yahoo.com>
>>
>> Bagaiman solusi (Formulanya):
>> No. Nama NPWP
>> 1 Iman 01.470.520-4.414.000
>> 2 Adi
>> Jika saya pindahkan ke sheet lain item 2 hasilnya adalah 000000000000
sementara yang saya inginkan adalah blank alias kosong

Back to top

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

7d.

Re: Formula VLOOKUP

Posted by: "Henry Sitohang" henrysitohang@yahoo.com   henrysitohang

Thu Jan 5, 2012 2:12 am (PST)

Thanks o'Seno formulanya berfungsi dengan baik
 

________________________________
Henry Norris Sitohang
Mail : henrysitohang@yahoo.com
          henrysitohang@ovi.com
  henry@sitohang.org
Mobile : 081384056896

________________________________
From: o' Seno <ontoseno84@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 5, 2012 1:37 AM
Subject: Re: [belajar-excel] Formula VLOOKUP


 
Kalau harus pakai VLOOKUP(yg contohnya tidak diperlihatkan ke sini (??!!))

=IF(VLOOKUP(B3,Sheet1!$B$2:$C$11,2,FALSE)=0,"",
    VLOOKUP(B3,Sheet1!$B$2:$C$11,2,FALSE))

o'Seno

2012/1/5 o' Seno <ontoseno84@gmail.com>
>
> rumus rujukannya   (ditulis di Shee2 Cell A1)
> =Sheet1!A1
>
> nah,...gantilah dengan
>
> =IF(Sheet1!A1="","",Sheet1!A1)
>
> 2012/1/5 Henry Sitohang <henrysitohang@yahoo.com>
>>
>> Bagaiman solusi (Formulanya):
>> No. Nama NPWP
>> 1 Iman 01.470.520-4.414.000
>> 2 Adi
>> Jika saya pindahkan ke sheet lain item 2 hasilnya adalah 000000000000 sementara yang saya inginkan adalah blank alias kosong

Back to top

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

8a.

membuat penempatan sel dalam satu baris yang sama, akan muncul perin

Posted by: "Giyanto Widodo" widodomuh2@yahoo.co.id

Thu Jan 5, 2012 4:44 am (PST)

Yth. Pengasuh dan rekan2 aktivis BeEXcel,

Saya ingin membuat jadwal pelajaran sekolah, Bagaimana agar pada penempatan
nama atau pelajaran dalam sel excel jika terjadi sel dalam satu baris yang
sama, akan muncul peringatan atau menolak untuk ditempatkan ?
Dengan cara ini setidak-tidaknya saya terbantu bila terjadi BENTROK.
Biar lebih jelas saya lampirkan file jadwal, Syukur bisa dibuatkan MACRO
untuk dapat menempatkan otomatis berdasarkan permintaan misal libur Senin
dsb

Terima kasih sebelumnya,
Giyanto Widodo

Back to top

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

8b.

Re: membuat penempatan sel dalam satu baris yang sama, akan muncul p

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Thu Jan 5, 2012 5:18 am (PST)

Pakai CUSTOM DATA VALIDATION saja...

Contoh untuk area P7:Y17

Select/Blok area tsb
Dari Ribbon > Tab DATA > Data Validation
pilih CUSTOM
pada kotak formula yg diisikan:
*=COUNTIF($P7:$Y7,P7)<=1*

[image: data validatiaon cegah kembar dlm baris tertentu.PNG]

sebelum diprotes lebih baik dijelaskan sekarang:
bahwa validasi (pencegahan kesalahan) hanya pada saat terjadi proses
memasukkan data
Untuk data yg sudah terlanjur ada terpaksa harus anda hapus dulu
(KALAU MAU!)

2012/1/5 Giyanto Widodo <widodomuh2@yahoo.co.id>
> Yth. Pengasuh dan rekan2 aktivis BeEXcel,
> Saya ingin membuat jadwal pelajaran sekolah, Bagaimana agar pada
penempatan nama atau pelajaran dalam sel excel jika terjadi sel dalam satu
baris yang sama, akan muncul peringatan atau menolak untuk ditempatkan ?
> Dengan cara ini setidak-tidaknya saya terbantu bila terjadi BENTROK.
> Biar lebih jelas saya lampirkan file jadwal, Syukur bisa dibuatkan MACRO
untuk dapat menempatkan otomatis berdasarkan permintaan misal libur Senin
dsb
>
> Terima kasih sebelumnya,
> Giyanto Widodo

Back to top

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

Recent Activity

•  20
  New Members

Visit Your Group

Yahoo! Groups

Mental Health Zone

Learn about issues

Find support

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Community resources

for parents

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
---------------------------------------------------------------------

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

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