[belajar-excel] Digest Number 1411

Milis Belajar Microsoft Excel

Messages In This Digest (9 Messages)

1a.

Re: Mewarnai kursor From: Haps

1b.

Re: Mewarnai kursor From: hartini_80@yahoo.co.id

1c.

Re: Mewarnai kursor From: Haps

1d.

Re: Mewarnai kursor From: hartini_80@yahoo.co.id

2a.

Bls: [belajar-excel] Menyisipkan 3 blankcell antar kelompok data From: ghozi alkatiri

3a.

Re: men-tidak jadi milih cell From: Kid Mr.

3b.

Re: men-tidak jadi milih cell From: Kid Mr.

4a.

Bls: [belajar-excel] Login Pada Program Excel From: Harry

5a.

Re: Menyisipkan 3 blankcell antar kelompok data From: Kid Mr.

View All Topics | Create New Topic

Messages

1a.

Re: Mewarnai kursor

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Thu Nov 24, 2011 3:24 am (PST)

maaf ikutan sedikit...
untuk memberlakukan di semua sheets dlm 1 workbook
sepertinya tidak perlu prosedurnya dicopy ke semua sheet
tetapi cukup *dipindah ke level workbook *(*module ThisWorkbook*)
dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya

Private Sub *Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)*
Static OldTarget As Range
If Not OldTarget Is Nothing Then OldTarget.Interior.ColorIndex = xlNone
With Target.Interior
.ColorIndex = 38
.Pattern = xlSolid
End With
Set OldTarget = Target
End Sub

2011/11/24 <hartini_80@yahoo.co.id>

> **
>
> Dear,
> Benar pak seperti itu yg saya mau, berarti pakai bahasa VB ya pak, kalo
> saya buka sheet lain berarti bahasa VB yg ada saya copy di worksheet yg
> baru ya pak?
> Cara manual or pakai conditional formatting ada ndak ya?
> Salam
> Tiny
>
> ------------------------------
> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com>
> *Date: *Thu, 24 Nov 2011 01:58:23 -0800 (PST)
> *Subject: *Re: [belajar-excel] Mewarnai kursor
> Dear Hartini,
> Sebenarnya yang layak menjawab adalah Mbak Siti, karena yang saya
> lampirkan ini adalah program buatan beliau.
>
> Salam,
> Hendrik Karnadi
>
>

Back to top

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

1b.

Re: Mewarnai kursor

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

Thu Nov 24, 2011 3:34 am (PST)

Mba Haps, dah saya ganti kata2nya sesuai dgn yg mba kirim, kok malah ndak berfungsi, kursor ndak berwarna apapun, piye kie mba...?
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: Haps <hapsari.stlizbeth@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 18:23:56
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor

maaf ikutan sedikit...
untuk memberlakukan di semua sheets dlm 1 workbook
sepertinya tidak perlu prosedurnya dicopy ke semua sheet
tetapi cukup *dipindah ke level workbook *(*module ThisWorkbook*)
dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya


Private Sub *Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)*
Static OldTarget As Range
If Not OldTarget Is Nothing Then OldTarget.Interior.ColorIndex = xlNone
With Target.Interior
.ColorIndex = 38
.Pattern = xlSolid
End With
Set OldTarget = Target
End Sub




2011/11/24 <hartini_80@yahoo.co.id>

> **
>
> Dear,
> Benar pak seperti itu yg saya mau, berarti pakai bahasa VB ya pak, kalo
> saya buka sheet lain berarti bahasa VB yg ada saya copy di worksheet yg
> baru ya pak?
> Cara manual or pakai conditional formatting ada ndak ya?
> Salam
> Tiny
>
> ------------------------------
> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com>
> *Date: *Thu, 24 Nov 2011 01:58:23 -0800 (PST)
> *Subject: *Re: [belajar-excel] Mewarnai kursor
> Dear Hartini,
> Sebenarnya yang layak menjawab adalah Mbak Siti, karena yang saya
> lampirkan ini adalah program buatan beliau.
>
> Salam,
> Hendrik Karnadi
>
>

