Senin, 25 Juni 2018

[belajar-excel] Digest Number 4526

6 Messages

Digest #4526
1a
Rumus Concatenate by "Fahmi Syaifullah" fahmisyaifullah20
1b
Re: Rumus Concatenate [1 Attachment] by "hendrik karnadi" hendrikkarnadi
1c
Re: Rumus Concatenate [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
1d
Re: Rumus Concatenate by "Fahmi Syaifullah" fahmisyaifullah20
1e
2a
Re: Edit file Excel secara bersamaan by "cahayaoptikmandiri" cahayaoptikmandiri

Messages

Sun Jun 24, 2018 10:07 pm (PDT) . Posted by:

"Fahmi Syaifullah" fahmisyaifullah20

Assalamu'alaikum Wr.Wb
selamat siang Beexceller.sebelumnya minal aidin walfaidzin mohon maaf lahir batin untuk rekan Bexceller.
mau tanya untuk rumus yang saya lampirkan. bagaimana untuk menyatukan data berikut dengan kriteria blanks tidak includekan. mohon bantuannya Beexceller. 
terima kasih 
wassalamu'laikum Wr. Wb

Mon Jun 25, 2018 1:19 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Fahmi,
Coba copas ini pada Module1 VBE Sheet,
Option ExplicitFunction ConcatenateNonZero(Rng As Range, Krite As Integer) As String
                                '---------------------------------------   ' siti Vi / UDF menggabung bersyarat   ' bluewater, june 22, 2008   ' modified by HK (Non Zero gabung dengan Judul Kolom June 25, 2018)   '---------------------------------------   Dim Cel As Range, Hasil As String, n As Long   For Each Cel In Rng     If Cel <> Krite _     Then Hasil = Hasil & " " & Cel & WorksheetFunction.Choose(Cel.Column, "A", "B", "C", "D", "E", "F")   Next   ConcatenateNonZero = Hasil   If Len(Hasil) > 0 Then _   ConcatenateNonZero = Right(Hasil, Len(Hasil) - 1)   End Function
Tulis function =ConcatenateN0nZero(Rangenya,0)....contoh =ConcatenateNonZero(A3:F3,0) lalu copy ke bawah.
Jangan lupa Save sebagai File Macro dengan extension .xls, .xlsb, atau .xlsm.
Salam,HK

On Monday, 25 June 2018, 12:07:52 PM GMT+7, Fahmi Syaifullah fahmisyaifullah20@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Assalamu'alaikum Wr.Wb
selamat siang Beexceller.sebelumnya minal aidin walfaidzin mohon maaf lahir batin untuk rekan Bexceller.
mau tanya untuk rumus yang saya lampirkan. bagaimana untuk menyatukan data berikut dengan kriteria blanks tidak includekan. mohon bantuannya Beexceller. 
terima kasih 
wassalamu'laikum Wr. Wb

Mon Jun 25, 2018 1:59 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

wa'alaikumussalam wr wb

Coba : (misal mulai kolom A, teks keterangan di baris 1, untuk data mulai
baris 2 di kolom A dan B, regional setting EN)
=Trim( Rept(a2&a$1&" ",a2<>0) & Rept(b2&b$1&" ",b2<>0) )

Sila dikembangkan sesuai kondisi setempat.

Wassalamu'alaikum wr wb
Kid

2018-06-25 12:07 GMT+07:00 Fahmi Syaifullah fahmisyaifullah20@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Assalamu'alaikum Wr.Wb
>
> selamat siang Beexceller.
> sebelumnya minal aidin walfaidzin mohon maaf lahir batin untuk rekan
> Bexceller.
>
> mau tanya untuk rumus yang saya lampirkan. bagaimana untuk menyatukan data
> berikut
> dengan kriteria blanks tidak includekan. mohon bantuannya Beexceller.
>
> terima kasih
>
> wassalamu'laikum Wr. Wb
>
>
>

Mon Jun 25, 2018 2:19 am (PDT) . Posted by:

"Fahmi Syaifullah" fahmisyaifullah20

assalamu'alaikum wr.wb
dear pak HK dan Mr.Kid
terima kasih masukannya.bekerja dengan baik. semoga panjang umur dalam sehat aamiin..
sangat mencerahkan. 
wassalamu'alaikum wr.wbfahmi
Pada Senin, 25 Juni 2018 15.59.19 WIB, 'Mr. Kid' mr.nmkid@gmail..com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

wa'alaikumussalam wr wb
Coba : (misal mulai kolom A, teks keterangan di baris 1, untuk data mulai baris 2 di kolom A dan B, regional setting EN)=Trim( Rept(a2&a$1&" ",a2<>0) & Rept(b2&b$1&" ",b2<>0) )
Sila dikembangkan sesuai kondisi setempat.
Wassalamu'alaikum wr wbKid

2018-06-25 12:07 GMT+07:00 Fahmi Syaifullah fahmisyaifullah20@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 

Assalamu'alaikum Wr.Wb
selamat siang Beexceller.sebelumnya minal aidin walfaidzin mohon maaf lahir batin untuk rekan Bexceller.
mau tanya untuk rumus yang saya lampirkan. bagaimana untuk menyatukan data berikut dengan kriteria blanks tidak includekan. mohon bantuannya Beexceller. 
terima kasih 
wassalamu'laikum Wr. Wb

#yiv4842833624 #yiv4842833624 -- #yiv4842833624ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4842833624 #yiv4842833624ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4842833624 #yiv4842833624ygrp-mkp #yiv4842833624hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4842833624 #yiv4842833624ygrp-mkp #yiv4842833624ads {margin-bottom:10px;}#yiv4842833624 #yiv4842833624ygrp-mkp .yiv4842833624ad {padding:0 0;}#yiv4842833624 #yiv4842833624ygrp-mkp .yiv4842833624ad p {margin:0;}#yiv4842833624 #yiv4842833624ygrp-mkp .yiv4842833624ad a {color:#0000ff;text-decoration:none;}#yiv4842833624 #yiv4842833624ygrp-sponsor #yiv4842833624ygrp-lc {font-family:Arial;}#yiv4842833624 #yiv4842833624ygrp-sponsor #yiv4842833624ygrp-lc #yiv4842833624hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4842833624 #yiv4842833624ygrp-sponsor #yiv4842833624ygrp-lc .yiv4842833624ad {margin-bottom:10px;padding:0 0;}#yiv4842833624 #yiv4842833624actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4842833624 #yiv4842833624activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4842833624 #yiv4842833624activity span {font-weight:700;}#yiv4842833624 #yiv4842833624activity span:first-child {text-transform:uppercase;}#yiv4842833624 #yiv4842833624activity span a {color:#5085b6;text-decoration:none;}#yiv4842833624 #yiv4842833624activity span span {color:#ff7900;}#yiv4842833624 #yiv4842833624activity span .yiv4842833624underline {text-decoration:underline;}#yiv4842833624 .yiv4842833624attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4842833624 .yiv4842833624attach div a {text-decoration:none;}#yiv4842833624 .yiv4842833624attach img {border:none;padding-right:5px;}#yiv4842833624 .yiv4842833624attach label {display:block;margin-bottom:5px;}#yiv4842833624 .yiv4842833624attach label a {text-decoration:none;}#yiv4842833624 blockquote {margin:0 0 0 4px;}#yiv4842833624 .yiv4842833624bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4842833624 .yiv4842833624bold a {text-decoration:none;}#yiv4842833624 dd.yiv4842833624last p a {font-family:Verdana;font-weight:700;}#yiv4842833624 dd.yiv4842833624last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4842833624 dd.yiv4842833624last p span.yiv4842833624yshortcuts {margin-right:0;}#yiv4842833624 div.yiv4842833624attach-table div div a {text-decoration:none;}#yiv4842833624 div.yiv4842833624attach-table {width:400px;}#yiv4842833624 div.yiv4842833624file-title a, #yiv4842833624 div.yiv4842833624file-title a:active, #yiv4842833624 div.yiv4842833624file-title a:hover, #yiv4842833624 div.yiv4842833624file-title a:visited {text-decoration:none;}#yiv4842833624 div.yiv4842833624photo-title a, #yiv4842833624 div.yiv4842833624photo-title a:active, #yiv4842833624 div.yiv4842833624photo-title a:hover, #yiv4842833624 div.yiv4842833624photo-title a:visited {text-decoration:none;}#yiv4842833624 div#yiv4842833624ygrp-mlmsg #yiv4842833624ygrp-msg p a span.yiv4842833624yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4842833624 .yiv4842833624green {color:#628c2a;}#yiv4842833624 .yiv4842833624MsoNormal {margin:0 0 0 0;}#yiv4842833624 o {font-size:0;}#yiv4842833624 #yiv4842833624photos div {float:left;width:72px;}#yiv4842833624 #yiv4842833624photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv4842833624 #yiv4842833624photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4842833624 #yiv4842833624reco-category {font-size:77%;}#yiv4842833624 #yiv4842833624reco-desc {font-size:77%;}#yiv4842833624 .yiv4842833624replbq {margin:4px;}#yiv4842833624 #yiv4842833624ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4842833624 #yiv4842833624ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4842833624 #yiv4842833624ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4842833624 #yiv4842833624ygrp-mlmsg select, #yiv4842833624 input, #yiv4842833624 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4842833624 #yiv4842833624ygrp-mlmsg pre, #yiv4842833624 code {font:115% monospace;}#yiv4842833624 #yiv4842833624ygrp-mlmsg * {line-height:1.22em;}#yiv4842833624 #yiv4842833624ygrp-mlmsg #yiv4842833624logo {padding-bottom:10px;}#yiv4842833624 #yiv4842833624ygrp-msg p a {font-family:Verdana;}#yiv4842833624 #yiv4842833624ygrp-msg p#yiv4842833624attach-count span {color:#1E66AE;font-weight:700;}#yiv4842833624 #yiv4842833624ygrp-reco #yiv4842833624reco-head {color:#ff7900;font-weight:700;}#yiv4842833624 #yiv4842833624ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4842833624 #yiv4842833624ygrp-sponsor #yiv4842833624ov li a {font-size:130%;text-decoration:none;}#yiv4842833624 #yiv4842833624ygrp-sponsor #yiv4842833624ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4842833624 #yiv4842833624ygrp-sponsor #yiv4842833624ov ul {margin:0;padding:0 0 0 8px;}#yiv4842833624 #yiv4842833624ygrp-text {font-family:Georgia;}#yiv4842833624 #yiv4842833624ygrp-text p {margin:0 0 1em 0;}#yiv4842833624 #yiv4842833624ygrp-text tt {font-size:120%;}#yiv4842833624 #yiv4842833624ygrp-vital ul li:last-child {border-right:none !important;}#yiv4842833624

Mon Jun 25, 2018 7:28 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Kalau Judul Kolomnya ("A",....."F") mau diganti dan tidak mau mengubah programnya maka perintah yang berwarna merah diganti dengan
Then Hasil = Hasil & " " & Cel & Cells(2, Cel.Column)

Salam,HK

----- Forwarded message ----- From: hendrik karnadi <hendrikkarnadi@yahoo.com>To: Fahmi Syaifullah fahmisyaifullah20@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>Sent: Monday, 25 June 2018, 3:19:40 PM GMT+7Subject: Re: [belajar-excel] Rumus Concatenate [1 Attachment]
Hai Fahmi,
Coba copas ini pada Module1 VBE Sheet,
Option ExplicitFunction ConcatenateNonZero(Rng As Range, Krite As Integer) As String
                                '---------------------------------------   ' siti Vi / UDF menggabung bersyarat   ' bluewater, june 22, 2008   ' modified by HK (Non Zero gabung dengan Judul Kolom June 25, 2018)   '---------------------------------------   Dim Cel As Range, Hasil As String, n As Long   For Each Cel In Rng     If Cel <> Krite _     Then Hasil = Hasil & " " & Cel & WorksheetFunction.Choose(Cel.Column, "A", "B", "C", "D", "E", "F")   Next   ConcatenateNonZero = Hasil   If Len(Hasil) > 0 Then _   ConcatenateNonZero = Right(Hasil, Len(Hasil) - 1)   End Function
Tulis function =ConcatenateN0nZero(Rangenya,0)....contoh =ConcatenateNonZero(A3:F3,0) lalu copy ke bawah.
Jangan lupa Save sebagai File Macro dengan extension .xls, .xlsb, atau .xlsm.
Salam,HK

On Monday, 25 June 2018, 12:07:52 PM GMT+7, Fahmi Syaifullah fahmisyaifullah20@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Assalamu'alaikum Wr.Wb
selamat siang Beexceller.sebelumnya minal aidin walfaidzin mohon maaf lahir batin untuk rekan Bexceller.
mau tanya untuk rumus yang saya lampirkan. bagaimana untuk menyatukan data berikut dengan kriteria blanks tidak includekan. mohon bantuannya Beexceller. 
terima kasih 
wassalamu'laikum Wr. Wb

Mon Jun 25, 2018 5:00 am (PDT) . Posted by:

"cahayaoptikmandiri" cahayaoptikmandiri

Salam om Kid..
Terima kasih atas responnya ..
ok ini saya coba dulu di olah pake spreedsheet..nanti kalo ada yg
kurang jelas tak nanya lagi..

terima kasih
Yudha



Dikirim dari telepon Mi sayaPada "'Mr. Kid' mr.nmkid@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com>, 24 Jun 2018
6.12 AM menulis:


 
Hai Yudha,
1. cara komputer lain agar bisa mengakses file tersebut ( gak ada
lokal server ) soalnya pake google Drive kok larinya ke
spreedsheet, jadi bukan excel
> File disimpan dalam google drive> download file dari google
drive ke sebuah folder atau manfaatkan app gdrive untuk sync ke
folder tertentu dalam komputer> buka file di folder yang di-sync
(file xls* akan dibuka dengan Excel di komputer tersebut)> Kalau
dipakai bersamaan (shared) dan multiuser yang meng-edit
bersamaan, maka harus dengan spreadsheet milik google
Bisa juga memanfaatkan OneDrive milik ms dan bisa menggunakan
Excel 2013 ke atas untuk login ke onedrive.Pada Excel 2016,
shared workbook mulai dihilangkan (masih ada tapi disembunyikan
dari penampakan dalam ribbon). Digantikan dengan share
menggunakan onedrive.
2. Agar sumber file ( komputer. Induk ) dapat menampilkan update
data
> Coba pakai OneDrive seperti penjelasan di atas, lalu manfaatkan
fitur Share

Cara dengan VBA di Excel interface, dengan file data di file lain
(berbeda dengan file interface berisi VBA) bisa memanfaatkan
google drive.Jadi, dengan app backup n sync gdrive untuk file
data, maka file interface di setiap komputer user bisa melakukan
input di file interface, dan VBA mengirim ke file data hasil sync
gdrive dilanjutkan dengan upload ke gdrive.


Regards,Kid







2018-06-23 16:24 GMT+07:00 cahayaoptikmandiri
cahayaoptikmandiri@yahoo.co.id
<mailto:cahayaoptikmandiri@yahoo.co.id> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:
 


Salam master
Mau nanya tentang mengerjakan 1 file secara bersamaan( sharing
file )di laptop/komputer berbeda. Pertanyaannya adalah
1 cara komputer lain agar bisa mengakses file tersebut ( gak ada
lokal server ) soalnya pake google Drive kok larinya ke
spreedsheet, jadi bukan excel
2. Agar sumber file ( komputer. Induk ) dapat menampilkan update
data
Kalo ada yg kurang jelas saya mohon maaf

Salam
Yudha

Dikirim dari telepon Mi saya



============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar