Macam Macam Cara Mencari Data

1. pencarian dengan menggunakan textbox1 dan di tampilkan di textbox lain
Private Sub TextBox1_Change()
Set Macro = Sheets("Sheet1")
On Error Resume Next
Set EditMacro = Macro.Range("A3Kebawah")
Set c = EditMacro.Find(TextBox1.Value, _
LookIn:=xlValues)
TextBox2.Value = c.Offset(0, 1).Value
TextBox3.Value = c.Offset(0, 2).Value
TextBox4.Value = c.Offset(0, 3).Value
End Sub

2. Pencarian bagian 2
Input data berdasarkan kolom pencarian 1
Dim Kode
Dim CellTujuan As Range
Kode = TextBox1.Value
Set CellTujuan = Range("C3:ZZ3").Find(What:=Kode,
LookIn:=xlValues, LookAt:=xlWhole)
If Not CellTujuan Is Nothing Then
TextBox2 = Cells(4, CellTujuan.Column)
End If


3. Pencarian bagian 3
Dim x As Range
For Each x In Range("A1:Z100")
If x.Value = CStr(TextBox1.Value) Then
TextBox2.Value = x.Offset(1, 0).Value
End If
Next

4. pencarian pada 3 sheet
Mencari data 3 sheet
Private Sub TextBox2_Change()
Dim i As integer
For i = 1 to 3
Set IpAoNE = Sheets("Sheet"&i)
Set IdRangeA = IpAoNE.Range("B3:B8")
Set c = IdRangeA.Find(TextBox1.Value,
LookIn:=xlValues)
TextBox2.Value = c.Offset(0, 1).Value
TextBox3.Value = c.Offset(0, 2).Value
Next i
End Sub
28.04.2017
*********(((
PENGEMBANGN
3 sheet
Bulanjanuari, bulanpebruari, Bulanmei
Dim i As integer
Dim 1, 2, 3
1 = Januari
2 = pebruari
3 = maret
For i = 1 to 3
Set IpAoNE = Sheets("bulan"&i)
Set IdRangeA = IpAoNE.Range("B3:B8")
Set c = IdRangeA.Find(TextBox2.Value,
LookIn:=xlValues, _
MatchCase:=False)
TextBox1.Value = c.Offset(0, -1).Value
TextBox3.Value = c.Offset(0, 1).Value
Next i
End Sub

Cara memasukkan isi listbox ke textbox beda userform

Untuk menampilkan userform3 dan mengisi textbox dari listbox yg di userform1

Di tulis dalam event doble clik listbox

Privat sub listCaridblclik

if listCari.listindex < 0 then exit sub

Userform3.Textbox1 = listCari. List (listCari. Listindex, 0)

Userform3.show

End sub

Menghapus data terpilih dalam listbox

Private Sub CommandButton2_Click()
'perintah untuk menghapus data Terpilih dari dalam ListBox2

Dim counter As Integer
counter = 0
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i - counter) Then
ListBox2.RemoveItem (i - counter)
counter = counter + 1
End If
Next i
End Sub

cara menggunakan kode Penjumlahan pada listbox

cara menggunakan kode Penjumlahan pada listbox

Private Sub totalharga()

Dim i As Integer

Dim harga As Long

harga = 0

For i = 0 To ListBox1.ListCount - 1

harga = harga + Val(ListBox1.List(i, 2))

Next

Me.txtotal.Text = harga

End Sub

 

Penjumlahan list box2
Sub hitung ()
With listbox1
Me.TxtTotal=0
For i =1 to. ListCount - 1
Me.TxtTotal = csng (me.txtTotal) + csng (. List (i, 4))
Next
End with
End sub

Cara Memberi Nama Header / Kepala Kolom

Cara Memberi Nama Header / Kepala Kolom
Sub Headerlist()
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = "Nomor"
.List(.ListCount - 1, 1) = "Nama Siswa"
.List(.ListCount - 1, 2) = "Kelas"
.List(.ListCount - 1, 3) = "Wali murid"
.ColumnWidths = 35 & ";" & 70 & ";" & 45 & ";" & 80
End With
End Sub

Macam Macam fungsi Listview

macam macam fungsi listview

1. Menampilkan Data pada TextBox saat data diKlik pada
ListView
Private Sub ListView1_ItemClick(ByVal Item As
MSComctlLib.ListItem)
TextBox1 = ListView1.SelectedItem
TextBox2 = ListView1.SelectedItem.SubItems(1)
TextBox3 = ListView1.SelectedItem.SubItems(2)
TextBox4 = ListView1.SelectedItem.SubItems(3)
TextBox5 = ListView1.SelectedItem.SubItems(4)
End Sub


2. Memberikan Judul pada ListView
Private Sub UserForm_Initialize()
With ListView1
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add Text:="Tanggal Transaksi", Width:=100
.ColumnHeaders.Add Text:="Nama Produk", Width:=170
.ColumnHeaders.Add Text:="Satuan", Width:=60
.ColumnHeaders.Add Text:="Jumlah", Width:=40
.ColumnHeaders.Add Text:="Total Harga", Width:=100
End With
Call Tampil
End Sub


3. Menampilkan data dari Worksheet Excell ke dalam
ListView
Sub Tampil()
Dim Item As ListItem
Dim rekamandata As Integer
Dim i As Integer
ListView1.ListItems.Clear
rekamandata = Sheet1.Cells(Rows.Count, 1).End
(xlUp).Row
For i = 4 To rekamandata
Set Item = ListView1.ListItems.Add(Text:=Sheet1.Cells(i,
1))
Item.SubItems(1) = Sheet1.Cells(i, 2)
Item.SubItems(2) = Sheet1.Cells(i, 3)
Item.SubItems(3) = Sheet1.Cells(i, 4)
Item.SubItems(4) = Sheet1.Cells(i, 5)
Next
Label1.Caption = ListView1.ListItems.Count 'Menghitung
Data Dalam ListView
End Sub

CARA Memasukkan isi ListBox Ke dalam Worksheet

CARA Memasukkan isi ListBox Ke dalam Worksheet

Private Sub CommandButton3_Click()
Set ws = Worksheets("Sheet1")
Dim Baris As Long
Dim Jumlah As Long
Jumlah = ListBox1.ListCount - 1
With ws
Baris = .Cells(.Rows.Count, "A").End(xlUp).Offset(0,
0).Row
For i = 1 To Jumlah
With .Cells(Baris + i, "A")
.Value = DTPicker1.Value
End With
.Cells(Baris + i, 2).Value = TextBox1.Value
.Cells(Baris + i, 3).Value = ListBox1.List(i, 0)
.Cells(Baris + i, 4).Value = ListBox1.List(i, 1)
.Cells(Baris + i, 5).Value = ListBox1.List(i, 2)
Next i
End With
UserForm_Activate
End Sub

CARA memasukkan data TextBox Ke dalam ListBox

memasukkan data TextBox Ke dalam ListBox

Private Sub CommandButton1_Click()

With ListBox1

.AddItem

.List(.ListCount - 1, 0) = TextBox1.Value

.List(.ListCount - 1, 1) = TextBox2.Value

.List(.ListCount - 1, 2) = TextBox3.Value

.List(.ListCount - 1, 3) = TextBox4.Value

End With

End Sub

Cara memasukan isi List Box ke Textbox pada Vba excel.

ini merupakan kode Cara memasukan isi List Box ke Textbox
pada Vba excel.

Private Sub listBox1_Click()
TextBox1.Value = Listbox1.List(listBox1.ListIndex, 1)
TextBox2.Value = Listbox1.List(listBox1.ListIndex, 2)
TextBox3.Value = Listbox1.List(listBox1.ListIndex, 3)
End Sub

Private Sub listBox1_Click()
'masukan teks dalam listbox kolom pertama ke dalam
texbox1
TextBox1.Value = Listbox1.List(listBox1.ListIndex, 1)
'masukan teks dalam listbox kolom kedua ke dalam
texbox2
TextBox2.Value = Listbox1.List(listBox1.ListIndex, 2)
'masukan teks dalam listbox kolom ketiga ke dalam
texbox3
TextBox3.Value = Listbox1.List(listBox1.ListIndex, 3)
End Sub

Menampilkan Data Worksheet Ke dalam ListBox

Menampilkan Data Worksheet Ke dalam ListBox

Sub TampilkanSemua()

Set wsDtbsPlgn = Sheets("Data")

ListBox1.Clear

ListBox1.ColumnCount = 6

ListBox1.ColumnWidths = 80 & ";" & 25 & ";" &

35 & ";" & 65 & ";" & 120

Set rgTampil = wsDtbsPlgn.Range

("A1:A100").SpecialCells(xlCellTypeVisible)

For Each i In rgTampil

With ListBox1

.AddItem

.List(.ListCount - 1, 0) = i.Value

.List(.ListCount - 1, 1) = i.Offset(0, 1).Value

.List(.ListCount - 1, 2) = i.Offset(0, 2).Value

.List(.ListCount - 1, 3) = i.Offset(0, 3).Value

.List(.ListCount - 1, 4) = i.Offset(0, 4).Value

End With

Next i

End Sub

MACAM MACAM INPUT DATA VBA EXCEL

MACAM MACAM INPUT DATA VBA EXCEL

1. Input data hanya 1 sheet

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets(“Barang”)
‘menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
‘check untuk sebuah kode
If Trim(TextBox1.Value) = “” Then
TextBox1.SetFocus
MsgBox “Masukan Kode Barang”
Exit Sub
End If
‘copy data ke database
ws.Cells(iRow, 1).Value = TextBox1.Value
ws.Cells(iRow, 2).Value = TextBox2.Value
ws.Cells(iRow, 3).Value = TextBox3.Value
ws.Cells(iRow, 4).Value = TextBox4.Value
‘clear data
TextBox1.Value = “”
TextBox2.Value = “”
TextBox3.Value = “”
TextBox4.Value = “”
TextBox1.SetFocus
END SUB


2. input data berayarat manual sesuai nama sheet
yaitu tambahkan kode pada tombo pesan
Private Sub CommandButton1_Click()
Set ws = Worksheets("BUAH")
Set ws2 = Worksheets("KUE")
Set ws3 = Worksheets("PERMEN")
Set ws4 = Worksheets("NASI")

'menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
iRow2 = ws2.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
iRow3 = ws3.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
iRow4 = ws4.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check untuk sebuah kode
If Trim(Me.TextBox1.Value) = "" Then
Me.TextBox1.SetFocus
MsgBox "Masukan Kode Pembeli"
Exit Sub
End If
'copy data ke database
If ComboBox1.Value = "BUAH" Then
With ws
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
End With
ElseIf ComboBox1.Value = "KUE" Then
With ws2
ws2.Cells(iRow2, 1).Value = Me.TextBox1.Value
ws2.Cells(iRow2, 2).Value = Me.TextBox2.Value
End With
ElseIf ComboBox1.Value = "PERMEN" Then
With ws3
ws3.Cells(iRow3, 1).Value = Me.TextBox1.Value
ws3.Cells(iRow3, 2).Value = Me.TextBox2.Value
End With
ElseIf ComboBox1.Value = "NASI" Then
With ws
ws4.Cells(iRow4, 1).Value = Me.TextBox1.Value
ws4.Cells(iRow4, 2).Value = Me.TextBox2.Value
End With

End If

'clear data
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox1.SetFocus
MsgBox "DATA TELAH DI SIMPAN"
End Sub

3.A. Input data berdasarkan kolom pencarian 1
Dim Kode
Dim CellTujuan As Range
Kode = TextBox1.Value
Set CellTujuan = Range("C3:ZZ3").Find(What:=Kode,
LookIn:=xlValues, LookAt:=xlWhole)
If Not CellTujuan Is Nothing Then
TextBox2 = Cells(4, CellTujuan.Column)
End If
iRow = ws.Cells(Rows.Count, CellTujuan.Column) _
.End(xlUp).Offset(1, CellTujuan.Column).Row
ws.Cells(iRow, CellTujuan.Column).Value = Textbox2.Value

3.B.Input data berdasarkan kolom pencarian 2
Dim x As Range
For Each x In Range("A1:Z100")
If x.Value = CStr(TextBox1.Value) Then
TextBox2.Value = x.Offset(1, 0).Value
End If
Next
iRow = ws.Cells(Rows.Count, x.Column) _
.End(xlUp).Offset(1, x.Column).Row
ws.Cells(iRow, x.Column).Value = Textbox2.Value

4. Input data KEDALAM SHEET, NAMA SHEET SESUAI TEXTBOX

Dim iRow As Long
Dim ws As Worksheet
nama = TextBulan.value
Set ws = Worksheets(nama)
‘menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
‘check untuk sebuah kode
If Trim(TextBox1.Value) = “” Then
TextBox1.SetFocus
MsgBox “Masukan Kode Barang”
Exit Sub
End If
‘copy data ke database
ws.Cells(iRow, 1).Value = TextBox1.Value
ws.Cells(iRow, 2).Value = TextBox2.Value
ws.Cells(iRow, 3).Value = TextBox3.Value
ws.Cells(iRow, 4).Value = TextBox4.Value
‘clear data
TextBox1.Value = “”
TextBox2.Value = “”
TextBox3.Value = “”
TextBox4.Value = “”
TextBox1.SetFocus
END SUB

HAKIKAT KONEKSI "ARWAH LELUHUR"

HAKIKAT KONEKSI "ARWAH LELUHUR" .......

Salam jum'at mubarokh ~

Salah satu aspek pengalaman mistis bagi para pelaku supranatural adalah terhubung dengan "ruh" para leluhur.
Tidak hanya di kalangan praktisi. Gejala tersebut bisa juga terjadi pada orang awam yang tidak mempelajari ilmu energi. Sebenar nya apakah benar itu adalah ruh leluhur?
Terlalu sembrono jika kita mengklaim tentang "ruh" ,,, apalagi jika itu ruh nya orang mati.
Perlu saya jelaskan bahwa jika ada seseorang meninggal dunia, sementara semasa hidupnya ia adalah seorang yang menguasai kesadaran spiritual yang tinggi, maka ketika ia wafat, seluruh KESADARAN & ILMU SPIRITUAL nya akan membentuk sebuah MEMORI DATA.
MEMORI DATA ini bersifat HIDUP. Sehingga
memungkinkan untuk terhubung dengan "penerus DNA" atau anak cucu orang yang meninggal dunia, atau bisa pula terhubung dengan orang lain yang memiliki frekwensi spiritual yang "selaras" dengan substansi memori data tersebut.
Data memori semacam ini adalah bagian dari mekanisme instrumen Hukum Alam. Fungsi nya adalah memberikan saran, informasi & petunjuk tentang hal hal spiritual maupun rahasia alam, yang di fahami atau telah dikuasai oleh "almarhum" sang pemilik data semasa hidup di dunia.
Data hanya bisa terhubung dengan orang yang memiliki tingkat spiritual tertentu, maupun memiliki potensi spiritual tertentu (bakat terpendam).
Sifat Memori Data tersebut hanya memberikan saran, menyampaikan informasi, menunjukkan petunjuk atau simbol tertentu yang bermakna bagi orang yang dituju.
Jadi koneksi nya lebih bersifat pasif & natural. Tidak menekan atau bahkan menggurui, serta tidak mungkin meminta sesaji.
Maka apabila ada "sesosok makhluk" yang menyerupai ataupun mengaku sebagai leluhur maupun tokoh spiritual dari masa lalu, harus dilihat terlebih dahulu tabiat nya.
Jika ia tampak sangat aktif, terkesan menekan atau berusaha mendominasi, memberi perintah perintah yang harus di patuhi, membawa hawa ghaib yang pekat, & lain lain .... Maka bisa dipastikan itu BUKAN Data memori dari leluhur yang berkesadaran spiritual tinggi.

Hanya ada 2 kemungkinan dari fenomena "Ruh Palsu leluhur" yang semacam itu :

1.) dia adalah JIN atau makhluk astral yang terlatih untuk menduplikasi/ mengcopy data hidup orang yang sudah meninggal. Mulai dari sosok perawakan & ciri ciri fisik nya, hingga pengetahuan keilmuan maupun kejadian kejadian di masa hidup almarhum.

2.) bisa jadi juga itu adalah QORIN atau ruh nafsu dari seseorang yang semasa hidup menguasai ilmu energi kesaktian yang inti nya adalah MENGKRISTALKAN 4 element nafsu didalam diri, hingga membentuk konstelasi medan energi sakti.
Medan energi yang telah mengkristal tersebut tetap tidak bisa musnah meski pemiliknya telah meninggal dunia. Itulah sejatinya QORIN.
Kemudian qorin akan berkeliaran di dunia mencari orang yang masih hidup, untuk "mentandem" data kesaktian nya.
Yang inti daripada itu ialah pengkristalan nafsu (sifat syaithoniah hawa nafsu).