Back to top

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

1c.

Re: Mewarnai kursor

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Thu Nov 24, 2011 3:44 am (PST)

kenapa ya..?
mungkin makronya belum di enabled-kan

coba workbook lampiran ini...
di pc yg sedang haps pakai, jalan dengan baik di semua (3) sheet.

2011/11/24 <hartini_80@yahoo.co.id>

> **
>
> Mba Haps, dah saya ganti kata2nya sesuai dgn yg mba kirim, kok malah ndak
> berfungsi, kursor ndak berwarna apapun, piye kie mba...?
>
> Salam
> Tiny
> *From: * Haps <hapsari.stlizbeth@gmail.com>
> *Date: *Thu, 24 Nov 2011 18:23:56 +0700
> maaf ikutan sedikit...
> untuk memberlakukan di semua sheets dlm 1 workbook
> sepertinya tidak perlu prosedurnya dicopy ke semua sheet
> tetapi cukup *dipindah ke level workbook *(*module ThisWorkbook*)
> dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya
>
>
> Private Sub *Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
> Target As Range)*
> Static OldTarget As Range
> If Not OldTarget Is Nothing Then OldTarget.Interior.ColorIndex = xlNone
> With Target.Interior
> .ColorIndex = 38
> .Pattern = xlSolid
> End With
> Set OldTarget = Target
> End Sub
>
>
>

Back to top

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

1d.

Re: Mewarnai kursor

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

Thu Nov 24, 2011 3:55 am (PST)

Mba haps, iya jalan, hanya saja jika pertama kali dibuka muncul peringatan Run-time error '438': object doesn't support this property or method, begitu saya pilih end baru bisa dijalankan, itu kenapa ya mba?
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: Haps <hapsari.stlizbeth@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 18:44:14
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor

kenapa ya..?
mungkin makronya belum di enabled-kan

coba workbook lampiran ini...
di pc yg sedang haps pakai, jalan dengan baik di semua (3) sheet.


2011/11/24 <hartini_80@yahoo.co.id>

> **
>
> Mba Haps, dah saya ganti kata2nya sesuai dgn yg mba kirim, kok malah ndak
> berfungsi, kursor ndak berwarna apapun, piye kie mba...?
>
> Salam
> Tiny
> *From: * Haps <hapsari.stlizbeth@gmail.com>
> *Date: *Thu, 24 Nov 2011 18:23:56 +0700
> maaf ikutan sedikit...
> untuk memberlakukan di semua sheets dlm 1 workbook
> sepertinya tidak perlu prosedurnya dicopy ke semua sheet
> tetapi cukup *dipindah ke level workbook *(*module ThisWorkbook*)
> dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya
>
>
> Private Sub *Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
> Target As Range)*
> Static OldTarget As Range
> If Not OldTarget Is Nothing Then OldTarget.Interior.ColorIndex = xlNone
> With Target.Interior
> .ColorIndex = 38
> .Pattern = xlSolid
> End With
> Set OldTarget = Target
> End Sub
>
>
>

Back to top

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

2a.

Bls: [belajar-excel] Menyisipkan 3 blankcell antar kelompok data

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Thu Nov 24, 2011 4:16 am (PST)

thank's koreksinya

supaya formula bisa fleksibel untuk sebarang data  baik angka maupun
teks.cukup ganti data count( sorot merah) dengan counta (sorot kuning)

rumus awal

=IF(ROWS(C$1:C1)=1;$A$2;IF(COUNTIF(C$1:C1;C1)<COUNTIF($A$2:$A$55;C1);C1; 
 IF(COUNTIF(C$1:C1;C1)=COUNTIF($A$2:$A$55;C1);"";IF(COUNTBLANK(C$1:C1)<SUMPRODUCT((C1:C$2<>"")/ 
     COUNTIF(C1:C$2;C1:C$2&""))*3;"";INDEX($A$2:$A$55;COUNT(C1:C$2)+1)))))

ganti dengan

