[belajar-excel] Digest Number 4266

Milis Belajar Microsoft Excel Group

5 Messages

Digest #4266

1a

Formula Memasukan Data Luar XL ke Sheet XL by "Zerlinda Seismica" seismica

1b

Re: Formula Memasukan Data Luar XL ke Sheet XL [1 Attachment] by "hendrik karnadi" hendrikkarnadi

2a

Re: Code VBA dengan Worksheet _Change [1 Attachment] by "Tio Adi Bayu Adjie"

2b

Re: Code VBA dengan Worksheet _Change [1 Attachment] by "nangagus"

3

MenShort data by ragustina98

Messages

1a

Formula Memasukan Data Luar XL ke Sheet XL

Fri Aug 11, 2017 1:08 am (PDT) . Posted by:

"Zerlinda Seismica" seismica

Assalamualikum wrwb
Mohon izin kembali bapak ibu untuk terus bertanya.Sesuia judul subjek akan lebih pas kalau bapak ibu bisa menengok dulu lampirannya
WasalamSeismica

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

1b

Re: Formula Memasukan Data Luar XL ke Sheet XL [1 Attachment]

Fri Aug 11, 2017 3:44 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Seismica,
Ini warisan dari Mr. Kid ---> pake macro dan bentuknya imageUntuk perbandingan saya lampirkan juga warisan dari Mbak Siti (gambar ditaruh pada Sel tertentu (Range), tetapi ukuran fotonya tidak persis sama).Mohon Maaf bang Mod, ukurannya melebihi kuota.
Salam,HK

On Friday, August 11, 2017, 3:08:28 PM GMT+7, Zerlinda Seismica seismica@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Assalamualikum wrwb
Mohon izin kembali bapak ibu untuk terus bertanya.Sesuia judul subjek akan lebih pas kalau bapak ibu bisa menengok dulu lampirannya
WasalamSeismica

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

2a

Re: Code VBA dengan Worksheet _Change [1 Attachment]

Fri Aug 11, 2017 1:08 am (PDT) . Posted by:

"Tio Adi Bayu Adjie"

Salam Be-Exceller,

Apakah ada teman-teman yang punya solusi untuk kasus saya di bawah ini ?

Terima kasih sebelumnya.

________________________________
From: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com> on behalf of Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com>
Sent: Sunday, August 6, 2017 4:30 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]

This sender failed our fraud detection checks and may not be who they appear to be. Learn about spoofing<http://aka.ms/LearnAboutSpoofing>
Feedback<http://aka.ms/SafetyTipsFeedback>

Dear Be-Exceller,

Bagaimana code VBA dengan menggunakan Private Sub Worksheet_Change(ByVal Target As Range). Jadi kalau isian di combo box di ganti maka nilainya kembali ke nilai sebelumnya kalau salah input.

Misalnya sebelumnya nilai di combo box nilainya "Oil", kemudian kita ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya (Oil).

Untuk lebih jelasnya, bisa dilihat di file terlampir.

Terima kasih.

Best Regards,
Tio Adi Bayu Adjie

.

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

2b

Re: Code VBA dengan Worksheet _Change [1 Attachment]

Fri Aug 11, 2017 4:58 pm (PDT) . Posted by:

"nangagus"

Dear Tio

untuk membuat cekrip dimaksud, menurut saya sangat susah karena
pengetahuan saya yang minim tentang VBA.
Misalnya dibuat cekrip seperti ini:

If Target.Address = "$C$5" Then
a = Range("C5")
    b = MsgBox("Anda merubah nilai ini, apakah anda yakin ?", 4, "PESAN")
    If b = 6 Then
    Range("C5") = a
    Exit Sub
    End If
End If
End Sub

Jika cell C5 diubah, ridak bermasalah. namun apabila tidak jadi diubah
maka terjadi looping terus menerus yang tidak berhenti,

Munginkah member b-excel memperbaiki cekrip tersebut?

Saya hanya menyarankan menggunakan userForm sebagai gantinya agar
kondisi tersebut dapat dipenuhi.

Option Explicit
Dim a As String
Dim b As String

Private Sub ComboBox1_Change()
b = MsgBox("Anda merubah nilai ini, apakah anda yakin ?", vbYesNo, "Pesene")
    If b = 6 Then
        Range("C5") = ComboBox1.Value
        UserForm1.Hide
    Else
        UserForm1.Hide
    End If
End Sub

Private Sub UserForm_Activate()
a = ""
ComboBox1.Text = Range("c5")
a = ComboBox1.Value
End Sub

salam

NangAgus

On 8/10/2017 10:19 AM, Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] wrote:
>
> Salam Be-Exceller,
>
> Apakah ada teman-teman yang punya solusi untuk kasus saya di bawah ini ?
>
>
> Terima kasih sebelumnya.
>
>
> ----------------------------------------------------------
> *From:* belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>
> on behalf of Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel]
> <belajar-excel@yahoogroups.com>
> *Sent:* Sunday, August 6, 2017 4:30 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Code VBA dengan Worksheet _Change [1
> Attachment]
>
>
> This sender failed our fraud detection checks and may not be who they appear to be. Learn about
> spoofing <http://aka.ms/LearnAboutSpoofing>
> Feedback <http://aka.ms/SafetyTipsFeedback>
>
> Dear Be-Exceller,
>
> Bagaimana code VBA dengan menggunakan *Private Sub
> Worksheet_Change(ByVal Target As Range)**.*Jadi kalau isian di combo
> box di ganti maka nilainya kembali ke nilai sebelumnya kalau salah input.
>
> Misalnya sebelumnya nilai di combo box nilainya "Oil",  kemudian kita
> ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan
> "Anda merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi
> nilai baru (Coolant). Kalau tidak yakin (dengan klik no), nilai akan
> kembali ke nilai sebelumnya (Oil).
>
> Untuk lebih jelasnya, bisa dilihat di file terlampir.
>
> Terima kasih.
>
> /Best Regards,/
>
> Tio Adi Bayu Adjie
>
> .
>
> Image removed by sender.
> Image removed by sender.
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

3

MenShort data

Fri Aug 11, 2017 6:18 pm (PDT) . Posted by:

ragustina98

dear Rekan,


mohon pencerahan, jika mau shortir karakter unik itu bagaimana ya di excel,

Contohnya kalimat nama : Chãntýe Siahâãn


Jika hanya ada 10 nama mungkin masih mudah mencarinya, tetapi apabila ada 17rb data dengan terdapat beberapa nama yang menggunakan karakter unik tersebut akan memakan waktu lama untuk mencarinya satu per satu.


mohon bantuan caranya bagaimana bisa shortir lebih efektif dan cepat


terima kasih atas bantuannya

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

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

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use