POLTERGEIST & EXORCHIS

POLTERGEIST & EXORCHIS

Di dunia barat, fenomena gangguan makhluk halus yang mengganggu manusia secara nyata, selalu berkaitan dengan anak atau remaja yang memiliki IMAJINASI TINGGI.
jika di sebuah rumah terjadi peristiwa gangguan hingga kerasukan, maka umumnya di rumah itu selalu ada seorang ANAK atau REMAJA yang kuat dalam berimajinasi.
Mengapa demikian ?????

Sebab imajinasi atau khayalan bisa menciptakan DIMENSI SEMU yang menjadi PORTAL masuknya jin kedalam kehidupan manusia.

Orang barat yang memiliki budaya anti mistik & tidak percaya hal hal supranatural, menjadikan dimensi semu untuk portal koneksi dengan makhluk halus itu sulit terwujud.
Tetapi di kalangan anak atau remaja labil yang daya rasional nya masih rendah & penuh daya imajinasi, dimensi semu sebagai portal ghaib ini bisa terbentuk. Berbeda dengan dunia timur seperti indonesia.

Dimana kepercayaan terhadap hal klenik & mistik masih sangat kuat. Maka dimensi semu sebagai portal koneksi dengan alam jin itu bisa terjadi dimana mana, bahkan kepada orang dewasa sekalipun.