=IF(ROWS(C$1:C1)=1;$A$2;IF(COUNTIF(C$1:C1;C1)<COUNTIF($A$2:$A$55;C1);C1; 
 IF(COUNTIF(C$1:C1;C1)=COUNTIF($A$2:$A$55;C1);"";IF(COUNTBLANK(C$1:C1)<SUMPRODUCT((C1:C$2<>"")/ 
     COUNTIF(C1:C$2;C1:C$2&""))*3;"";INDEX($A$2:$A$55;COUNTA(C1:C$2)+1)))))

wassalam

Ghozi Alkatiri

________________________________
Dari: Haps <hapsari.stlizbeth@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 24 November 2011 18:07
Judul: Re: [belajar-excel] Menyisipkan 3 blankcell antar kelompok data


 
Great !!, Rumus pak Ghozi Ruarrr-Biasa..., 
tetapi sepertinya belum di maksudkan untuk menghandledata TEXT
CMIIW

Mari kita cari solusinya untuk data text juga..

2011/11/24 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

>tulis formula di C2 sheet solusi
>
>
>=IF(ROWS(C$1:C1)=1;$A$2;IF(COUNTIF(C$1:C1;C1)<COUNTIF($A$2:$A$55;C1);C1; 
 IF(COUNTIF(C$1:C1;C1)=COUNTIF($A$2:$A$55;C1);"";IF(COUNTBLANK(C$1:C1)<SUMPRODUCT((C1:C$2<>"")/ 
     COUNTIF(C1:C$2;C1:C$2&""))*3;"";INDEX($A$2:$A$55;COUNT(C1:C$2)+1)))))
