15 New Messages
Digest #2236
1a
Re: Menjumlahkan dengan R1C1 style dengan parameter yang kita berika by "hendrik karnadi" hendrikkarnadi
5
mencari nama apa saya saja yang ada didalam kolom by "Paulus Taripar" paulustaripar@rocketmail.com
Messages
Mon Apr 15, 2013 2:00 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba juga cara ke 4,
Cells(5, 11).FormulaR1C1 = "=Sum(RC[-6] : RC[-3])"
Salam,
HK
________________________________
From: "tio.adjie@ptssb.co.id " <tio.adjie@ptssb.co.id >
To: belajar-excel@yahoogroups.com
Sent: Monday, 15 April 2013, 10:58
Subject: Re: [belajar-excel] Menjumlahkan dengan R1C1 style dengan parameter yang kita berikan
Alhamdulillahi Robbil Alamin.
Terima kasih Mr. Kid dan Miss. Jan atas
jawaban yang memuaskan. Semoga Allah SWT membalas kebaikan Mr dan Miss
berdua dengan pahala yang jauh lebih baik.
Ini modif dari file saya yang sudah
berhasil. Sekedar info, sebelum saya lempar ke milis, saya sudah coba berjam-jam
tapi tidak berhasil.
Terima kasih sekali lagi.
Wassalam,
Tio
"Mr. Kid" <mr.nmkid@gmail.com >
Sent by: belajar-excel@yahoogroups.com
04/15/2013 09:57 AM
Please respond to belajar-excel
To:
BeExcel <belajar-excel@yahoogroups.com >
cc:
Subject:
Re: [belajar-excel] Menjumlahkan dengan
R1C1 style dengan parameter yang kita berikan
Pada prosedur :
Private Sub cmdJml2_Click()
Dim xFormula, xFormula2, xFormula3, xFormula4 As Integer
xFormula = RC & Cells(5, 5).Column
xFormula2 = RC & Cells(5, 8).Column
xFormula3 = RC & Cells(5, 5).Row
xFormula4 = RC & Cells(5, 8).Row
Cells(5, 11).FormulaR1C1 = "=Sum(R"
& xFormula3 & "C" & xFormula: R" & xFormula4
& "C " & xFormula2)"
End Sub
1. deklarasi berbunyi :
Dim xFormula, xFormula2,
xFormula3, xFormula4 As Integer
menghasilkan variabel :
xFormula,
xFormula2, xFormula3memiliki tipe data Variant
xFormula4 memiliki tipe data Integer
jika ingin semua variabel memiliki
tipe data Integer, deklarasikan dengan :
Dim xFormula as
integer, xFormula2 as
integer, xFormula3 as
integer, xFormula4 As Integer
2. variabel bernama RC dalam baris-baris :
xFormula = RC & Cells(5, 5).Column
xFormula2 = RC & Cells(5, 8).Column
xFormula3 = RC & Cells(5, 5).Row
xFormula4 = RC & Cells(5, 8).Row
memiliki tipe data variant dan tidak ada
isinya (empty)
karena seluruh variabel xFormula sudah dideklarasikan
dengan cara baru di nomor 1 pasti memiliki tipe data Integer,
maka pengisian nilai variabel xFormula adalah :
xFormula = Cells(5, 5).Column
xFormula2 = Cells(5, 8).Column
xFormula3 = Cells(5, 5).Row
xFormula4 = Cells(5, 8).Row
3. kesalahan penulisan data string yang akan dimasukkan
dalam properti bernama Formula milik suatu cell di baris script :
Cells(5, 11).FormulaR1C1
= "=Sum(R" & xFormula3 & "C" & xFormula:
R" & xFormula4 & "C " & xFormula2)"
dimana :
Cells(5, 11).FormulaR1C1adalah benda disisi kiri tanda sama dengan (=) yang berarti akan diisi
sesuatu.
dan bunyi :
"=Sum(R"
& xFormula3 & "C" & xFormula: R" & xFormula4
& "C " & xFormula2)"
terletak di sisi kanan sama dengan
(=)
yang berarti sebagai nilai data yang akan dimasukkan
(disimpan) dalam wadah disisi kiri sama dengan (=)
dan bagian ini salah dalam penulisannya.
misal bunyi formula di dalam cell (jika Anda tulis di worksheet pada sebuah
cell) berbunyi :
=SUM(R5C5:R5C8)
maka tahap paling mudah dalam menuangkannya dibaris pengisian
formula dalam VBA adalah :
1. tulis barisnya dengan formula yang apa adanya lebih
dulu : (perhatikan perbedaan warnanya)
Cells(5,
11).FormulaR1C1 = =SUM(R5C5:R5C8)
2. karena bunyi formula apa adanya harus dimasukkan kedalam
suatu wadah sebagai nilai data string (teks), maka perlu diapit petik dua
(") :
Cells(5,
11).FormulaR1C1 = "=SUM(R5C5:R5C8)"
3. setiap angka dibelakang
R atau dibelakang C akan diganti dengan suatu variabel, maka data string
berbunyi "=SUM(R5C5:R5C8)"
harus dipisah-pisah, sehingga setiap angka memiliki
jarak dari yang bukan angka, menjadi :
Cells(5, 11).FormulaR1C1 = "=SUM(R 5
C 5
:R 5
C 8
)"
4. Setiap sebelumsebuah angka diberi notasi petik dua diikuti spasi lalu ampersand diakhiri spasi [ " & ] dengan petik dua rapat ke teks dikiri angka menjadi :
Cells(5,
11).FormulaR1C1 = "=SUM(R"
& 5
C" & 5
:R" & 5
C" & 8
)"
5. Setiap sesudahsebuah angka diberi notasi spasi diikuti ampersand lalu spasi diakhiri petik dua [
& " ] dengan petik dua rapat ke teks
dikanan angka menjadi :
Cells(5,
11).FormulaR1C1 ="=SUM(R"
& 5
& "C"
& 5
& ":R"
& 5
& "C"
& 8 & ")"
6. Ganti setiap angka dengan nama variabel yang sesuai,
misal :
A. angka 5 pertama dari kiri
diganti variabel bernama xFormula3
B. angka 5 kedua dari kiri diganti
variabel bernama xFormula
C. angka 5 ketiga dari kiri diganti
variabel bernama xFormula4
D. angka 8 diganti variabel bernama
xFormula2
menjadi : (sebagai 1 baris utuh)
Cells(5, 11).FormulaR1C1 ="=SUM(R"
& xFormula3& "C"
& xFormula& ":R"
& xFormula4& "C"
& xFormula2& ")"
7. Didapat hasil akhir berbunyi :
Cells(5, 11).FormulaR1C1 ="=SUM(R"
& xFormula3 &
"C" & xFormula & ":R" & xFormula4 & "C" & xFormula2 & ")"
Untuk kasus serupa lainnya dalam topik ini juga demikian.
Wassalam,
Kid.
2013/4/15 <tio.adjie@ptssb.co.id >
Dear BeExceller,
Mau tanya, bagaimana menjumlahkan range tertentu dengan R1C1 style dengan
parameter yang kita berikan.
Contoh terlampir :
Terima kasih,
Wassalam,
Tio
Cells(5, 11).FormulaR1C1 = "=Sum(RC[
Salam,
HK
____________
From: "tio.adjie@ptssb.
To: belajar-excel@
Sent: Monday, 15 April 2013, 10:58
Subject: Re: [belajar-excel] Menjumlahkan dengan R1C1 style dengan parameter yang kita berikan
Alhamdulillahi Robbil Alamin.
Terima kasih Mr. Kid dan Miss. Jan atas
jawaban yang memuaskan. Semoga Allah SWT membalas kebaikan Mr dan Miss
berdua dengan pahala yang jauh lebih baik.
Ini modif dari file saya yang sudah
berhasil. Sekedar info, sebelum saya lempar ke milis, saya sudah coba berjam-jam
tapi tidak berhasil.
Terima kasih sekali lagi.
Wassalam,
Tio
"Mr. Kid" <mr.nmkid@gmail.
Sent by: belajar-excel@
04/15/2013 09:57 AM
Please respond to belajar-excel
To:
BeExcel <belajar-excel@
cc:
Subject:
Re: [belajar-excel] Menjumlahkan dengan
R1C1 style dengan parameter yang kita berikan
Pada prosedur :
Private Sub cmdJml2_Click(
Dim xFormula, xFormula2, xFormula3, xFormula4 As Integer
xFormula = RC & Cells(5, 5).Column
xFormula2 = RC & Cells(5, 8).Column
xFormula3 = RC & Cells(5, 5).Row
xFormula4 = RC & Cells(5, 8).Row
Cells(5, 11).FormulaR1C1 = "=Sum(R"
& xFormula3 & "C" & xFormula: R" & xFormula4
& "C " & xFormula2)"
End Sub
1. deklarasi berbunyi :
Dim xFormula, xFormula2,
xFormula3, xFormula4 As Integer
menghasilkan variabel :
xFormula,
xFormula2, xFormula3memiliki tipe data Variant
xFormula4 memiliki tipe data Integer
jika ingin semua variabel memiliki
tipe data Integer, deklarasikan dengan :
Dim xFormula as
integer, xFormula2 as
integer, xFormula3 as
integer, xFormula4 As Integer
2. variabel bernama RC dalam baris-baris :
xFormula = RC & Cells(5, 5).Column
xFormula2 = RC & Cells(5, 8).Column
xFormula3 = RC & Cells(5, 5).Row
xFormula4 = RC & Cells(5, 8).Row
memiliki tipe data variant dan tidak ada
isinya (empty)
karena seluruh variabel xFormula sudah dideklarasikan
dengan cara baru di nomor 1 pasti memiliki tipe data Integer,
maka pengisian nilai variabel xFormula adalah :
xFormula = Cells(5, 5).Column
xFormula2 = Cells(5, 8).Column
xFormula3 = Cells(5, 5).Row
xFormula4 = Cells(5, 8).Row
3. kesalahan penulisan data string yang akan dimasukkan
dalam properti bernama Formula milik suatu cell di baris script :
Cells(5, 11).FormulaR1C1
= "=Sum(R" & xFormula3 & "C" & xFormula:
R" & xFormula4 & "C " & xFormula2)"
dimana :
Cells(5, 11).FormulaR1C1adal
sesuatu.
dan bunyi :
"=Sum(R"
& xFormula3 & "C" & xFormula: R" & xFormula4
& "C " & xFormula2)"
terletak di sisi kanan sama dengan
(=)
yang berarti sebagai nilai data yang akan dimasukkan
(disimpan) dalam wadah disisi kiri sama dengan (=)
dan bagian ini salah dalam penulisannya.
misal bunyi formula di dalam cell (jika Anda tulis di worksheet pada sebuah
cell) berbunyi :
=SUM(R5C5:R5C8)
maka tahap paling mudah dalam menuangkannya dibaris pengisian
formula dalam VBA adalah :
1. tulis barisnya dengan formula yang apa adanya lebih
dulu : (perhatikan perbedaan warnanya)
Cells(5,
11).FormulaR1C1 = =SUM(R5C5:R5C8)
2. karena bunyi formula apa adanya harus dimasukkan kedalam
suatu wadah sebagai nilai data string (teks), maka perlu diapit petik dua
(") :
Cells(5,
11).FormulaR1C1 = "=SUM(R5C5:
3. setiap angka dibelakang
R atau dibelakang C akan diganti dengan suatu variabel, maka data string
berbunyi "=SUM(R5C5:
harus dipisah-pisah, sehingga setiap angka memiliki
jarak dari yang bukan angka, menjadi :
Cells(5, 11).FormulaR1C1 = "=SUM(R 5
C 5
:R 5
C 8
)"
4. Setiap sebelumsebuah angka diberi notasi petik dua diikuti spasi lalu ampersand diakhiri spasi [ " & ] dengan petik dua rapat ke teks dikiri angka menjadi :
Cells(5,
11).FormulaR1C1 = "=SUM(R"
& 5
C" & 5
:R" & 5
C" & 8
)"
5. Setiap sesudahsebuah angka diberi notasi spasi diikuti ampersand lalu spasi diakhiri petik dua [
& " ] dengan petik dua rapat ke teks
dikanan angka menjadi :
Cells(5,
11).FormulaR1C1 ="=SUM(
& 5
& "C"
& 5
& ":R"
& 5
& "C"
& 8 & ")"
6. Ganti setiap angka dengan nama variabel yang sesuai,
misal :
A. angka 5 pertama dari kiri
diganti variabel bernama xFormula3
B. angka 5 kedua dari kiri diganti
variabel bernama xFormula
C. angka 5 ketiga dari kiri diganti
variabel bernama xFormula4
D. angka 8 diganti variabel bernama
xFormula2
menjadi : (sebagai 1 baris utuh)
Cells(5, 11).FormulaR1C1 ="=SUM(
& xFormula3& "C"
& xFormula& ":R"
& xFormula4& "C"
& xFormula2& ")"
7. Didapat hasil akhir berbunyi :
Cells(5, 11).FormulaR1C1 ="=SUM(
& xFormula3 &
"C" & xFormula & ":R" & xFormula4 & "C" & xFormula2 & ")"
Untuk kasus serupa lainnya dalam topik ini juga demikian.
Wassalam,
Kid.
2013/4/15 <tio.adjie@ptssb.
Dear BeExceller,
Mau tanya, bagaimana menjumlahkan range tertentu dengan R1C1 style dengan
parameter yang kita berikan.
Contoh terlampir :
Terima kasih,
Wassalam,
Tio
Mon Apr 15, 2013 2:14 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
ganti formula sebelumnya di G7 dengan
=INDEX({0;1000;1500;2000;2500};MATCH(C7;{0;2790;2791;3721;5581}))
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: lapendosol opik <lapendosol@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Senin, 15 April 2013 15:38
Judul: Re: [belajar-excel] If Bertingkat
Kalau pakai versi saya, dibutuhkan kolom bantu
Setelah itu gunakan fungsi VLOOKUP
Lebih jelasnya lihat lampiran ya, semoga seperti harapan
Wassalam,
________________________________
From: jonson dahrino <jonson_dahry@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, April 15, 2013 1:54 PM
Subject: [belajar-excel] If Bertingkat
Dear master excel,
mohon bantuannya,
saya bingung nih buat if kondisi untuk kasus berikut
kalau ada metode lainnya juga boleh
terimakasih dan sukses slalu
=INDEX({0;1000;
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: lapendosol opik <lapendosol@yahoo.
Kepada: "belajar-excel@
Dikirim: Senin, 15 April 2013 15:38
Judul: Re: [belajar-excel] If Bertingkat
Kalau pakai versi saya, dibutuhkan kolom bantu
Setelah itu gunakan fungsi VLOOKUP
Lebih jelasnya lihat lampiran ya, semoga seperti harapan
Wassalam,
____________
From: jonson dahrino <jonson_dahry@
To: "belajar-excel@
Sent: Monday, April 15, 2013 1:54 PM
Subject: [belajar-excel] If Bertingkat
Dear master excel,
mohon bantuannya,
saya bingung nih buat if kondisi untuk kasus berikut
kalau ada metode lainnya juga boleh
terimakasih dan sukses slalu
Mon Apr 15, 2013 3:02 am (PDT) . Posted by:
"jonson dahrino" jonson_ringo
Terimakasih Mr. Ghozi,
Hasil dari formula tersebut seharusnya adalah :
Jika Barang A misalkan : 11.080 maka :
- 2.790 dikalikan Rp 1.000
- 3.720 dikalikan Rp 1.500
- 5.580 dikalikan Rp 2.000
sisanya : dikalikan Rp 2.500
terimakasih
sincerelly yours
________________________________
Dari: ghozi alkatiri <ghozialkatiri@yahoo.co.id >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Senin, 15 April 2013 15:52
Judul: Bls: [belajar-excel] If Bertingkat
ganti formula sebelumnya di G7 dengan=INDEX({0;1000;1500;2000;2500};MATCH(C7;{0;2790;2791;3721;5581}))copy ke bawahwassalam Ghozi Alkatiri
________________________________
Dari: lapendosol opik <lapendosol@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Senin, 15 April 2013 15:38
Judul: Re: [belajar-excel] If Bertingkat
Kalau pakai versi saya, dibutuhkan kolom bantu
Setelah itu gunakan fungsi VLOOKUP
Lebih jelasnya lihat lampiran ya, semoga seperti harapan
Wassalam,
________________________________
From: jonson dahrino <jonson_dahry@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, April 15, 2013 1:54 PM
Subject: [belajar-excel] If Bertingkat
Dear master excel,
mohon bantuannya,
saya bingung nih buat if kondisi untuk kasus berikut
kalau ada metode lainnya juga boleh
terimakasih dan sukses slalu
Hasil dari formula tersebut seharusnya adalah :
Jika Barang A misalkan : 11.080 maka :
- 2.790 dikalikan Rp 1.000
- 3.720 dikalikan Rp 1.500
- 5.580 dikalikan Rp 2.000
sisanya : dikalikan Rp 2.500
terimakasih
sincerelly yours
____________
Dari: ghozi alkatiri <ghozialkatiri@
Kepada: "belajar-excel@
Dikirim: Senin, 15 April 2013 15:52
Judul: Bls: [belajar-excel] If Bertingkat
ganti formula sebelumnya di G7 dengan=INDEX(
____________
Dari: lapendosol opik <lapendosol@yahoo.
Kepada: "belajar-excel@
Dikirim: Senin, 15 April 2013 15:38
Judul: Re: [belajar-excel] If Bertingkat
Kalau pakai versi saya, dibutuhkan kolom bantu
Setelah itu gunakan fungsi VLOOKUP
Lebih jelasnya lihat lampiran ya, semoga seperti harapan
Wassalam,
____________
From: jonson dahrino <jonson_dahry@
To: "belajar-excel@
Sent: Monday, April 15, 2013 1:54 PM
Subject: [belajar-excel] If Bertingkat
Dear master excel,
mohon bantuannya,
saya bingung nih buat if kondisi untuk kasus berikut
kalau ada metode lainnya juga boleh
terimakasih dan sukses slalu
Mon Apr 15, 2013 2:18 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba ketik,
=IF(G5<2790,0,IF(G5=2790,1000,IF(G5<=3720,1500,IF(G5<=5580,2000,IF(G5>5580,2500))))) pada sel G4, kemudian copy ke samping.
Salam,
HK
________________________________
From: jonson dahrino <jonson_dahry@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 15 April 2013, 13:54
Subject: [belajar-excel] If Bertingkat
Dear master excel,
mohon bantuannya,
saya bingung nih buat if kondisi untuk kasus berikut
kalau ada metode lainnya juga boleh
terimakasih dan sukses slalu
=IF(G5<2790,
Salam,
HK
____________
From: jonson dahrino <jonson_dahry@
To: "belajar-excel@
Sent: Monday, 15 April 2013, 13:54
Subject: [belajar-excel] If Bertingkat
Dear master excel,
mohon bantuannya,
saya bingung nih buat if kondisi untuk kasus berikut
kalau ada metode lainnya juga boleh
terimakasih dan sukses slalu
Mon Apr 15, 2013 2:24 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Maaf, sel rujukannya (G5) disesuaikan dengan penempatan kolom bonusnya.
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 15 April 2013, 16:18
Subject: Re: [belajar-excel] If Bertingkat
Coba ketik,
=IF(G5<2790,0,IF(G5=2790,1000,IF(G5<=3720,1500,IF(G5<=5580,2000,IF(G5>5580,2500))))) pada sel G4, kemudian copy ke samping.
Salam,
HK
________________________________
From: jonson dahrino <jonson_dahry@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 15 April 2013, 13:54
Subject: [belajar-excel] If Bertingkat
Dear master excel,
mohon bantuannya,
saya bingung nih buat if kondisi untuk kasus berikut
kalau ada metode lainnya juga boleh
terimakasih dan sukses slalu
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Monday, 15 April 2013, 16:18
Subject: Re: [belajar-excel] If Bertingkat
Coba ketik,
=IF(G5<2790,
Salam,
HK
____________
From: jonson dahrino <jonson_dahry@
To: "belajar-excel@
Sent: Monday, 15 April 2013, 13:54
Subject: [belajar-excel] If Bertingkat
Dear master excel,
mohon bantuannya,
saya bingung nih buat if kondisi untuk kasus berikut
kalau ada metode lainnya juga boleh
terimakasih dan sukses slalu
Mon Apr 15, 2013 2:20 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Dear master Excel,
Saya ingin meng-copy text dari cell yang berisi formula
Sub copystok()
Jual.Range("d2:d32").Value = Database.Range("d2:d32").Text
End Sub
Sheet database cell D2 berisi formula misal =SUM(A2:C2)
Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
Sub copystok()
Jual.Range("d2").Value = Database.Range("d2").Text
Jual.Range("d3").Value = Database.Range("d3").Text
Jual.Range("d4").Value = Database.Range("d4").Text
'sampai
Jual.Range("d32").Value = Database.Range("d32").Text
End Sub
Trimakasih sebelumnya
Wassalam,
Saya ingin meng-copy text dari cell yang berisi formula
Sub copystok()
Jual.Range("
End Sub
Sheet database cell D2 berisi formula misal =SUM(A2:C2)
Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
Sub copystok()
Jual.Range("
Jual.Range("
Jual.Range("
'sampai
Jual.Range("
End Sub
Trimakasih sebelumnya
Wassalam,
Mon Apr 15, 2013 2:31 am (PDT) . Posted by:
"Jan Raisin"
Wa'alaikumsalam wr. wb.,
coba skrip berikut:
Sub CopyStock()
Dim lRow As Long
lRow = 2
For lRow = 2 To 32
With Sheets("database")
Cells(lRow, 4).Value = .Cells(lRow, 4).Value
End With
Next lRow
End Sub
Wassalamu'alaikum wr. wb.,
-Miss Jan Raisin-
Pada 15 April 2013 16.20, lapendosol opik <lapendosol@yahoo.com > menulis:
> **
>
>
> Dear master Excel,
> Saya ingin meng-copy text dari cell yang berisi formula
>
> Sub copystok()
> Jual.Range("d2:d32").Value = Database.Range("d2:d32").Text
> End Sub
>
> Sheet database cell D2 berisi formula misal =SUM(A2:C2)
> Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian
> dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang
> saya butuhkan nilai/textnya saja.
> Mohon bantuannya untuk cara penulisan script yang bener tanpa harus
> menuliskan satu persatu seperti
>
> Sub copystok()
> Jual.Range("d2").Value = Database.Range("d2").Text
> Jual.Range("d3").Value = Database.Range("d3").Text
> Jual.Range("d4").Value = Database.Range("d4").Text
> 'sampai
> Jual.Range("d32").Value = Database.Range("d32").Text
> End Sub
>
> Trimakasih sebelumnya
> Wassalam,
>
>
>
coba skrip berikut:
Sub CopyStock()
Dim lRow As Long
lRow = 2
For lRow = 2 To 32
With Sheets("
Cells(lRow, 4).Value = .Cells(lRow, 4).Value
End With
Next lRow
End Sub
Wassalamu'
-Miss Jan Raisin-
Pada 15 April 2013 16.20, lapendosol opik <lapendosol@yahoo.
> **
>
>
> Dear master Excel,
> Saya ingin meng-copy text dari cell yang berisi formula
>
> Sub copystok()
> Jual.Range("
> End Sub
>
> Sheet database cell D2 berisi formula misal =SUM(A2:C2)
> Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian
> dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang
> saya butuhkan nilai/textnya saja.
> Mohon bantuannya untuk cara penulisan script yang bener tanpa harus
> menuliskan satu persatu seperti
>
> Sub copystok()
> Jual.Range("
> Jual.Range("
> Jual.Range("
> 'sampai
> Jual.Range("
> End Sub
>
> Trimakasih sebelumnya
> Wassalam,
>
>
>
Mon Apr 15, 2013 2:41 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
coba ganti dengan,
Sheets("Jual").Range("D2:D32").Value = Sheets("Database").Range("D2:D32").Value
untuk menampilkan nilainya.
Salam,
HK
________________________________
From: lapendosol opik <lapendosol@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 15 April 2013, 16:20
Subject: [belajar-excel] Copy Text dari cell yang berisi formula
Dear master Excel,
Saya ingin meng-copy text dari cell yang berisi formula
Sub copystok()
Jual.Range("d2:d32").Value = Database.Range("d2:d32").Text
End Sub
Sheet database cell D2 berisi formula misal =SUM(A2:C2)
Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
Sub copystok()
Jual.Range("d2").Value = Database.Range("d2").Text
Jual.Range("d3").Value = Database.Range("d3").Text
Jual.Range("d4").Value = Database.Range("d4").Text
'sampai
Jual.Range("d32").Value = Database.Range("d32").Text
End Sub
Trimakasih sebelumnya
Wassalam,
Sheets("
untuk menampilkan nilainya.
Salam,
HK
____________
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Monday, 15 April 2013, 16:20
Subject: [belajar-excel] Copy Text dari cell yang berisi formula
Dear master Excel,
Saya ingin meng-copy text dari cell yang berisi formula
Sub copystok()
Jual.Range("
End Sub
Sheet database cell D2 berisi formula misal =SUM(A2:C2)
Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
Sub copystok()
Jual.Range("
Jual.Range("
Jual.Range("
'sampai
Jual.Range("
End Sub
Trimakasih sebelumnya
Wassalam,
Mon Apr 15, 2013 2:47 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Trimakasih mbak Miss Jan tanggapannya, sudah berhasil
Sedikit koreksi tadi lupa menulis, sheet database range D2:D32 berisi formula (seterusnya tetap formula)
Di copy ke sheet Jual range D2:D32 (berisi text dari database D2:D32), sehingga code yang saya koreksi menjadi:
Jual.Cells(lRow, 4).Value = .Cells(lRow, 4).Value
Sekali lagi terimakasih banyak miss Jan
Wassalam,
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, April 15, 2013 4:31 PM
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
Wa'alaikumsalam wr. wb.,
coba skrip berikut:
Sub CopyStock()
Dim lRow As Long
lRow = 2
For lRow = 2 To 32
With Sheets("database")
Cells(lRow, 4).Value = .Cells(lRow, 4).Value
End With
Next lRow
End Sub
Wassalamu'alaikum wr. wb.,
-Miss Jan Raisin-
Pada 15 April 2013 16.20, lapendosol opik <lapendosol@yahoo.com > menulis:
>
>Dear master Excel,
>Saya ingin meng-copy text dari cell yang berisi formula
>
>
>Sub copystok()
>Jual.Range("d2:d32").Value = Database.Range("d2:d32").Text
>End Sub
>
>
>
>Sheet database cell D2 berisi formula misal =SUM(A2:C2)
>Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
>Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
>
>
>Sub copystok()
>Jual.Range("d2").Value = Database.Range("d2").Text
>Jual.Range("d3").Value = Database.Range("d3").Text
>Jual.Range("d4").Value = Database.Range("d4").Text
>'sampai
>Jual.Range("d32").Value = Database.Range("d32").Text
>End Sub
>
>
>Trimakasih sebelumnya
>Wassalam,
>
>
>
Sedikit koreksi tadi lupa menulis, sheet database range D2:D32 berisi formula (seterusnya tetap formula)
Di copy ke sheet Jual range D2:D32 (berisi text dari database D2:D32), sehingga code yang saya koreksi menjadi:
Jual.Cells(lRow, 4).Value = .Cells(lRow, 4).Value
Sekali lagi terimakasih banyak miss Jan
Wassalam,
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
Sent: Monday, April 15, 2013 4:31 PM
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
Wa'alaikumsalam wr. wb.,
coba skrip berikut:
Sub CopyStock()
Dim lRow As Long
lRow = 2
For lRow = 2 To 32
With Sheets("
Cells(lRow, 4).Value = .Cells(lRow, 4).Value
End With
Next lRow
End Sub
Wassalamu'
-Miss Jan Raisin-
Pada 15 April 2013 16.20, lapendosol opik <lapendosol@yahoo.
>
>Dear master Excel,
>Saya ingin meng-copy text dari cell yang berisi formula
>
>
>Sub copystok()
>Jual.Range(
>End Sub
>
>
>
>Sheet database cell D2 berisi formula misal =SUM(A2:C2)
>Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
>Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
>
>
>Sub copystok()
>Jual.Range(
>Jual.Range(
>Jual.Range(
>'sampai
>Jual.Range(
>End Sub
>
>
>Trimakasih sebelumnya
>Wassalam,
>
>
>
Mon Apr 15, 2013 2:52 am (PDT) . Posted by:
"Jan Raisin"
sama-sama,
btw, skript dari pak hendrik akan berjalan lebih cepat karena tanpa looping.
Jan sarankan untuk menggunakan skrip dari pak hendrik, dan bukan
menggunakan skrip dari Jan xixixi :D
Wassalam,
-Miss Jan Raisin-
Pada 15 April 2013 16.47, lapendosol opik <lapendosol@yahoo.com > menulis:
> **
>
>
> Trimakasih mbak Miss Jan tanggapannya, sudah berhasil
> Sedikit koreksi tadi lupa menulis, sheet database range D2:D32 berisi
> formula (seterusnya tetap formula)
> Di copy ke sheet Jual range D2:D32 (berisi text dari database D2:D32),
> sehingga code yang saya koreksi menjadi:
> Jual.Cells(lRow, 4).Value = .Cells(lRow, 4).Value
>
> Sekali lagi terimakasih banyak miss Jan
> Wassalam,
>
> ------------------------------
> *From:* Jan Raisin <miss.jan.raisin@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, April 15, 2013 4:31 PM
> *Subject:* Re: [belajar-excel] Copy Text dari cell yang berisi formula
>
>
> Wa'alaikumsalam wr. wb.,
>
> coba skrip berikut:
>
> Sub CopyStock()
> Dim lRow As Long
>
> lRow = 2
> For lRow = 2 To 32
> With Sheets("database")
> Cells(lRow, 4).Value = .Cells(lRow, 4).Value
> End With
> Next lRow
> End Sub
>
> Wassalamu'alaikum wr. wb.,
>
>
> -Miss Jan Raisin-
>
>
> Pada 15 April 2013 16.20, lapendosol opik <lapendosol@yahoo.com > menulis:
>
> **
>
> Dear master Excel,
> Saya ingin meng-copy text dari cell yang berisi formula
>
> Sub copystok()
> Jual.Range("d2:d32").Value = Database.Range("d2:d32").Text
> End Sub
>
> Sheet database cell D2 berisi formula misal =SUM(A2:C2)
> Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian
> dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang
> saya butuhkan nilai/textnya saja.
> Mohon bantuannya untuk cara penulisan script yang bener tanpa harus
> menuliskan satu persatu seperti
>
> Sub copystok()
> Jual.Range("d2").Value = Database.Range("d2").Text
> Jual.Range("d3").Value = Database.Range("d3").Text
> Jual.Range("d4").Value = Database.Range("d4").Text
> 'sampai
> Jual.Range("d32").Value = Database.Range("d32").Text
> End Sub
>
> Trimakasih sebelumnya
> Wassalam,
>
>
>
>
>
btw, skript dari pak hendrik akan berjalan lebih cepat karena tanpa looping.
Jan sarankan untuk menggunakan skrip dari pak hendrik, dan bukan
menggunakan skrip dari Jan xixixi :D
Wassalam,
-Miss Jan Raisin-
Pada 15 April 2013 16.47, lapendosol opik <lapendosol@yahoo.
> **
>
>
> Trimakasih mbak Miss Jan tanggapannya, sudah berhasil
> Sedikit koreksi tadi lupa menulis, sheet database range D2:D32 berisi
> formula (seterusnya tetap formula)
> Di copy ke sheet Jual range D2:D32 (berisi text dari database D2:D32),
> sehingga code yang saya koreksi menjadi:
> Jual.Cells(lRow, 4).Value = .Cells(lRow, 4).Value
>
> Sekali lagi terimakasih banyak miss Jan
> Wassalam,
>
> ------------
> *From:* Jan Raisin <miss.jan.raisin@
> *To:* belajar-excel@
> *Sent:* Monday, April 15, 2013 4:31 PM
> *Subject:* Re: [belajar-excel] Copy Text dari cell yang berisi formula
>
>
> Wa'alaikumsalam wr. wb.,
>
> coba skrip berikut:
>
> Sub CopyStock()
> Dim lRow As Long
>
> lRow = 2
> For lRow = 2 To 32
> With Sheets("
> Cells(lRow, 4).Value = .Cells(lRow, 4).Value
> End With
> Next lRow
> End Sub
>
> Wassalamu'
>
>
> -Miss Jan Raisin-
>
>
> Pada 15 April 2013 16.20, lapendosol opik <lapendosol@yahoo.
>
> **
>
> Dear master Excel,
> Saya ingin meng-copy text dari cell yang berisi formula
>
> Sub copystok()
> Jual.Range("
> End Sub
>
> Sheet database cell D2 berisi formula misal =SUM(A2:C2)
> Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian
> dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang
> saya butuhkan nilai/textnya saja.
> Mohon bantuannya untuk cara penulisan script yang bener tanpa harus
> menuliskan satu persatu seperti
>
> Sub copystok()
> Jual.Range("
> Jual.Range("
> Jual.Range("
> 'sampai
> Jual.Range("
> End Sub
>
> Trimakasih sebelumnya
> Wassalam,
>
>
>
>
>
Mon Apr 15, 2013 2:53 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Trimakasih pak HK, cara ini ternyata bisa juga
Saya ga kepikiran .Value nya. Pikiran saya masih mengacu pada ambil TEXT, makanya dicobanya pake .Text
Ga kepikiran cobain pake .Value
Sekali lagi terimakasih pak HK
Wassalam,
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, April 15, 2013 4:40 PM
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
coba ganti dengan,
Sheets("Jual").Range("D2:D32").Value = Sheets("Database").Range("D2:D32").Value
untuk menampilkan nilainya.
Salam,
HK
________________________________
From: lapendosol opik <lapendosol@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 15 April 2013, 16:20
Subject: [belajar-excel] Copy Text dari cell yang berisi formula
Dear master Excel,
Saya ingin meng-copy text dari cell yang berisi formula
Sub copystok()
Jual.Range("d2:d32").Value = Database.Range("d2:d32").Text
End Sub
Sheet database cell D2 berisi formula misal =SUM(A2:C2)
Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
Sub copystok()
Jual.Range("d2").Value = Database.Range("d2").Text
Jual.Range("d3").Value = Database.Range("d3").Text
Jual.Range("d4").Value = Database.Range("d4").Text
'sampai
Jual.Range("d32").Value = Database.Range("d32").Text
End Sub
Trimakasih sebelumnya
Wassalam,
Saya ga kepikiran .Value nya. Pikiran saya masih mengacu pada ambil TEXT, makanya dicobanya pake .Text
Ga kepikiran cobain pake .Value
Sekali lagi terimakasih pak HK
Wassalam,
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Monday, April 15, 2013 4:40 PM
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
coba ganti dengan,
Sheets("
untuk menampilkan nilainya.
Salam,
HK
____________
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Monday, 15 April 2013, 16:20
Subject: [belajar-excel] Copy Text dari cell yang berisi formula
Dear master Excel,
Saya ingin meng-copy text dari cell yang berisi formula
Sub copystok()
Jual.Range("
End Sub
Sheet database cell D2 berisi formula misal =SUM(A2:C2)
Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
Sub copystok()
Jual.Range("
Jual.Range("
Jual.Range("
'sampai
Jual.Range("
End Sub
Trimakasih sebelumnya
Wassalam,
Mon Apr 15, 2013 3:01 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Sama2 pak.
Salam,
HK
________________________________
From: lapendosol opik <lapendosol@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 15 April 2013, 16:53
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
Trimakasih pak HK, cara ini ternyata bisa juga
Saya ga kepikiran .Value nya. Pikiran saya masih mengacu pada ambil TEXT, makanya dicobanya pake .Text
Ga kepikiran cobain pake .Value
Sekali lagi terimakasih pak HK
Wassalam,
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, April 15, 2013 4:40 PM
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
coba ganti dengan,
Sheets("Jual").Range("D2:D32").Value = Sheets("Database").Range("D2:D32").Value
untuk menampilkan nilainya.
Salam,
HK
________________________________
From: lapendosol opik <lapendosol@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 15 April 2013, 16:20
Subject: [belajar-excel] Copy Text dari cell yang berisi formula
Dear master Excel,
Saya ingin meng-copy text dari cell yang berisi formula
Sub copystok()
Jual.Range("d2:d32").Value = Database.Range("d2:d32").Text
End Sub
Sheet database cell D2 berisi formula misal =SUM(A2:C2)
Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
Sub copystok()
Jual.Range("d2").Value = Database.Range("d2").Text
Jual.Range("d3").Value = Database.Range("d3").Text
Jual.Range("d4").Value = Database.Range("d4").Text
'sampai
Jual.Range("d32").Value = Database.Range("d32").Text
End Sub
Trimakasih sebelumnya
Wassalam,
Salam,
HK
____________
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Monday, 15 April 2013, 16:53
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
Trimakasih pak HK, cara ini ternyata bisa juga
Saya ga kepikiran .Value nya. Pikiran saya masih mengacu pada ambil TEXT, makanya dicobanya pake .Text
Ga kepikiran cobain pake .Value
Sekali lagi terimakasih pak HK
Wassalam,
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Monday, April 15, 2013 4:40 PM
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
coba ganti dengan,
Sheets("
untuk menampilkan nilainya.
Salam,
HK
____________
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Monday, 15 April 2013, 16:20
Subject: [belajar-excel] Copy Text dari cell yang berisi formula
Dear master Excel,
Saya ingin meng-copy text dari cell yang berisi formula
Sub copystok()
Jual.Range("
End Sub
Sheet database cell D2 berisi formula misal =SUM(A2:C2)
Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
Sub copystok()
Jual.Range("
Jual.Range("
Jual.Range("
'sampai
Jual.Range("
End Sub
Trimakasih sebelumnya
Wassalam,
Mon Apr 15, 2013 3:12 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Trimakasih mis Jan
Saya coba ganti lRow nya jadi 5000, hasilnya sama tapi sedikit lebih lambat seperti kata miss Jan
Terimakasih sekali lagi hehehe
Wassalam,
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, April 15, 2013 4:52 PM
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
sama-sama,
btw, skript dari pak hendrik akan berjalan lebih cepat karena tanpa looping.
Jan sarankan untuk menggunakan skrip dari pak hendrik, dan bukan menggunakan skrip dari Jan xixixi :D
Wassalam,
-Miss Jan Raisin-
Pada 15 April 2013 16.47, lapendosol opik <lapendosol@yahoo.com > menulis:
>
>Trimakasih mbak Miss Jan tanggapannya, sudah berhasil
>Sedikit koreksi tadi lupa menulis, sheet database range D2:D32 berisi formula (seterusnya tetap formula)
>Di copy ke sheet Jual range D2:D32 (berisi text dari database D2:D32), sehingga code yang saya koreksi menjadi:
> Jual.Cells(lRow, 4).Value = .Cells(lRow, 4).Value
>
>
>
>Sekali lagi terimakasih banyak miss Jan
>Wassalam,
>
>
>
>
>________________________________
> From: Jan Raisin <miss.jan.raisin@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Monday, April 15, 2013 4:31 PM
>Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
>
>
>
>
>Wa'alaikumsalam wr. wb.,
>
>coba skrip berikut:
>
>
>Sub CopyStock()
> Dim lRow As Long
>
> lRow = 2
> For lRow = 2 To 32
> With Sheets("database")
> Cells(lRow, 4).Value = .Cells(lRow, 4).Value
> End With
> Next lRow
>End Sub
>
>
>Wassalamu'alaikum wr. wb.,
>
>
>
>
>-Miss Jan Raisin-
>
>
>
>Pada 15 April 2013 16.20, lapendosol opik <lapendosol@yahoo.com > menulis:
>
>
>>
>>Dear master Excel,
>>Saya ingin meng-copy text dari cell yang berisi formula
>>
>>
>>Sub copystok()
>>Jual.Range("d2:d32").Value = Database.Range("d2:d32").Text
>>End Sub
>>
>>
>>
>>Sheet database cell D2 berisi formula misal =SUM(A2:C2)
>>Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
>>Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
>>
>>
>>Sub copystok()
>>Jual.Range("d2").Value = Database.Range("d2").Text
>>Jual.Range("d3").Value = Database.Range("d3").Text
>>Jual.Range("d4").Value = Database.Range("d4").Text
>>'sampai
>>Jual.Range("d32").Value = Database.Range("d32").Text
>>End Sub
>>
>>
>>Trimakasih sebelumnya
>>Wassalam,
>>
>>
>>
>
>
Saya coba ganti lRow nya jadi 5000, hasilnya sama tapi sedikit lebih lambat seperti kata miss Jan
Terimakasih sekali lagi hehehe
Wassalam,
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
Sent: Monday, April 15, 2013 4:52 PM
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
sama-sama,
btw, skript dari pak hendrik akan berjalan lebih cepat karena tanpa looping.
Jan sarankan untuk menggunakan skrip dari pak hendrik, dan bukan menggunakan skrip dari Jan xixixi :D
Wassalam,
-Miss Jan Raisin-
Pada 15 April 2013 16.47, lapendosol opik <lapendosol@yahoo.
>
>Trimakasih mbak Miss Jan tanggapannya, sudah berhasil
>Sedikit koreksi tadi lupa menulis, sheet database range D2:D32 berisi formula (seterusnya tetap formula)
>Di copy ke sheet Jual range D2:D32 (berisi text dari database D2:D32), sehingga code yang saya koreksi menjadi:
> Jual.Cells(lRow, 4).Value = .Cells(lRow, 4).Value
>
>
>
>Sekali lagi terimakasih banyak miss Jan
>Wassalam,
>
>
>
>
>________
> From: Jan Raisin <miss.jan.raisin@
>To: belajar-excel@
>Sent: Monday, April 15, 2013 4:31 PM
>Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
>
>
>
>
>Wa'alaikums
>
>coba skrip berikut:
>
>
>Sub CopyStock()
> Dim lRow As Long
>
> lRow = 2
> For lRow = 2 To 32
> With Sheets("
> Cells(lRow, 4).Value = .Cells(lRow, 4).Value
> End With
> Next lRow
>End Sub
>
>
>Wassalamu&#
>
>
>
>
>-Miss Jan Raisin-
>
>
>
>Pada 15 April 2013 16.20, lapendosol opik <lapendosol@yahoo.
>
>
>>
>>Dear master Excel,
>>Saya ingin meng-copy text dari cell yang berisi formula
>>
>>
>>Sub copystok()
>>Jual.
>>End Sub
>>
>>
>>
>>Sheet database cell D2 berisi formula misal =SUM(A2:C2)
>>Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste di sheet Jual, hasilnya ikutan berisi rumus/formula. Padahal yang saya butuhkan nilai/textnya saja.
>>Mohon bantuannya untuk cara penulisan script yang bener tanpa harus menuliskan satu persatu seperti
>>
>>
>>Sub copystok()
>>Jual.
>>Jual.
>>Jual.
>>'
>>Jual.
>>End Sub
>>
>>
>>Trimakasih sebelumnya
>>Wassalam,
>>
>>
>>
>
>
Mon Apr 15, 2013 2:28 am (PDT) . Posted by:
"Paulus Taripar" paulustaripar@rocketmail.com
selamat sore be exceller..saya mau tanya didalam tabel ini ada saya masukkan "NAMA BUAH yg DIBELI" u/ kolom H4. trus yg ingin saya tanyakan.,
Misal JOJO -> buah apa saja yg dibeli oleh JOJO? Nah, nantinya jenis buah2an apa saja yang dibeli oleh JOJO itu akan muncul di kolom "NAMA BUAH yg DIBELI". Kira2 bentuk fungsi seperti apa yg digunakan? Terima kasih.
>> file terlampir <<
Misal JOJO -> buah apa saja yg dibeli oleh JOJO? Nah, nantinya jenis buah2an apa saja yang dibeli oleh JOJO itu akan muncul di kolom "NAMA BUAH yg DIBELI"
>> file terlampir <<
Mon Apr 15, 2013 3:47 am (PDT) . Posted by:
"Assalamu alaikum Salam" idola_free
mohon bantuan dari semua pakar excel untuk menyelesaikan masalah saya ini untuk mengaktifkan dan non aktifkan tombol link file terlampir
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
---------------------------------------------------------------------
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