Slamat Siang Trima kasih Mas Agus ternyata saya telah menemukannya ternyata
dengan menambah Range("E3").Value = TextBox1 pada awal, dan berhasil.
Private Sub TextBox1_Change()
Range("E3").Value = TextBox1
If Range("E3")...Value <= 700 Then
MsgBox ("LIMIT UKURAN TIDAK SESUAI (7002400)")
Letakkan pada tombol validasinya saja, jangan pada textbox change.
misalnya tombol OK.
On 10/14/2019 09:39, Budi Priyo monexd...@gmail.com [belajar-excel] wrote:
Maaf Mas Agus
Sudah saya coba tapi baru di ketik satu angka sudah tampil msgbox nya,
dimana meletakkan codingnya?
Trima kasih
Pada
Maaf Mas Agus
Sudah saya coba tapi baru di ketik satu angka sudah tampil msgbox nya,
dimana meletakkan codingnya?
Trima kasih
Pada tanggal Jum, 11 Okt 2019 pukul 21.10 Agus nanga...@gmail.com
[belajar-excel] menulis:
>
>
> Dear Mas Budi,
> bagaimana kalau begini?
>
> If TextBox1.Value < 100
Dear Mas Budi,
bagaimana kalau begini?
If TextBox1.Value < 100 Then
MsgBox "Kekecilen"
TextBox1.SetFocus
End If
If TextBox1.Value > 500 Then
MsgBox "Kebesaren"
TextBox1.SetFocus
On 10/11/2019 16:39, Budi Priyo monexd...@gmail.com [belajar-excel] wrote:
Salam Sejahtera teman2 semua
Saya minta
Salam Sejahtera teman2 semua
Saya minta tolong bantu permasalah saya.
Begini, saya buat textbox di userform yang akan diisi dengan angka tetapi
harus ada nilai minimum dan maximum, misalnya minimum 100 dan maximum 500,
kalau diluar itu tidak dapat di input.
Apakah itu bisa dibuatkan macronya?
Wa'alaikumsalam wr. wb.,
imho,
jika TextBox yang diubah dan si cel berubah mengikuti isi dari TextBox,
maka hal tersebut dapat dilakukan memanfaakan event Change milik
TextBox,sedangkan jika yang dilakukan adalah sebaliknya yaitu perubahan
dilakukan di dalam cel dan nilai dari TextBox mengikuti
Assalamu'alaikum.
Mohon maaf sebelumnya, kalo Subject nya kurang pas.
Bagaimana caranya agar TextBox bisa langsung terhubung dengan cell tertentu
secara live. Misal pada Cell A1 saya tulis BeExcel maka pada TextBox langsung
ikut tertulis BeExcel, begitu pula sebaliknya tanpa di enter terlebih
Alhamdulillah berhasil juga..
Makasih Miss Jan Raisin
From: Jan Raisin miss.jan.rai...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wednesday, April 2, 2014 1:34 PM
Subject: Re: [belajar-excel] TextBox otomatis
Wa'alaikumsalam wr. wb.,
thread ini
Assalamu'alaikum semuanya.
Para master mohon dibantu.
Saya punya kasus misal saya isi TextBox1 dengan kode barang kemudian TextBox2
dan TextBox3 akan otomatis keluar nama beserta harga,Database misal di ambil di
sheet2 sedangkan isian user form di isi di sheet1.
Terimakasih sebelumnya.
Hai Haris,
1. Bagaimana formulasi yang harus saya buat agar sistem baru membaca
setelah data yang saya input penuh 4 karakter.
sudah dibahas di email yang lalu kan ya (
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/30083
)
bunyinya begini :
2. nilai data yang dicari
Assalamu'alaikum Mr.Kid
Saya sudah coba seperti yang Mr. Kid sarankan termasuk pada saran Mr. Kid yang
terdahulu.
Berikut script yang saya tuliskan:
if len(skey)4 then
msgboxData tidak ditemukan...
exit sub
endif
Set rgFind = Range(b:b).Find(sKey, lookat:=xlWhole)
وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
script yang diubah adalah yang berwarna biru
sKey = TextBox1.Text
TextBox2.Text = vbNullString
TextBox3.Text = vbNullString
if len(sKey) 4 then
exit sub
end if
Set rgFind = Range(b:b).Find(sKey,
Alhamduliullah hirobbil'alamiin
Terimakasih Mis. Jan Raisin, hasilnya sudah seperti yang saya maksud.
Semoga MIlis ini semakain ramai pengunjung membernya, serta tetep
terpelihara karena sangat berguna terutama bagi yang awam excel seperti saya.
Sekali lagi terimaksih Mis. Jan Raisin
Hai Haris,
pada textbox 1 dikasih event change, lalu diberi script seperti ini:
Dim sKey As String
Dim rgFind As Range
sKey = TextBox1.Text ' simpan nilai textbox 1 ke dalam
variabel
TextBox2.Text = vbNullString ' hapus isi textbox 2
TextBox3.Text =
Pinjam script-nya ya miss...
mo nambahin dikit... sapa tahu ada gunanya...
Dugaan :
1. bisa jadi nanti akan menjadikan userform sebagai alat edit juga.
baris deklarasi variabel range diubah agar ber-scope module dengan
memindahkan dan mengubah scope baris berbunyi :
Dim rgFind As Range 'yang
Terimakasih Mis Jan Raisin, sudah saya coba dan hasilnya sesuai yang saya
maksud.
Betul apa yang disampaikan Mr. Kid, coding tersebut memang saya aplikasikan
dalam userform. Dan terimaksih banyak juga buat Mr. Kid atas tambahan
masukannya.
Saya harap tidak bosen jika saya akan banyak
Salam BeExceler.
Mohon arahanya ne agan-agan.
Saya punya 3 textbox, saya pengin Textbox2 Textbox3 terisi secara otomatis
setelah Textbox1 selesai diinput secara manual. Isi Textbox2 Textbox3 sesuai
dengan data dalam Database mengikuti keypoint yang diinput dalam Textbox1.
Untuk lebih
Dear Para Master,
Langsung pada pertanyaan ya...
Saya membuat textbox pada userform,
Yang saya inginkan bagaimana textbox tersebut dapat di isi seperti tampilan
Listbox yang mempunyai Scroll dan Textbox di input ny bisa ke bawah (vertical)
bukan ke horizontal.
terima kasih,,,
Workbook contoh disertai ilustrasi kebutuhan dan penjelasan yang lengkap
akan lebih membantu BeExceller yang ingin menanggapi.
Wassalam,
Kid.
2013/12/19 respati...@gmail.com
Dear Para Master,
Langsung pada pertanyaan ya...
Saya membuat textbox pada userform,
Yang saya inginkan bagaimana
Hi all,
Sy mau buat userform yg terdapat combobox dan text box.
Combobox1
Rowsource: test
Columncount 2
Test refers to =$a$3:$h$10
Jika text box ingin mengambil column 5 dgn acuan dr combobox itu bagaimana ya?
Attachment terlampir
Sent from my BlackBerry yg belum lunas
textbox refer to
Hai Mike,
misal :
1. textbox bernama txtLookUp
2. combo box bernama combobox1
3. nama range test memiliki scope workbook
Coba buat event combobox change. Isi dengan script :
'jika kolom pertama dari range bernama test bertipe numerik bilangan
bulat,
'ganti : combobox1.text menjadi
21 matches
Mail list logo