Disini bahkan koneksi dengan makhluk halus malah seringkali dianggap sebagai kebangga'an, bahkan secara keliru ditafsirkan sebagai ciri kesalehan dalam beragama.
Para praktisi ilmu khodam bahkan berlomba lomba untuk bisa kesurupan semenakjubkan mungkin, atau memiliki hubungan dengan jin sehebat mungkin.

Inilah salah satu persepsi yang salah dalam mensikapi urusan spiritual condition.
Koneksi dengan hal klenik semacam itu akan merusak daya fikir & intelektualitas.
Secara perlahan, daya kritis - analitis dalam persepsi rasional seseorang akan terkikis habis. Bahkan dalam tingkat paling parah, bisa memicu gangguan kejiwaan.

Sedangkan dalam urusan akhlaq & akidah, secara nyata akan mampu membuat seseorang kehilangan kebijaksanaan & pemahaman ruhaniah yang mendalam

keganjilan2 supranatural yang berbasic koneksi dengan jin, berawal dari terbukanya portal dimensi alam jin. Imajinasi yang kreatif sekaligus "liar" bisa menciptakan medan energi yang dapat membuka portal tersebut.

Seorang anak indigo, memiliki potensi tersebut. Jadi semua kemampuan koneksi astral tersebut, bermula dari kuatnya imajinasi. Seorang anak indigo dapat melakukan imajinasi semacam itu.
Dan seluruh kemampuan aneh atau ganjil yang berkaitan dengan dunia ghaib, berasal dari koneksi astral yang terjalin.

