Kamis, 04 April 2013

[belajar-excel] Digest Number 2209

4 New Messages

Digest #2209
2a
Re: Membuat mutasi stock dari ribuan file by "Mr. Kid" nmkid.family@ymail.com
3
Fw: Kode VBA ada yg terbalik by "lapendosol opik" lapendosol
4
tanya : copy-paste data sesuai kondisi (VBA) by "WIRAnata Kemala T." kwiranata

Messages

Thu Apr 4, 2013 4:52 am (PDT) . Posted by:

Dear BeExceller,

Bagaimana memisahkan kata yang dipisahkan dengan spasi ? Contoh 1 kata :
Tio Adi Bayu Adjie menjadi 4 kolom yaitu Tio, kolom ke2 Adi, kolom ke3
Bayu, kolom ke 4 Adjie.

Terima kasih,
Wassalam,
Tio

Thu Apr 4, 2013 5:14 am (PDT) . Posted by:

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

Bagaimana kalau melampirkan workbook kartu stok (beberapa) dan workbook
hasil yang sudah berisi daftar nama file beserta kode-kode atau informasi
mutasi apa saja baris mana saja yang akan diambil dari setiap workbook.

Wassalam,
Kid.

2013/4/3 yohanes <yohanes_ats@yahoo.com>

> **
>
>
> Siang,
>
> Saya mempunyai ribuan kartu stock dalam format excel yang ingin saya tanya
> bagaimana mendapatkan laporan mutasi stock per hari atau dari tanggal
> sampai tanggal ?
> karena dari ribuan kartu stock tersebut belum tentu semua file mengalami
> mutasi.
>
> Contohnya:
>
> File 1 ada 2 mutasi masuk
> File 230 ada 1 mutasi masuk & 3 mutasi keluar
> File 3000 ada 5 mutasi keluar
>
> dalam report tersebut yang ingin saya tampilkan:
>
> 2 mutasi masuk dari file 1
> 1 mutasi masuk dari file 230
> 3 mutasi keluar dari file 230
> 5 mutasi keluar dari file 3000
>
> sehingga reportnya berisi 11 baris :
>
> Mohon petunjuk para master atas masalah saya ini.
>
> Thank's
> Yohanes
>
>
>

Thu Apr 4, 2013 5:41 am (PDT) . Posted by:

"lapendosol opik" lapendosol

Maaf sebelumnya udah ngotorin di milis, soal yg saya tanyakan udah beres

Bodoh sekali saya, saya otak atik kembali diganti manual sSisi nya malah bisa

    If Left$(sJari, 1) = "R" Then
        lSisi = 1
        sSisi = vbNullString
        s1 = "kiri"
        s2 = "kanan"
    Else
        lSisi = 0
        sSisi = "R"
        s1 = "kiri"
        s2 = "kanan"
    End If
Maaf sekali lagi dan terima kasih
Wassalam,

----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, April 4, 2013 6:26 PM
Subject: Kode VBA ada yg terbalik


Dear para Master Excel,
Saya ada kode VBA sebagai berikut:
Private Sub cmdTARL_Click()
'masih eror
Dim oLbl(1, 4) As Control, oTxt(1, 4) As Control 'ganti control dengan msforms.label atau msforms.textbox jika object ada di worksheet
Dim sKet As String, s1 As String, s2 As String, sfile1 As String, sfile2 As String, sJari As String, sSisi As String, sSisiTeks As String
Dim lSisi As Long, lNo As Long

