[belajar-excel] (unknown)

classic Classic list List threaded Threaded
7 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] (unknown)

achmad adi
dear master,
setelah mengaplikasikan apa yng telah saya dapat,,,saya menemui kebuntuan lagi..tentang pointer untuk disimpan di cell tertentu ( ada di combobox )..att saya lampirkan..
mohon petunjuk dari para master.



terima kasih

SIMPAN DATA ke Cell yang ada di COMBOBOX.rar (17K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] (unknown)

Kid
Administrator
Kenapa kok disimpan dengan orientasi kekanan (horisontal).
Bagaimana jika disimpan dengan orientasi vertikal.
Pada sheet baru dibuat tabel (mulai A1 sebagai header) dengan kolom :
          NAMA          ALOKASI            NILAI                 TGL_INPUT

ndak perlu kolom Total dan ndak perlu kolom NO.

Menampilkan output seperti cara Anda menyimpan itu lebih mudah jika
tabelnya seperti di atas ( 4 kolom di atas)

Wassalam,
Kid.





2013/5/24 achmad adi <[hidden email]>

> **
>
>
> dear master,
>
> setelah mengaplikasikan apa yng telah saya dapat,,,saya menemui kebuntuan
> lagi..tentang pointer untuk disimpan di cell tertentu ( ada di combobox
> )..att saya lampirkan..
> mohon petunjuk dari para master.
>
>
> terima kasih
>
>  
>
Reply | Threaded
Open this post in threaded view
|

Bls: Re: [belajar-excel] (unknown)

achmad adi
Trimakasih masulannya...cuma ingin mencoba..sebelumnya..mr kid sudah mengajari paksi option buton untuk memilih cell tertuju..nah ini mo mencoba dengan combobox langsung....
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "Mr. Kid" <[hidden email]>
Sender: [hidden email]
Date: Fri, 24 May 2013 23:21:53
To: BeExcel<[hidden email]>
Reply-To: [hidden email]
Subject: Re: [belajar-excel] (unknown)

Kenapa kok disimpan dengan orientasi kekanan (horisontal).
Bagaimana jika disimpan dengan orientasi vertikal.
Pada sheet baru dibuat tabel (mulai A1 sebagai header) dengan kolom :
          NAMA          ALOKASI            NILAI                 TGL_INPUT

ndak perlu kolom Total dan ndak perlu kolom NO.

Menampilkan output seperti cara Anda menyimpan itu lebih mudah jika
tabelnya seperti di atas ( 4 kolom di atas)

Wassalam,
Kid.





2013/5/24 achmad adi <[hidden email]>

> **
>
>
> dear master,
>
> setelah mengaplikasikan apa yng telah saya dapat,,,saya menemui kebuntuan
> lagi..tentang pointer untuk disimpan di cell tertentu ( ada di combobox
> )..att saya lampirkan..
> mohon petunjuk dari para master.
>
>
> terima kasih
>
>  
>

Kid
Reply | Threaded
Open this post in threaded view
|

Re: Re: [belajar-excel] (unknown)

Kid
Administrator
Oke.

Daftar nama langsung diletakkan di kolom B saja (mulai B6). Jadi combobox
merujuk pada daftar nama di kolom B ini.
misal :
1. object worksheet tujuan adalah sheet1 [bukan nama sheet di tab sheet,
tapi di VBE frame Project Explorer]
2. combo nama bernama Combobox1, combo lokasi bernama combobox2, textbox
nilai bernama textbox1

Copas prosedur berikut ke lembar script userform :
private sub Simpan()
     dim rng as range    'anchor
     set rng=sheet1.range("c6")

     'validasi input
     if combobox1.listindex<0 then
           exit sub
     elseif combobox2.listindex<0 then
           exit sub
     elseif lenb(textbox1.text)=0 then
           exit sub
     endif

     'tulis nilai ke worksheet
     rng.offset( combobox1.listindex , combobox2.listindex ).value =
textbox1.text

     'pesan
     msgbox "Done.",vbinformation,"Simpan"

end sub

kemudian di setiap event change milik combobox1,combobox2, dan textbox1
diberi perintah untuk memanggil prosedur Simpan di atas tadi dengan
menuliskan :
Simpan

Wassalam,
Kid.










2013/5/27 <[hidden email]>