MUDAH LANCAR KERJA DENGAN SPIRITUAL ENERGY

TIPS MUDAH LANCAR KERJA DENGAN SPIRITUAL ENERGY

Yang istiqomah wirid urusan kerejekian, jangan cuma berdzikir saat di rumah saja. Tapi bacakan juga di ALAT KERJA & KENDARAAN yang anda gunakan untuk bekerja juga. Doa kerejekian juga baik dibaca sambil bekerja.
Semakin bagus jika di alat kerja & kendaraan di kasih benda berkhowas yang energinya untuk urusan kerejekian serta keslametan.
Semua itu adalah IKHTIAR untuk membuat pekerjaan anda lebih lancar, lebih diberikan keslamatan & keamanan, serta yang lebih penting agar pekerjaan anda mendapat rejeki lebih banyak lagi.
Ini adalah beberapa usaha secara spiritual energi yang sangat ampuh mendampingi urusan perekonomian anda.
Tidak banyak orang yang faham, bahwa setiap aktifitas energi spiritual itu lebih berfungsi dengan baik jika di terapkan secara langsung pada bidang nyata ,dalam urusan yang berkaitan dengan tujuan doa nya.
Untuk menambah hasil yang maksimal, anda bisa mengambil tanah di tempat kerja anda. Bawa segenggam kemudian secara rutin di wirid do'a do'a kerejekian saat dirumah. Tambahkan pula minyak wangi jika perlu. Semua cara ini bisa anda terapkan, jika anda menginginkan usaha anda lebih berjaya & mendapat lebih banyak harta.
Jangan takut dengan mahal nya harga barang barang kebutuhan hidup sehari hari, jika anda bisa lebih PERKASA mendapatkan uang lebih banyak & banyak lagi, terus bertambah, terus meningkat tiap hari ......
Jadi kuncinya terletak pada KEKUATAN MENDAPATKAN UANG UNTUK KEBEBASAN FINANSIAL .....