Set oLbl(0, 0) = lblL1: Set oLbl(0, 1) = lblL2: Set oLbl(0, 2) = lblL3: Set oLbl(0, 3) = lblL4: Set oLbl(0, 4) = lblL5
Set oLbl(1, 0) = lblR1: Set oLbl(1, 1) = lblR2: Set oLbl(1, 2) = lblR3: Set oLbl(1, 3) = lblR4: Set oLbl(1, 4) =
lblR5
Set oTxt(0, 0) = txtL1: Set oTxt(0, 1) = txtL2: Set oTxt(0, 2) = txtL3: Set oTxt(0, 3) = txtL4: Set oTxt(0, 4) = txtL5
Set oTxt(1, 0) = txtR1: Set oTxt(1,
1) = txtR2: Set oTxt(1, 2) = txtR3: Set oTxt(1, 3) = txtR4: Set oTxt(1, 4) = txtR5
sKet = "Turuan dari Tented Arch menuju Ulnar Loop. Pada tangan %s1, tampak seperti belahan rambut ikal memiliki arah alur ke%s2. Hampir/sudah memiliki Core maupun Delta, tetapi hampir tidak ada jarak antara Core dan Delta."
sfile1 = "C:\Tipe Jari\TA-%s1L1.jpg"
sfile2 = "C:\Tipe Jari\TA-%s1L2.jpg"

If LenB(lblFolder.Caption) <> 0 Then
    lblNamaJari.Caption = "Tented Arch with Ulnar Loop"
    sJari = lblJari.Caption
    lNo = CLng(Mid$(sJari, 2, 1)) - 1
    If Left$(sJari, 1) = "R" Then
        lSisi = 1
        sSisi = Left$(sJari, 1)
        s1 = "kiri"
        s2 = "kanan"
    Else
        lSisi = 0
        sSisi = vbNullString
        s1 = "kiri"
        s2 = "kanan"
    End If
   lblKeterangan.Caption = Replace$(Replace$(sKet, "%s1", s1), "%s2", s2)
   imgC1.Picture = LoadPicture(vbNullString)
   imgC1.Picture = LoadPicture(Replace$(sfile1, "%s1", sSisi))
   imgC2.Picture = LoadPicture(vbNullString)
   imgC2.Picture = LoadPicture(Replace$(sfile2, "%s1", sSisi))
   oLbl(lSisi, lNo).Caption = "TA-RL"
   oTxt(lSisi, lNo).Text = 0
   oTxt(lSisi, lNo).SetFocus
Else
   MsgBox ("Tentukan Folder Terlebih Dahulu")
End If
End Sub

Yg berwarna biru adalah kode yg bermasalah (kebalik), yg warna hijau adalah kondisi.
Ada 2 jenis gambar di C:\Tipe Jari\, yaitu TA-L.jpg dan TA-RL.jpg

Yg saya harapkan,
Jika Left$(sJari, 1) = "R" maka pasang imgC1.Picture dan imgC2.Picture dengan file
C:\Tipe Jari\TA-L1.jpg dan C:\Tipe Jari\TA-L2.jpg
Jika Left$(sJari, 1) = "L" maka pasangimgC1.Picture dan imgC2.Picture dengan file
C:\Tipe Jari\TA-RL1.jpg dan C:\Tipe Jari\TA-RL2.jpg

Saya sudah coba balik sSisinya yg vbNullString pindah keatas dan sebaliknya, tapi malah error
Mohon bantuannya pada rekan-rekan Master Excel, atas bantuannya saya ucapkan terimakasih
Wassalam,

Thu Apr 4, 2013 5:45 am (PDT) . Posted by:

"WIRAnata Kemala T." kwiranata

dear all,

mohon petunjuk atau bantuannya untuk solve issue yang saya hadapi:

untuk copy-paste ke sheet hasil dari sheet data; masing-masing salesperson
hanya dipaste sesuai dengan persyaratan (hanya x row pertama yang dipaste
ke sheet hasil)
Untuk lebih jelas, mohon dilihat attachment nya.

secara data jumlahnya ribuan row, sepertinya perlu memakai looping di VBA
deh, mohon petunjuk, sekalian belajar, langsung nyelam ke real sample
coding nya. semoga nanti nya juga bisa berbagi :)

terima kasih banyak atas bantuan dan atensi nya.

--

regards, Wira 鄧又銘
from FireFox browser
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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