> **
>
>
> ** Trimakasih masulannya...cuma ingin mencoba..sebelumnya..mr kid sudah
> mengajari paksi option buton untuk memilih cell tertuju..nah ini mo mencoba
> dengan combobox langsung....
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "Mr. Kid" <[hidden email]>
> *Sender: * [hidden email]
> *Date: *Fri, 24 May 2013 23:21:53 +0700
> *To: *BeExcel<[hidden email]>
> *ReplyTo: * [hidden email]
> *Subject: *Re: [belajar-excel] (unknown)
>
>
>
> Kenapa kok disimpan dengan orientasi kekanan (horisontal).
> Bagaimana jika disimpan dengan orientasi vertikal.
> Pada sheet baru dibuat tabel (mulai A1 sebagai header) dengan kolom :
>           NAMA          ALOKASI            NILAI                 TGL_INPUT
>
> ndak perlu kolom Total dan ndak perlu kolom NO.
>
> Menampilkan output seperti cara Anda menyimpan itu lebih mudah jika
> tabelnya seperti di atas ( 4 kolom di atas)
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/5/24 achmad adi <[hidden email]>
>
>> **
>>
>>
>> dear master,
>>
>> setelah mengaplikasikan apa yng telah saya dapat,,,saya menemui kebuntuan
>> lagi..tentang pointer untuk disimpan di cell tertentu ( ada di combobox
>> )..att saya lampirkan..
>> mohon petunjuk dari para master.
>>
>>
>> terima kasih
>>
>>
>  
>
Reply | Threaded
Open this post in threaded view
|

Bls: Re: Re: [belajar-excel] (unknown)

achmad adi
Trimakasih sebelumnya...mr kid..atas bantuannya...
Kok gak jalan ya..setelah saya terapkan..

"Endsub"

Hehehe..
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "Mr. Kid" <[hidden email]>
Sender: [hidden email]
Date: Mon, 27 May 2013 17:01:44
To: BeExcel<[hidden email]>
Reply-To: [hidden email]
Subject: Re: Re: [belajar-excel] (unknown)

Oke.

Daftar nama langsung diletakkan di kolom B saja (mulai B6). Jadi combobox
merujuk pada daftar nama di kolom B ini.
misal :
1. object worksheet tujuan adalah sheet1 [bukan nama sheet di tab sheet,
tapi di VBE frame Project Explorer]
2. combo nama bernama Combobox1, combo lokasi bernama combobox2, textbox
nilai bernama textbox1

Copas prosedur berikut ke lembar script userform :
private sub Simpan()
     dim rng as range    'anchor
     set rng=sheet1.range("c6")

     'validasi input
     if combobox1.listindex<0 then
           exit sub
     elseif combobox2.listindex<0 then
           exit sub
     elseif lenb(textbox1.text)=0 then
           exit sub
     endif

     'tulis nilai ke worksheet
     rng.offset( combobox1.listindex , combobox2.listindex ).value =
textbox1.text

     'pesan
     msgbox "Done.",vbinformation,"Simpan"

end sub

kemudian di setiap event change milik combobox1,combobox2, dan textbox1
diberi perintah untuk memanggil prosedur Simpan di atas tadi dengan
menuliskan :
Simpan

Wassalam,
Kid.










2013/5/27 <[hidden email]>

> **
>
>
> ** Trimakasih masulannya...cuma ingin mencoba..sebelumnya..mr kid sudah
> mengajari paksi option buton untuk memilih cell tertuju..nah ini mo mencoba
> dengan combobox langsung....
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "Mr. Kid" <[hidden email]>
> *Sender: * [hidden email]
> *Date: *Fri, 24 May 2013 23:21:53 +0700
> *To: *BeExcel<[hidden email]>
> *ReplyTo: * [hidden email]
> *Subject: *Re: [belajar-excel] (unknown)
>
>
>
> Kenapa kok disimpan dengan orientasi kekanan (horisontal).
> Bagaimana jika disimpan dengan orientasi vertikal.
> Pada sheet baru dibuat tabel (mulai A1 sebagai header) dengan kolom :
>           NAMA          ALOKASI            NILAI                 TGL_INPUT
>
> ndak perlu kolom Total dan ndak perlu kolom NO.
>
> Menampilkan output seperti cara Anda menyimpan itu lebih mudah jika
> tabelnya seperti di atas ( 4 kolom di atas)
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/5/24 achmad adi <[hidden email]>
>
>> **
>>
>>
>> dear master,
>>
>> setelah mengaplikasikan apa yng telah saya dapat,,,saya menemui kebuntuan
>> lagi..tentang pointer untuk disimpan di cell tertentu ( ada di combobox
>> )..att saya lampirkan..
>> mohon petunjuk dari para master.
>>
>>
>> terima kasih
>>
>>
>  
>