>copy ke bawah sampai tuntas (keluar nilai #REF!)
>
>
>wassalam
>
>
>Ghozi Alkatiri
>
>
>
>________________________________
> Dari: andri apriyadi <andreemobile@yahoo.co.id>
>Dikirim: Kamis, 24 November 2011 13:31
>Judul: [belajar-excel] Menyisipkan 3 blankcell antar kelompok data
>
> 
>Dear Pakar excel,
>Mohon bantuannya, bagaimana formulanya agar deretdata bisa dipisahkan dengan 3 baris blank cell antar kelompoknya?
>
>(contoh terlampir)
>
>
>awal        hasil
>
>1                1
>1                1
>
>1                1
>
>2
>
>2
>
>3
>
>4                2
>
>4                2
>
>4
>
>5
>
>6
>
>6                3
>                  dst..
>
>     
>
>Thank atas bantuannya!
>Regards
>Andree

Back to top

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

3a.

Re: men-tidak jadi milih cell

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

Thu Nov 24, 2011 4:53 am (PST)

Ada yang lupa belum pakai lCols.
Coba cari bagian :
'set range di baris cell aktif, pada kolom selain kolom
cell aktif
lCols = .EntireRow.Cells.Count
Select Case .Column
Case 1
Set rngCols = Range(Cells(.Row, 2), Cells(.Row, lCols))
*Case 2*
Set rngCols = Range(Cells(.Row, 2), Cells(.Row, lCols))
Case Else
Set rngCols = Union(Range(Cells(.Row, 1), Cells(.Row,
ActiveCell.Column - 1)), _
Range(Cells(.Row, ActiveCell.Column
+ 1), Cells(.Row, lCols)))
End Select

Nah, yang dibiru harusnya :
*Case lCols*

Makasih atas koreksinya ya. Moga-moga bisa nemu lagi error yang lain.
Kid.
2011/11/24 ppc lambda <ppc_03@sami.co.id>

> **
>
>
> **
> Mr kid VBA nya keren dan hasilnya pun menakjubkan
> namun ketika yang ingin di unselect itu kolom B, kok yang ter Unselect
> kolom A ya??
>
>
> Terimakasih
> Best Regard
> <>.<>.<>.<>.<>.<>.
> Sidoel
> ----- Original Message -----
>
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, November 24, 2011 2:24 AM
> *Subject:* Re: [belajar-excel] men-tidak jadi milih cell
>
>
>
> Ada yang gak pas di workbook open. Jadi, file yang lalu diabaikan saja.
> Coba file terlampir yang baru ini saja ya.
>
> Select seperti biasa, bisa manfaatkan Shift unuk membuat sebuah area
> terselect, bisa menggunakan Ctrl untuk membentuk area baru terselect.
> Untuk unselect, tekan tombol Ctrl dan klik sebuah cell yang sudah
> terselect.
>
> Dicoba untuk jumlah cells terselect yang buanyak, siapa tahu muncul bug
> nya.
> Jika bertemu bug, mohon kerjasama untuk laporan bugnya.
>
> Wassalam,
> Kid.
>
>
> 2011/11/24 Kid Mr. <mr.nmkid@gmail.com>
>
>> Coba pada jumlah cell terselect sekitar 12 kolom (seluruh row) pada file
>> terlampir.
>> Kemudian untuk unselect sebuah cell, tekan Ctrl dan klik cell yang akan
>> di unselect.
>>
>> Moga-moga gak terlalu lama prosesnya.
>>
>> Wassalam,
>> Kid.
>>
>> 2011/11/23 Kid Mr. <mr.nmkid@gmail.com>
>>
>> Oh udah ditutup ya.
>>>
>>> Tapi gpp, sapa tahu mau coba dengan event selection change-nya wprksheet.
>>> Mungkin kalau diletakkan di workbook sheet selection change event juga
>>> bisa jadi lebih bagus ya...
>>>
>>> Berikut script worksheet event selection change :
>>> Private rng As Range, rngLastAktif As Range
>>>
>>> Private Sub Worksheet_Activate()
>>> Set rngLastAktif = ActiveCell
>>> Set rng = Selection
>>> End Sub
>>>
>>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>>> Dim rngTmp As Range
>>> Dim lNew As Long
>>>
>>> 'cek : obj ada isi proses terakhir
>>> If rngLastAktif Is Nothing Then
>>> Set rngLastAktif = ActiveCell
>>> Exit Sub
>>> ElseIf rng Is Nothing Then
>>> Set rng = Selection
>>> Exit Sub
>>> End If
>>>
>>> 'hitung : range baru
>>> For Each rngTmp In Selection
>>> If Intersect(rngTmp, rng) Is Nothing Then
>>> lNew = lNew + 1
>>> End If
>>> Next rngTmp
>>>
>>> 'cek by range baru
>>> If lNew > 0 Then 'ada
>>> Set rng = Target
>>> ElseIf rng.Count > 1 Then 'gak ada dan ter-select > 1
>>> Set rng = Nothing
>>> For Each rngTmp In Selection
>>> If Intersect(rngTmp, ActiveCell) Is Nothing Then
>>> If rng Is Nothing Then
>>> Set rng = rngTmp
>>> Else
>>> Set rng = Union(rngTmp, rng)
>>> End If
>>> End If
>>> Next rngTmp
>>> Application.EnableEvents = False
>>> rng.Select
>>> Application.EnableEvents = True
>>> End If
>>> Set rngLastAktif = ActiveCell
>>> End Sub
>>>
>>> 'sayangnya, yang dihilangkan masih satu per satu
>>>
>>> Wassalamualaikum Wr. Wb.
>>> Kid.
>>>
>>>
>>> 2011/11/23 Iwan Ú©uryawan <iwan@asco.co.id>
>>>
>>>> **
>>>>
>>>>
>>>> **Ternyata harus pakai macro ya. Sebelumnya lumayan alergi kalo
>>>> berurusan sama machluk satu ini, akhirnya mesti kenalan juga skrg...
>>>> Mbak Hapsari dan Pak Sudarsono terima kasih, keduanya berjalan dengan
>>>> baik. Untuk saat ini saya pakai coding punya Pak Sudarsono yang bisa
>>>> fleksibel dalam meng-unselect-nya dengan tambahan pemahaman tentang macro
>>>> dari Mbak Haps.
>>>>
>>>> *Salam
>>>> **| suryawan arief | iwan |
>>>> *
>>>>
>>>>
>>>> On Tue, 22 Nov 2011 13:26:33 +0700 (SE Asia Standard Time)
>>>> Haps <hapsari.stlizbeth@gmail.com> <hapsari.stlizbeth@gmail.com>menulis begini:
>>>>
>>>> makro ini meng UnSelect *Cell yg terakhir diselect* dalam*MultiSelection,
>>>> *sambil
>>>> mengaktifkan cell yg diselect sebelum-*nya*
>>>> Jadi, jika di jalankan berkali kali, ia akan menselect "mundur" dengan
>>>> urutan kebalikan
>>>> dari urutan saat anda menselectnya meskipun urutannya aneh (maju-mundur
>>>> 'gak-genah!)
>>>>
>>>> Makro dapat di beri option untuk dijalankan dengan* Keyboard-Shortcut*,
>>>> misalnya
>>>> [ Ctrl + k ] atau [ Ctrl + Shift + K] atau huruf pilihan anda sendiri.
>>>>
>>>> Jika dirasa benar dan ada gunanya, makro ini dapat anda rekam di *Personal
>>>> Makro Workbook*,
>>>> dengan maksud agar dapat berlaku pada semua workbook yg sedang anda
>>>> buka.
>>>>
>>>> f.y.i. : *Personal Workbook* selalu dibuka (sbg workbook tersembunyi)
>>>> pada saat excel diaktifkan.
>>>>
>>>>
>>>> Sub UndoLastSelect()
>>>> *' coded by Hapsari / nov 22, 2011*
>>>> *' unselect last activecell*
>>>> *' Kibor-Shortcut: Ctrl + Shift + K*
>>>> *'----------------------------------*
>>>> Dim SelAdrs As String, ActAdrs As String
>>>> Dim NewAdrs As String, NewActv As String
>>>> Dim Tempe As Variant
>>>>
>>>> SelAdrs = Selection.Address(False, False)
>>>> ActAdrs = ActiveCell.Address(False, False)
>>>> NewAdrs = Replace(SelAdrs, "," & ActAdrs, vbNullString)
>>>> Tempe = Split(NewAdrs, ",")
>>>> NewActv = Tempe(UBound(Tempe))
>>>>
>>>> Range(NewAdrs).Select
>>>> Range(NewActv).Activate
>>>>
>>>> End Sub
>>>>
>>>>
>>>
>>
>
>

Back to top

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

3b.

Re: men-tidak jadi milih cell

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

Thu Nov 24, 2011 4:57 am (PST)

Loop bagian :
For Each sel In Target
strdaerah = strdaerah & "," & sel.Address
Next
sangat tergantung kemampuan processor dan jumlah range yang terselect.
Coba blok seluruh cells dalam sebuah sheet. Karena ini adalah kerja event,
maka akan selalu terasa dampaknya.

Kid.

2011/11/24 jkssxls Sudarsono <jkssxls@hotmail.com>

> For Each sel In Target
> strdaerah = strdaerah & "," & sel.Address
> Next
>

Back to top

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

4a.

Bls: [belajar-excel] Login Pada Program Excel

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Thu Nov 24, 2011 6:15 am (PST)

Terima kasih
atas berkanan jawaban dan penjelasannya.
Selanjunya
saya akan mencoba memahami penjelasan tersebut.
 
Selanjutnya,
mohon berkanan diinformasikan akan pertanyaan saya sbb:
 
1.         Dari rumus
tersebut diatas berarti hanya “boss” yang berhak menambah “User Baru”.
Pertanyaan saya adalah bagaimana rumusnya jika
ada 3 atau 4 user yang berhak menambah “User Baru”…???
 
Private Sub CmdNewUser_Click()
 If
Application.Range("ActUser") = "boss" Then
      Me.Hide
frmNewUser.Show
Else
      MsgBox "MAAF, ANDA
TIDAK BERHAK MENAMBAH USER", 48, "Program Creator"
   End If
End Sub
 
2.         Untuk
menggantian “Password”, bagaimana rumusnya agar penggantian “Password” diperkenan
oleh semua user tetapi User “boss” dan 3 atau 4 user yang berhak menambah user
baru tersebut diatas tidak bisa diubah / diganti…??
 
3.         Pada User
Form, bisa atau tidak membuat “Teks Kedap Kedip”…??? Kalau bisa, bagaimana cara
dan rumusnya…???
 
Sebelum dan sesudahnya saya
mengucapkan banyak terima kasih.
 
Regards,
 
 
Harry
 

________________________________
Dari: Haps <hapsari.stlizbeth@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 22 November 2011 5:26
Judul: Re: [belajar-excel] Login Pada Program Excel


 
Dear pak harry

Data pada tabel 'user, password, hak akses sheet'pada sheet USER; dapat diTULIS tanpa enKripsi yaitu setiap menuliskan (maupun setiap membaca) tidak perlu menggunakan fungsi KRIP.  
Function Prosedur nya, berhubung tidak terpakai, juga boleh ikut dihapus.

Menulis data tanpa Fungsi KRIP
Misal  kode vba tertulis spt ini:    Krip(LCase(sUser), True) 
dapat diganti   dengan spt ini saja :  LCase(sUser)

Agar tidak salah ubah, Sebaiknya dipelajari dulu tata-keja fungsi (UDF) KRIP  yg ada di program itu. ( kalau belum diubah, kodeVBA nya berada sebagaiprosedur ke 2 pada Log_Module ). Fungsi KRIP yg ada di situ hanyalah contoh cara menginkripsi data yg masih pada tingkatan "sangat, sangat,sangat sederhana sekali".

contohnya: akan diketikkan  ABCD  maka  akan diubah menjadi
A menjadi B   (maju 1)
B menjadi D   (maju 2)
C menjadi F   (maju 3)
D menjadi H   (maju 4)
hasilnya  BDHF

Dari pemakain tabel ber-enkripsi menjadi tidak berenKripsi, tentu sulit membuat program  "MASA PERALIHAN" nya, maka itu cukup dengan:
*** hapus isi tabel tsb 
*** buat / isi dengan data baru (secra manual) yg tidak di-enKripsi.

mudah-mudahan tidak salah advice,

-liz haps-

2011/11/21 Harry <hariansyahptk@yahoo.com>

>Terima kasih atas infomasi dan referensinya. Referensi tersebut sangat berguna.
>Pada referensi tersebut, bisakah "USER NAME" dan "PASSWORD" tidak diganti dengan bahasa kode...??? 
Atau dengan penjelasan lain; bisakah output pada Sheet "User' untuk "USER NAME" dan 
"PASSWORD" tetap sebagaimana diinput...???
>Terima kasih.
>Regards,
>
>

Back to top

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

5a.

Re: Menyisipkan 3 blankcell antar kelompok data

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

Thu Nov 24, 2011 6:19 am (PST)

Coba juga : Pada B1 diberi header, dan B2 diberi formula :
=IF(ROW(1:1)-COUNTBLANK(B$1:B1)>=COUNTA($A$2:$A$55),"",IF((MOD(COUNTBLANK(B$1:B1),3)>0)+(COUNTIF(B$1:B1,B1)=COUNTIF($A$2:$A$55,B1)),"",INDEX($A$2:$A$55,ROW(1:1)-COUNTBLANK(B$1:B1))))
Copy ke bawah sesuai kebutuhan.

Wassalam,
Kid.

2011/11/24 andri apriyadi <andreemobile@yahoo.co.id>

> **
>
>
> Dear Pakar excel,
>
> Mohon bantuannya, bagaimana formulanya agar deretdata bisa dipisahkan
> dengan 3 baris blank cell antar kelompoknya?
> (contoh terlampir)
>
> awal hasil
> 1 1
> 1 1
> 1 1
> 2
> 2
> 3
> 4 2
> 4 2
> 4
> 5
> 6
> 6 3
> dst..
>
>
> Thank atas bantuannya!
>
>
> Regards
>
>
> Andree
>
>
>

Back to top

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

Recent Activity

•  28
  New Members

Visit Your Group

Yahoo! Groups

Do More For Cats Group

Connect and share with

cat owners like you

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Tips for family,

kids and living

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