5 New Messages
Digest #2718
Messages
Thu Jan 2, 2014 10:17 pm (PST) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Formula yg mantap. Ada sedikit pertanyaan mas Aji, bgmn formulanya jika angkanya di tengah dan posisinya ga selalu sama?
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
Subject:Re: [belajar-excel] Pisah angka
From:aji mumpung <pupung1986@gmail.com>
To:belajar-excel@yahoogroups.com
Cc:
Pendekin dikit formulanya si cantik hehehe :)
semula:
=--LEFT(A2,FIND(" ",A2)-1)
menjadi:
=--LEFT(A2,FIND(" ",A2))
Wassalam,
-Aji Mumpung-
Pada 3 Januari 2014 13.02, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
nyumbang 1 formula di C2 dari sekian banyak cara yang ada:
=--LEFT(A2,FIND(" ",A2)-1)
Salam,
-Miss Jan Raisin-
Pada 3 Januari 2014 12.59, Hendrik Karnadi <hendrikkarnadi@yahoo.com> menulis:
Coba cari di file milis Function_AngkaThok, warisan dari si Mbah.
Salam,
HK
Sent from Samsung Mobile
Liem Suliem <liemsuliem@yahoo.co.id> wrote:
Dear master..
gimana formula cara pisah angka seprti file terlampir
wasalam
liem
__
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
Subject:Re: [belajar-excel] Pisah angka
From:aji mumpung <pupung1986@gmail.
To:belajar-excel@
Cc:
Pendekin dikit formulanya si cantik hehehe :)
semula:
=--LEFT(A2,FIND(
menjadi:
=--LEFT(A2,FIND(
Wassalam,
-Aji Mumpung-
Pada 3 Januari 2014 13.02, Jan Raisin <miss.jan.raisin@
nyumbang 1 formula di C2 dari sekian banyak cara yang ada:
=--LEFT(A2,FIND(
Salam,
-Miss Jan Raisin-
Pada 3 Januari 2014 12.59, Hendrik Karnadi <hendrikkarnadi@
Coba cari di file milis Function_AngkaThok, warisan dari si Mbah.
Salam,
HK
Sent from Samsung Mobile
Liem Suliem <liemsuliem@yahoo.
Dear master..
gimana formula cara pisah angka seprti file terlampir
wasalam
liem
__
Thu Jan 2, 2014 10:42 pm (PST) . Posted by:
"aji mumpung"
Jika maksud di tengah ini adalah ada 1 kata sebelum angka dan diikuti kata
setelahnya,
mungkin bisa menggunakan Substitute & Rept seperti contoh file terlampir..
tapi kalau letaknya tidak berurutan antara Text dengan Angka dan tidak ada
pola yang seragam
misal:
1AA4R23Jk862
maka udf mbak siti saya rasa yang paling pas
Wassalam,
-Aji Mumpung-
Pada 3 Januari 2014 13.17, Hendrik Karnadi <hendrikkarnadi@yahoo.com>menulis:
>
>
> Formula yg mantap. Ada sedikit pertanyaan mas Aji, bgmn formulanya jika
> angkanya di tengah dan posisinya ga selalu sama?
>
> Salam,
> HK
>
>
> Sent from Samsung Mobile
>
>
>
> -------- Original message --------
> Subject:Re: [belajar-excel] Pisah angka
> From:aji mumpung <pupung1986@gmail.com>
> To:belajar-excel@yahoogroups.com
> Cc:
>
>
>
>
> Pendekin dikit formulanya si cantik hehehe :)
>
> semula:
> =--LEFT(A2,FIND(" ",A2)-1)
>
> menjadi:
> =--LEFT(A2,FIND(" ",A2))
>
> Wassalam,
>
> -Aji Mumpung-
>
>
> Pada 3 Januari 2014 13.02, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
>
>>
>>
>> nyumbang 1 formula di C2 dari sekian banyak cara yang ada:
>>
>> =--LEFT(A2,FIND(" ",A2)-1)
>>
>> Salam,
>>
>> -Miss Jan Raisin-
>>
>>
>> Pada 3 Januari 2014 12.59, Hendrik Karnadi <hendrikkarnadi@yahoo.com>menulis:
>>
>>
>>>
>>> Coba cari di file milis Function_AngkaThok, warisan dari si Mbah.
>>>
>>> Salam,
>>> HK
>>>
>>>
>>> Sent from Samsung Mobile
>>>
>>> Liem Suliem <liemsuliem@yahoo.co.id> wrote:
>>>
>>>
>>> Dear master..
>>>
>>> gimana formula cara pisah angka seprti file terlampir
>>>
>>>
>>>
>>> wasalam
>>>
>>> liem
>>>
>>> __
>>>
>>
setelahnya,
mungkin bisa menggunakan Substitute & Rept seperti contoh file terlampir..
tapi kalau letaknya tidak berurutan antara Text dengan Angka dan tidak ada
pola yang seragam
misal:
1AA4R23Jk862
maka udf mbak siti saya rasa yang paling pas
Wassalam,
-Aji Mumpung-
Pada 3 Januari 2014 13.17, Hendrik Karnadi <hendrikkarnadi@
>
>
> Formula yg mantap. Ada sedikit pertanyaan mas Aji, bgmn formulanya jika
> angkanya di tengah dan posisinya ga selalu sama?
>
> Salam,
> HK
>
>
> Sent from Samsung Mobile
>
>
>
> -------- Original message --------
> Subject:Re: [belajar-excel] Pisah angka
> From:aji mumpung <pupung1986@gmail.
> To:belajar-excel@
> Cc:
>
>
>
>
> Pendekin dikit formulanya si cantik hehehe :)
>
> semula:
> =--LEFT(A2,FIND(
>
> menjadi:
> =--LEFT(A2,FIND(
>
> Wassalam,
>
> -Aji Mumpung-
>
>
> Pada 3 Januari 2014 13.02, Jan Raisin <miss.jan.raisin@
>
>>
>>
>> nyumbang 1 formula di C2 dari sekian banyak cara yang ada:
>>
>> =--LEFT(A2,FIND(
>>
>> Salam,
>>
>> -Miss Jan Raisin-
>>
>>
>> Pada 3 Januari 2014 12.59, Hendrik Karnadi <hendrikkarnadi@
>>
>>
>>>
>>> Coba cari di file milis Function_AngkaThok, warisan dari si Mbah.
>>>
>>> Salam,
>>> HK
>>>
>>>
>>> Sent from Samsung Mobile
>>>
>>> Liem Suliem <liemsuliem@yahoo.
>>>
>>>
>>> Dear master..
>>>
>>> gimana formula cara pisah angka seprti file terlampir
>>>
>>>
>>>
>>> wasalam
>>>
>>> liem
>>>
>>> __
>>>
>>
Thu Jan 2, 2014 10:39 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bagaimana jika dijelaskan secara rinci sumber datanya dari mana, hasil
akhir proses (output) seperti apa, kriteria-kriterianya apa saja.
Bila perlu, lampirkan contoh data (workbook). Akan lebih memudahkan calon
penanggap jika tidak di-password dan diberi contoh kasus sumber data
beserta contoh output hasil kerja manual.
Wassalam,
Kid.
2014/1/2 Bos Kbrn <bos.kbrn@yahoo.com>
>
>
> para master excel yg budiman, saya mau bertanya nih, jika mau menampilkan
> saldo kas dengan koding dibawah ini
> If boolSaldo Then
> If startdate = enddate And rst("tgl_transaksi").Value <
> startdate Then
> totals(sumberdanacol) = totals(sumberdanacol) +
> rst("jumlah").Value
> End If
> If startdate >= thnbaru And rst("tgl_transaksi").Value
> > thnbaru Then
> If rst("bank_kas").Value = "bank" Then
> totals(sumberdanacol) = totals(sumberdanacol) +
> rst("jumlah").Value
> End If
>
> End If
>
> Else
> If sumberdanacol >= 0 Then
>
> If rst("bank_kas").Value = "bank" Then
>
> totals(sumberdanacol) = totals(sumberdanacol)
> + rst("jumlah").Value
> End If
>
> End If
>
> End If
> End If
>
> Next
> If boolSaldo Then
>
> If startdate >= thnbaru Then
>
> temps = Pengeluaran(startdate)
> total2(sumberdanacol) = total2(sumberdanacol) +
> temps(sumberdanacol)
> End If
>
> End If
> For I = 1 To 5
> totals(I) = totals(I) - total2(I)
> Next I
> rangenya.Cells(1, 4).FormulaR1C1Local = "=sum(R[0]C[1]:R[0]C[6])"
> rangenya.Cells(1, 5).Value = totals(0)
> rangenya.Cells(1, 6).Value = totals(1)
> rangenya.Cells(1, 7).Value = totals(2)
> rangenya.Cells(1, 8).Value = totals(3)
> rangenya.Cells(1, 9).Value = totals(4)
> rangenya.Cells(1, 10).Value = totals(5)
> End If
> End Function
> permasalahannya : pada saat di perview laporan hanya menunjukkan saldo
> bank, sedangkan saldo kas diabaikan, bagaimana cara menjumlah saldo kas dan
> bank untuk koding tersebut, thx
>
> ***** Mods *****
> Akan lebih jelas jika dilampirkan file dummy yang mewakili pertanyaan
> dibandingkan BeExceller harus membaca script yang anda berikan
> tanpa mengetahui maksud dari setiap baris script tersebut.
> ******************
>
>
>
akhir proses (output) seperti apa, kriteria-kriteriany
Bila perlu, lampirkan contoh data (workbook). Akan lebih memudahkan calon
penanggap jika tidak di-password dan diberi contoh kasus sumber data
beserta contoh output hasil kerja manual.
Wassalam,
Kid.
2014/1/2 Bos Kbrn <bos.kbrn@yahoo.
>
>
> para master excel yg budiman, saya mau bertanya nih, jika mau menampilkan
> saldo kas dengan koding dibawah ini
> If boolSaldo Then
> If startdate = enddate And rst("tgl_
> startdate Then
> totals(sumberdanaco
> rst("jumlah&qu
> End If
> If startdate >= thnbaru And rst("tgl_
> > thnbaru Then
> If rst("bank_
> totals(sumberdanaco
> rst("jumlah&qu
> End If
>
> End If
>
> Else
> If sumberdanacol >= 0 Then
>
> If rst("bank_
>
> totals(sumberdanaco
> + rst("jumlah&qu
> End If
>
> End If
>
> End If
> End If
>
> Next
> If boolSaldo Then
>
> If startdate >= thnbaru Then
>
> temps = Pengeluaran(
> total2(sumberdanaco
> temps(sumberdanacol
> End If
>
> End If
> For I = 1 To 5
> totals(I) = totals(I) - total2(I)
> Next I
> rangenya.Cells(
> rangenya.Cells(
> rangenya.Cells(
> rangenya.Cells(
> rangenya.Cells(
> rangenya.Cells(
> rangenya.Cells(
> End If
> End Function
> permasalahannya : pada saat di perview laporan hanya menunjukkan saldo
> bank, sedangkan saldo kas diabaikan, bagaimana cara menjumlah saldo kas dan
> bank untuk koding tersebut, thx
>
> ***** Mods *****
> Akan lebih jelas jika dilampirkan file dummy yang mewakili pertanyaan
> dibandingkan BeExceller harus membaca script yang anda berikan
> tanpa mengetahui maksud dari setiap baris script tersebut.
> ************
>
>
>
Fri Jan 3, 2014 1:41 am (PST) . Posted by:
"Jan Raisin"
Andai letak kolom boleh saling berdampingan, jika pun terpisah memiliki
pola yang sama bukan pola acak
maka mungkin file terlampir bisa menjadi salah satu jalan untuk mencari
solusi yang lain..
Saat ini menggunakan 5 kolom bantu (kebanyakan.. belum kepikiran caranya
supaya kolom bantunya bisa lebih sedikit)
Salam,
-Miss Jan Raisin-
Pada 3 Januari 2014 13.06, rian <ryan_ahoy@yahoo.com> menulis:
>
>
> Om Kid,
>
> Kalau solusinya bukan VB gmn? Saya masih belajar Excel jadi belum paham
> bagaimana menggunakan VB.
>
> Terima kasih
>
>
> Regards
> Rian
>
>
> On Friday, January 3, 2014 6:18 AM, Mr. Kid <mr.nmkid@gmail.com> wrote:
>
> Oh oke,
>
> sambil menunggu yang suka VBA, mungkin script berikut bisa menjadi
> alternatif.
>
> Asumsi :
> 1. header data di sheet bernama (nama di tab sheet) Data Radio baris 1,
> mulai di cell A1
> 2. cell yang diambil selalu di kolom yang telah ditentukan
> >
> Range("P1,S1,T1,U1,W1,X1,Y1,Z1,AC1,AG1,AH1,AI1,AJ1,AK1,AL1,AM1,AO1,AQ1";)
> 3. tidak ada baris kosong di antara 2 record pada tabel sumber data
> 4. header hasil di sheet bernama (nama di tab sheet) sheet1 baris 12 (1
> baris sebelum record pertama hasil) mulai kolom A
> 5. strukturnya tetap, yaitu :
> > kolom A adalah nomor urut,
> > kolom B (1 kolom setelah kolom A) berisi 3 nilai data di 3 baris
> berbeda yang urutannya sama dengan disumber data,
> > kolom G (6 kolom setelah kolom A) berisi nilai data dari sumber
> data di kolom tertentu sebanyak 18 baris yang urutannya sama dengan di
> sumber data yang ditentukan
>
>
> pada sebuah prosedur sub :
>
> dim rngHeadRadio as range, rngHeadType as range, rngHasil as range
> dim lNo as long
>
> application.screenupdating=false
> set rngHeadRadio=sheets("data radio").range("b1:d1") 'masih ingat
> materi belajar VBA di blog milis tentang range ?
> set rngHeadType=sheets("data
> radio").range("p1,s1:u1,w1:z1,ac1,ag1:am1,ao1,aq1")
> set rngHasil=sheets("sheet1").range("a12")
>
> if rngheadradio.currentregion.rows.count<2 then
> exit sub
> endif
>
> 'masih ingat materi Belajar VBA tentang loop For...Next di blog milis ?
> for lNo=1 to rngheadradio.currentregion.rows.count - 1
> with rnghasil.offset( (lno-1)*18+1 ) 'ke baris penulisan di kolom
> A sheet hasil
>
> .value=lno 'tulis nomor urut
>
> 'copy data radio dari sumber dan paste values ditranspose
> dilokasi penulisan pada kolom B (1 kolom dikanan kolom A hasil)
> rngheadradio.offset( lno ).copy
> .offset( 0,1 ).pastespecial xlpastevalues, transpose:=true
>
> 'copy data type dari sumber dan paste values ditranspose
> dilokasi penulisan pada kolom G (6 kolom dikanan kolom A hasil)
> rngheadtype.offset( lno ).copy
> .offset( 0,6).pastespecial xlpastevalues, transpose:=true
>
> end with
> next lNo
>
> application.screenupdating=true
> msgbox "Done.",vbinformation
>
>
> Wassalam,
> Kid.
>
>
>
pola yang sama bukan pola acak
maka mungkin file terlampir bisa menjadi salah satu jalan untuk mencari
solusi yang lain..
Saat ini menggunakan 5 kolom bantu (kebanyakan.
supaya kolom bantunya bisa lebih sedikit)
Salam,
-Miss Jan Raisin-
Pada 3 Januari 2014 13.06, rian <ryan_ahoy@yahoo.
>
>
> Om Kid,
>
> Kalau solusinya bukan VB gmn? Saya masih belajar Excel jadi belum paham
> bagaimana menggunakan VB.
>
> Terima kasih
>
>
> Regards
> Rian
>
>
> On Friday, January 3, 2014 6:18 AM, Mr. Kid <mr.nmkid@gmail.
>
> Oh oke,
>
> sambil menunggu yang suka VBA, mungkin script berikut bisa menjadi
> alternatif.
>
> Asumsi :
> 1. header data di sheet bernama (nama di tab sheet) Data Radio baris 1,
> mulai di cell A1
> 2. cell yang diambil selalu di kolom yang telah ditentukan
> >
> Range("
> 3. tidak ada baris kosong di antara 2 record pada tabel sumber data
> 4. header hasil di sheet bernama (nama di tab sheet) sheet1 baris 12 (1
> baris sebelum record pertama hasil) mulai kolom A
> 5. strukturnya tetap, yaitu :
> > kolom A adalah nomor urut,
> > kolom B (1 kolom setelah kolom A) berisi 3 nilai data di 3 baris
> berbeda yang urutannya sama dengan disumber data,
> > kolom G (6 kolom setelah kolom A) berisi nilai data dari sumber
> data di kolom tertentu sebanyak 18 baris yang urutannya sama dengan di
> sumber data yang ditentukan
>
>
> pada sebuah prosedur sub :
>
> dim rngHeadRadio as range, rngHeadType as range, rngHasil as range
> dim lNo as long
>
> application.
> set rngHeadRadio=
> materi belajar VBA di blog milis tentang range ?
> set rngHeadType=
> radio")
> set rngHasil=sheets(
>
> if rngheadradio.
> exit sub
> endif
>
> 'masih ingat materi Belajar VBA tentang loop For...Next di blog milis ?
> for lNo=1 to rngheadradio.
> with rnghasil.offset( (lno-1)*18+1 ) 'ke baris penulisan di kolom
> A sheet hasil
>
> .value=lno 'tulis nomor urut
>
> 'copy data radio dari sumber dan paste values ditranspose
> dilokasi penulisan pada kolom B (1 kolom dikanan kolom A hasil)
> rngheadradio.
> .offset( 0,1 ).pastespecial xlpastevalues, transpose:=true
>
> 'copy data type dari sumber dan paste values ditranspose
> dilokasi penulisan pada kolom G (6 kolom dikanan kolom A hasil)
> rngheadtype.
> .offset( 0,6).pastespecial xlpastevalues, transpose:=true
>
> end with
> next lNo
>
> application.
> msgbox "Done."
>
>
> Wassalam,
> Kid.
>
>
>
Fri Jan 3, 2014 4:31 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Rian,
File terlampir memanfaatkan 2 cell bantu berformula dan sebuah tabel iseng.
Wassalam,
Kid.
2014/1/3 rian <ryan_ahoy@yahoo.com>
>
>
> Om Kid,
>
> Kalau solusinya bukan VB gmn? Saya masih belajar Excel jadi belum paham
> bagaimana menggunakan VB.
>
> Terima kasih
>
>
> Regards
> Rian
>
>
> On Friday, January 3, 2014 6:18 AM, Mr. Kid <mr.nmkid@gmail.com> wrote:
>
> Oh oke,
>
> sambil menunggu yang suka VBA, mungkin script berikut bisa menjadi
> alternatif.
>
> Asumsi :
> 1. header data di sheet bernama (nama di tab sheet) Data Radio baris 1,
> mulai di cell A1
> 2. cell yang diambil selalu di kolom yang telah ditentukan
> >
> Range("P1,S1,T1,U1,W1,X1,Y1,Z1,AC1,AG1,AH1,AI1,AJ1,AK1,AL1,AM1,AO1,AQ1";)
> 3. tidak ada baris kosong di antara 2 record pada tabel sumber data
> 4. header hasil di sheet bernama (nama di tab sheet) sheet1 baris 12 (1
> baris sebelum record pertama hasil) mulai kolom A
> 5. strukturnya tetap, yaitu :
> > kolom A adalah nomor urut,
> > kolom B (1 kolom setelah kolom A) berisi 3 nilai data di 3 baris
> berbeda yang urutannya sama dengan disumber data,
> > kolom G (6 kolom setelah kolom A) berisi nilai data dari sumber
> data di kolom tertentu sebanyak 18 baris yang urutannya sama dengan di
> sumber data yang ditentukan
>
>
> pada sebuah prosedur sub :
>
> dim rngHeadRadio as range, rngHeadType as range, rngHasil as range
> dim lNo as long
>
> application.screenupdating=false
> set rngHeadRadio=sheets("data radio").range("b1:d1") 'masih ingat
> materi belajar VBA di blog milis tentang range ?
> set rngHeadType=sheets("data
> radio").range("p1,s1:u1,w1:z1,ac1,ag1:am1,ao1,aq1")
> set rngHasil=sheets("sheet1").range("a12")
>
> if rngheadradio.currentregion.rows.count<2 then
> exit sub
> endif
>
> 'masih ingat materi Belajar VBA tentang loop For...Next di blog milis ?
> for lNo=1 to rngheadradio.currentregion.rows.count - 1
> with rnghasil.offset( (lno-1)*18+1 ) 'ke baris penulisan di kolom
> A sheet hasil
>
> .value=lno 'tulis nomor urut
>
> 'copy data radio dari sumber dan paste values ditranspose
> dilokasi penulisan pada kolom B (1 kolom dikanan kolom A hasil)
> rngheadradio.offset( lno ).copy
> .offset( 0,1 ).pastespecial xlpastevalues, transpose:=true
>
> 'copy data type dari sumber dan paste values ditranspose
> dilokasi penulisan pada kolom G (6 kolom dikanan kolom A hasil)
> rngheadtype.offset( lno ).copy
> .offset( 0,6).pastespecial xlpastevalues, transpose:=true
>
> end with
> next lNo
>
> application.screenupdating=true
> msgbox "Done.",vbinformation
>
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014/1/2 Dedi Komarudin <dedikom81@yahoo.co.id>
>
>
> Terima kasih atas tanggapannya Mr. Kid mohon maaf jika penjelasan saya
> malah membingungkan.
>
> Maksudnya adalah saya ingin mengulang perintah di kolom G2 yang dimulai
> dari
> ( Aneka Rama) dengan merubah deret kolom menjadi deret baris seperti pada
> Sheet ("Data radio")
> Range("P1,S1,T1,U1,W1,X1,Y1,Z1,AC1,AG1,AH1,AI1,AJ1,AK1,AL1,AM1,AO1,AQ1";)
> menjadi Deret baris di Sheet 1 ( Colom C 13 dibawah Type Ad)
>
>
> begitu juga dengan harganya
> Range("P2,S2,T2,U2,W2,X2,Y2,Z2,AC2,AG2,AH2,AI2,AJ2,AK2,AL2,AM2,AO2,AQ2";)
> di sheet Data radio yang di tempatkan di (Colom G 13 di bawah Once Air
> Time ) sheet1
>
> perintah diatas akan berulang dengan memulai lagi di cell G3 ( B Radio )begitu selesai makan akan mengulang lagi di
> G4 seterusnya dan seterusnya sampai pada colom terakhir yaitu (Besakih
> Rasisonia d/h Swib)
>
> mohon maaf jika penjelasan saya kurang mengena.
> untuk lebih jelasnya saya lampirkan file kemarin dengan penambahan di
> sheet1.
> Sheet1 adalah sheet yang diharapkan.
>
> Atas segala tanggapan dan bantuannya saya ucapkan terima kasih.
>
>
> Salam
> Dedi Komarudin
>
>
>
>
>
>
>
>
>
>
>
>
>
> Pada Selasa, 31 Desember 2013 18:04, Mr. Kid <mr.nmkid@gmail.com>
> menulis:
>
> Hai Dedi,
>
> Salam kenal juga.
> Terus terang, saya ndak paham maksud kasusnya.
>
> Bagaimana jika dijelaskan lebih rinci termasuk step by step pengerjaan
> manualnya, misal data dari mana dibeginikan supaya jadi begitu.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
> 2013/12/28 Dedi Komarudin <dedikom81@yahoo.co.id>
>
>
> Dear BeExcellers,
> Salam Perkenalan
>
> Saya sedang mengerjakan pekerjaan rutin namun saya kebingungan untuk
> mengulang perintah yang sebelumnya saya record Macro .
>
> Dimulai di cell G2 = " Aneka rama" sampai dengan selesai.
> saya ingin memulainya lagi dari G3 =" B radio" sampai dengan selesai yang
> di tempatkan di A 31 dan sterusnya.
> File saya lampirkan
>
> Sheet Data Radio = Data sumber
> Sheet1 = data yang diharapkan
>
> Segala bantuannya saya ucapkan terima kasih
>
>
>
> Salam
> Dedi Komarudin
>
>
>
>
>
>
>
>
>
File terlampir memanfaatkan 2 cell bantu berformula dan sebuah tabel iseng.
Wassalam,
Kid.
2014/1/3 rian <ryan_ahoy@yahoo.
>
>
> Om Kid,
>
> Kalau solusinya bukan VB gmn? Saya masih belajar Excel jadi belum paham
> bagaimana menggunakan VB.
>
> Terima kasih
>
>
> Regards
> Rian
>
>
> On Friday, January 3, 2014 6:18 AM, Mr. Kid <mr.nmkid@gmail.
>
> Oh oke,
>
> sambil menunggu yang suka VBA, mungkin script berikut bisa menjadi
> alternatif.
>
> Asumsi :
> 1. header data di sheet bernama (nama di tab sheet) Data Radio baris 1,
> mulai di cell A1
> 2. cell yang diambil selalu di kolom yang telah ditentukan
> >
> Range("
> 3. tidak ada baris kosong di antara 2 record pada tabel sumber data
> 4. header hasil di sheet bernama (nama di tab sheet) sheet1 baris 12 (1
> baris sebelum record pertama hasil) mulai kolom A
> 5. strukturnya tetap, yaitu :
> > kolom A adalah nomor urut,
> > kolom B (1 kolom setelah kolom A) berisi 3 nilai data di 3 baris
> berbeda yang urutannya sama dengan disumber data,
> > kolom G (6 kolom setelah kolom A) berisi nilai data dari sumber
> data di kolom tertentu sebanyak 18 baris yang urutannya sama dengan di
> sumber data yang ditentukan
>
>
> pada sebuah prosedur sub :
>
> dim rngHeadRadio as range, rngHeadType as range, rngHasil as range
> dim lNo as long
>
> application.
> set rngHeadRadio=
> materi belajar VBA di blog milis tentang range ?
> set rngHeadType=
> radio")
> set rngHasil=sheets(
>
> if rngheadradio.
> exit sub
> endif
>
> 'masih ingat materi Belajar VBA tentang loop For...Next di blog milis ?
> for lNo=1 to rngheadradio.
> with rnghasil.offset( (lno-1)*18+1 ) 'ke baris penulisan di kolom
> A sheet hasil
>
> .value=lno 'tulis nomor urut
>
> 'copy data radio dari sumber dan paste values ditranspose
> dilokasi penulisan pada kolom B (1 kolom dikanan kolom A hasil)
> rngheadradio.
> .offset( 0,1 ).pastespecial xlpastevalues, transpose:=true
>
> 'copy data type dari sumber dan paste values ditranspose
> dilokasi penulisan pada kolom G (6 kolom dikanan kolom A hasil)
> rngheadtype.
> .offset( 0,6).pastespecial xlpastevalues, transpose:=true
>
> end with
> next lNo
>
> application.
> msgbox "Done."
>
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014/1/2 Dedi Komarudin <dedikom81@yahoo.
>
>
> Terima kasih atas tanggapannya Mr. Kid mohon maaf jika penjelasan saya
> malah membingungkan.
>
> Maksudnya adalah saya ingin mengulang perintah di kolom G2 yang dimulai
> dari
> ( Aneka Rama) dengan merubah deret kolom menjadi deret baris seperti pada
> Sheet ("Data radio")
> Range("
> menjadi Deret baris di Sheet 1 ( Colom C 13 dibawah Type Ad)
>
>
> begitu juga dengan harganya
> Range("
> di sheet Data radio yang di tempatkan di (Colom G 13 di bawah Once Air
> Time ) sheet1
>
> perintah diatas akan berulang dengan memulai lagi di cell G3 ( B Radio )begitu selesai makan akan mengulang lagi di
> G4 seterusnya dan seterusnya sampai pada colom terakhir yaitu (Besakih
> Rasisonia d/h Swib)
>
> mohon maaf jika penjelasan saya kurang mengena.
> untuk lebih jelasnya saya lampirkan file kemarin dengan penambahan di
> sheet1.
> Sheet1 adalah sheet yang diharapkan.
>
> Atas segala tanggapan dan bantuannya saya ucapkan terima kasih.
>
>
> Salam
> Dedi Komarudin
>
>
>
>
>
>
>
>
>
>
>
>
>
> Pada Selasa, 31 Desember 2013 18:04, Mr. Kid <mr.nmkid@gmail.
> menulis:
>
> Hai Dedi,
>
> Salam kenal juga.
> Terus terang, saya ndak paham maksud kasusnya.
>
> Bagaimana jika dijelaskan lebih rinci termasuk step by step pengerjaan
> manualnya, misal data dari mana dibeginikan supaya jadi begitu.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
> 2013/12/28 Dedi Komarudin <dedikom81@yahoo.
>
>
> Dear BeExcellers,
> Salam Perkenalan
>
> Saya sedang mengerjakan pekerjaan rutin namun saya kebingungan untuk
> mengulang perintah yang sebelumnya saya record Macro .
>
> Dimulai di cell G2 = " Aneka rama" sampai dengan selesai.
> saya ingin memulainya lagi dari G3 =" B radio" sampai dengan selesai yang
> di tempatkan di A 31 dan sterusnya.
> File saya lampirkan
>
> Sheet Data Radio = Data sumber
> Sheet1 = data yang diharapkan
>
> Segala bantuannya saya ucapkan terima kasih
>
>
>
> Salam
> Dedi Komarudin
>
>
>
>
>
>
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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