Kid
Reply | Threaded
Open this post in threaded view
|

Re: Re: Re: [belajar-excel] (unknown)

Kid
Administrator
Kok gak disertakan hasil uji cobanya.

End    sub

Wassalam,
Kid.


2013/5/28 <[hidden email]>

> **
>
>
> ** Trimakasih sebelumnya...mr kid..atas bantuannya...
> Kok gak jalan ya..setelah saya terapkan..
>
> "Endsub"
>
> Hehehe..
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "Mr. Kid" <[hidden email]>
> *Sender: * [hidden email]
> *Date: *Mon, 27 May 2013 17:01:44 +0700
> *To: *BeExcel<[hidden email]>
> *ReplyTo: * [hidden email]
> *Subject: *Re: Re: [belajar-excel] (unknown)
>
>
>
> Oke.
>
> Daftar nama langsung diletakkan di kolom B saja (mulai B6). Jadi combobox
> merujuk pada daftar nama di kolom B ini.
> misal :
> 1. object worksheet tujuan adalah sheet1 [bukan nama sheet di tab sheet,
> tapi di VBE frame Project Explorer]
> 2. combo nama bernama Combobox1, combo lokasi bernama combobox2, textbox
> nilai bernama textbox1
>
> Copas prosedur berikut ke lembar script userform :
> private sub Simpan()
>      dim rng as range    'anchor
>      set rng=sheet1.range("c6")
>
>      'validasi input
>      if combobox1.listindex<0 then
>            exit sub
>      elseif combobox2.listindex<0 then
>            exit sub
>      elseif lenb(textbox1.text)=0 then
>            exit sub
>      endif
>
>      'tulis nilai ke worksheet
>      rng.offset( combobox1.listindex , combobox2.listindex ).value =
> textbox1.text
>
>      'pesan
>      msgbox "Done.",vbinformation,"Simpan"
>
> end sub
>
> kemudian di setiap event change milik combobox1,combobox2, dan textbox1
> diberi perintah untuk memanggil prosedur Simpan di atas tadi dengan
> menuliskan :
> Simpan
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
> 2013/5/27 <[hidden email]>
>
>> **
>>
>>
>> ** Trimakasih masulannya...cuma ingin mencoba..sebelumnya..mr kid sudah
>> mengajari paksi option buton untuk memilih cell tertuju..nah ini mo mencoba
>> dengan combobox langsung....
>> Powered by Telkomsel BlackBerry®
>> ------------------------------
>> *From: * "Mr. Kid" <[hidden email]>
>> *Sender: * [hidden email]
>> *Date: *Fri, 24 May 2013 23:21:53 +0700
>> *To: *BeExcel<[hidden email]>
>> *ReplyTo: * [hidden email]
>> *Subject: *Re: [belajar-excel] (unknown)
>>
>>
>>
>> Kenapa kok disimpan dengan orientasi kekanan (horisontal).
>> Bagaimana jika disimpan dengan orientasi vertikal.
>> Pada sheet baru dibuat tabel (mulai A1 sebagai header) dengan kolom :
>>           NAMA          ALOKASI            NILAI                 TGL_INPUT
>>
>> ndak perlu kolom Total dan ndak perlu kolom NO.
>>
>> Menampilkan output seperti cara Anda menyimpan itu lebih mudah jika
>> tabelnya seperti di atas ( 4 kolom di atas)
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>> 2013/5/24 achmad adi <[hidden email]>
>>
>>> **
>>>
>>>
>>> dear master,
>>>
>>> setelah mengaplikasikan apa yng telah saya dapat,,,saya menemui
>>> kebuntuan lagi..tentang pointer untuk disimpan di cell tertentu ( ada di
>>> combobox )..att saya lampirkan..
>>> mohon petunjuk dari para master.
>>>
>>>
>>> terima kasih
>>>
>>>
>>
>  
>
Reply | Threaded
Open this post in threaded view
|