Bambu Brojol

BAMBU BROJOL PETHUK, SOCA KEMBANG
adalah bambu dengan "soca" (ranting) yang sangat unik.
Pakem BROJOL maksud nya ranting soca yang tumbuh di
tengah ruas bambu, hingga keatas sampai "mepet" di
bawah garis wuku atas nya.
Soca normal umum nya tumbuh tepat di atas garis wuku,
tetapi jika soca tumbuh jauh diatas itu (di bagian tengah
ruas - keatas), maka gejala itu dinamakan BROJOL.
Arti BROJOL secara harfiah berarti : "keluar secara kuat".
Indikasi sebutan ini dikarenakan soca/ ranting brojol,
tumbuh keluar secara tidak lazim.
Dinamakan BROJOL PETHUK karena soca brojol itu
bertemu dengan soca normal yang tumbuh dibawah nya.
Artinya, dalam 1 ruas bambu itu , tumbuh 2 soca/ ranting
yang saling berhadapan. Yaitu soca normal di bagian
bawah, & soca brojol di atas nya.
Jika soca brojol tumbuh, tapi soca normal dibawah nya
tidak ada, maka dinamakan brojol biasa.
Bambu brojol pethuk ini dinamakan "soca kembang" ,,
karena jumlah ranting nya yang "banyak" , tumbuh subur
seperti bunga.
Bambu brojol umumnya memiliki khowas energi
MELANCARKAN segala sesuatu yang "tersumbat" ....
Biasanya digunakan untuk melancarkan peredaran darah,
melancarkan keuangan yang macet, melancarkan
persalinan bayi, melancarkan balita yang kesulitan bicara,
& lain lain....
Khusus untuk Bambu BROJOL PETHUK SOCA KEMBANG,
selain memiliki fungsi khowas brojol pada umum nya,
juga memiliki tambahan khowas energi "daya tarik" atau
"magnetisme chemistry" yang lumayan kuat. Daya energi
pengasihan ini bisa digunakan untuk berbagai urusan .