Mohon dibantu untuk menyambung data terlampir.

[YUSUF R MANURUNG]

Dear Mr Kid,

Mohon dibantu untuk menyambung data terlampir.

Terimakasih

Regards,

Yr

[Mr. Kid]

Pastikan semua baris dibawah header table kolom A tidak pernah diisi nilai apapun selain nilai data table.

Step :
1. buat event worksheet change di sheet tersebut (lihat disini)

    > range yang diubah nilanya ada di variable bernama Target (kenalan dengan variabel disini)

2. deklarasikan variabel penyimpan teks yang mau diubah, misal sTeks as striing. Juga deklarasikan variabel penyimpan bilangan bullet posisi karakter, misal lChar as long.

3. cek (pakai IF), jika banyaknya range yang diubah hanya ada 1 (pakai properti Count, Target.Count)

4. di dalam IF nomor 3, cek lagi, jika baris yang diubah adalah setelah baris header (baris yang diubah adalah Target.Row)

5. di dalam IF nomor 4, cek lagi, jika kolom yang diubah adalah kolom tersebut, misal kolom A (kolom ke-1 Excel) [kolom yang diubah adalah Target.Column]

6. di dalam IF nomor 5, buat baris untuk semua proses

    a. ambil teks lama yang akan dipasangi nilai baru, dan simpan ke variabel yang sudah dideklarasikan tadi (manfaatkan offset, lihat disini)

    b. cari posisi karakter '=' pada variabel hasil poin a yang sudah ditambahkan karakter '=' dibagian akhirnya. Pakai InStr, cek di google

    c. ambil dari variabel teks poin a, sebelum sebanyak hasil pon b dikurangi 1, lalu tambahkan nilai yang diubah (nilai yang diubah adalah Target.Value)

Selamat mencoba

Regards,

Kid

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to milis-belajar-e...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/b314ebfa-5bc0-4a5b-bea7-fa4b8ebd4235n%40googlegroups.com.

[YUSUF R MANURUNG]

Dear Mr Kid,

Setelah dicoba:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    If Len(Target.Value) = 0 Then
        Target.Offset(0, 1).Value = Split(Target.Offset(0, 1).Value, "=")(0) & "="
    Else
        Target.Offset(0, 1).Value = Target.Offset(0, 1).Value & Target.Value
    End If
End If
End Sub

Script bisa tetap ada kelemahannya Yaitu:

1. Ketika Kolom A sudah ditulis Angka 2, selanjutnya saya ubah Angka 3 Maka hasilnya Salah yaitu: 23 yg seharusnya Angka 3 Saja

Mohon koreksinya

Terimakasih

REgards

YR

[Mr. Kid]

itu blok if yang len-nya terbalik. IF isinya kosong (len=0) maka tulis teks dasar else tulis yang benar

coba saja dibalik dan diubah suai

Sebaiknya ditambahkan blok if

3. cek (pakai IF), jika banyaknya range yang diubah hanya ada 1 (pakai properti Count, Target.Count)

4. di dalam IF nomor 3, cek lagi, jika baris yang diubah adalah setelah baris header (baris yang diubah adalah Target.Row)

disisi luarnya supaya jadi lebih terbatas area kerja script tersebut.

Regards,

Kid

To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/68eb497b-5ac7-438a-80ac-506c86358350n%40googlegroups.com.

[YUSUF R MANURUNG]

Mr Kid,

Bisakah kirimkan scriptnya

Terimakasih

Regards

YR

You received this message because you are subscribed to a topic in the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this topic, visit https://groups.google.com/d/topic/milis-belajar-excel/74uRWqA2FDg/unsubscribe.
To unsubscribe from this group and all its topics, send an email to milis-belajar-e...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPs8aigL-DGWKaX85dd0tVZxJ_rWPdpept9PsGZ-VggO1Q%40mail.gmail.com.

[Nang Agus]

Dear Yusuf Manurung.

Coba baca lagi perintahnya mas Kid!

  a. ambil teks lama yang akan dipasangi nilai baru, dan simpan ke variabel yang sudah dideklarasikan tadi (manfaatkan offset, lihat disini)

       lama = Target.Offset(0, 1).Value

    b. cari posisi karakter '=' pada variabel hasil poin a yang sudah ditambahkan karakter '=' dibagian akhirnya. Pakai InStr, cek di google

        no=instr(lama,"=")

    c. ambil dari variabel teks poin a, sebelum sebanyak hasil pon b dikurangi 1, lalu tambahkan nilai yang diubah (nilai yang diubah adalah Target.Value)

       baru=left(lama,no)

       Target.Offset(0, 1).Value=baru & Target.Value

He he he, Jadinya saya yang belajar kembali.

To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CALjPHjB3hr10QHaN78ypkOXwFk234QbK7kWwt4iPsP0vsN1V0w%40mail.gmail.com.

[Mr. Kid]

wkwkwk

To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAH8HTCMY9G4PpME_K%2BsSAKXQjzLfZp_5%3DR7%2BGLyz51vBqwUXFw%40mail.gmail.com.

[YUSUF R MANURUNG]

Spertinya Ini bukan Mr Kid yg AQ kenal

To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPuqYoyQSnpvBhBwemA24B-U8R00PB3V%3DamNU4oc3UHstA%40mail.gmail.com.