Bls: Re: Re: [belajar-excel] (unknown)

achmad adi
saya sudah membuat yang baru Mr kid,,lebih spesifik lagi,,mohon bantuannya




________________________________
 Dari: Mr. Kid <[hidden email]>
Kepada: BeExcel <[hidden email]>
Dikirim: Selasa, 28 Mei 2013 19:02
Judul: Re: Re: Re: [belajar-excel] (unknown)
 


 
Kok gak disertakan hasil uji cobanya.

End    sub



Wassalam,
Kid.




2013/5/28 <[hidden email]>

 


> Trimakasih sebelumnya...mr kid..atas bantuannya...
>Kok gak jalan ya..setelah saya terapkan..
>
>"Endsub"
>
>Hehehe..
>Powered by Telkomsel BlackBerry®
>________________________________
>
>From:  "Mr. Kid" <[hidden email]>
>Sender:  [hidden email]
>Date: Mon, 27 May 2013 17:01:44 +0700
>To: BeExcel<[hidden email]>
>ReplyTo:  [hidden email]
>Subject: Re: Re: [belajar-excel] (unknown)
>

>Oke.
>
>Daftar nama langsung diletakkan di kolom B saja (mulai B6). Jadi combobox merujuk pada daftar nama di kolom B ini.
>misal :
>1. object worksheet tujuan adalah sheet1 [bukan nama sheet di tab sheet, tapi di VBE frame Project Explorer]
>2. combo nama bernama Combobox1, combo lokasi bernama combobox2, textbox nilai bernama textbox1
>
>Copas prosedur berikut ke lembar script userform :
>private sub Simpan()
>
>     dim rng as range    'anchor
>
>     set rng=sheet1.range("c6")
>
>
>     'validasi input
>
>     if combobox1.listindex<0 then
>
>           exit sub
>
>     elseif combobox2.listindex<0 then
>
>           exit sub
>
>     elseif lenb(textbox1.text)=0 then
>
>           exit sub
>
>     endif
>
>
>     'tulis nilai ke worksheet
>
>     rng.offset( combobox1.listindex , combobox2.listindex ).value = textbox1.text
>
>
>
>     'pesan
>
>     msgbox "Done.",vbinformation,"Simpan"
>
>end sub
>
>
>
>kemudian di setiap event change milik combobox1,combobox2, dan textbox1 diberi perintah untuk memanggil prosedur Simpan di atas tadi dengan menuliskan :
>
>Simpan
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>2013/5/27 <[hidden email]>
>
>
>> 
>> Trimakasih masulannya...cuma ingin mencoba..sebelumnya..mr kid sudah mengajari paksi option buton untuk memilih cell tertuju..nah ini mo mencoba dengan combobox langsung....
>>Powered by Telkomsel BlackBerry®
>>________________________________
>>
>>From:  "Mr. Kid" <[hidden email]>
>>Sender:  [hidden email]
>>Date: Fri, 24 May 2013 23:21:53 +0700
>>To: BeExcel<[hidden email]>
>>ReplyTo:  [hidden email]
>>Subject: Re: [belajar-excel] (unknown)
>>
>> 
>>Kenapa kok disimpan dengan orientasi kekanan (horisontal).
>>Bagaimana jika disimpan dengan orientasi vertikal.
>>Pada sheet baru dibuat tabel (mulai A1 sebagai header) dengan kolom :
>>          NAMA          ALOKASI            NILAI                 TGL_INPUT
>>
>>ndak perlu kolom Total dan ndak perlu kolom NO.
>>
>>
>>Menampilkan output seperti cara Anda menyimpan itu lebih mudah jika tabelnya seperti di atas ( 4 kolom di atas)
>>
>>
>>Wassalam,
>>
>>Kid.
>>
>>
>>
>>
>>
>>
>>
>>
>>2013/5/24 achmad adi <[hidden email]>
>>
>>
>>> 
>>>dear master,
>>>
>>>setelah mengaplikasikan apa yng telah saya dapat,,,saya menemui kebuntuan lagi..tentang pointer untuk disimpan di cell tertentu ( ada di combobox )..att saya lampirkan..
>>>mohon petunjuk dari para master.
>>>
>>>
>>>
>>>
>>>terima kasih
>>>
>>>
>>
>