Koreksi cara 1. Atau bagian :
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
Sheets("BPS").Range("A3:A20"), 0), 10)
diganti menjadi :
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").
Coba :
'Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets("MASA").Range("a" & xy)
if worksheetfunction.countif( Sheets("BPS").Range("A3:A20") , ms ) <>
0 then
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),w
Dear P`Ihsan,
Seperti yg sering saya lakukan sbb;
Arahkan mouse pada row/baris yg di tuju, (misal row 27).
Arahkan dan klik mouse pada row 27 tersebut, sampai kolom pada baris
tersebut terblock semua.
Tekan ctrl + shift + tanda panah (down) secara bersamaan pada keyboard.
Jika semua row dan colum
saya coba buat rumus seperti ini
Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets("MASA").Range("a" & xy)
hasil = Application.Index(Sheets("BPS").Range("A3:J20"),
Application.Match(ms, Sheets("BPS").Range("A3:A20), False), 10)
If IsError(hasil) Then hasil = "" Else
Jawaban yang komplit.
Terima kasih mas Aji.
Anwar
Blok kolom acuan nya, edit, go to (ctrl+g), special, blanks, maka row kosong
otomatis terselect.
Tinggal delete deh
-Original Message-
From: IHSAN NURDIN
Sender: belajar-excel@yahoogroups.com
Date: Mon, 29 Oct 2012 21:43:33
To: belajar-excel@yahoogroups.com
Reply-To: belajar-excel@yahoog
DH.
Para rekan milis saya mau tanya. Saya punya data ribuan baris. Bagaimana cara
dengan cepat saya menghapus row yang kosong.
TK banyak sebelumnya.
salam excel.
Hi Luthfi,
Menurut saya tidak perlu memakai macro karena cukup memakai fungsi absolut.
Contoh : pada cell E21 mempunyai formula =RAB!E6 diganti menjadi =RAB!$E$6.
Dengan ditambahkan fungsi absolut maka dicopy kemanapun akan mengacu ke kolom
yg sama.
Untuk format, saya rasa yg tercepat adalah bel
Bisakah file xls yg error 'Unable to read file" direstore lagi ? Adakah yang
tau caranya ?
Size 8Mb skrg menjadi 0 Mb
Mohon infonya
Terima kasih
Heru Safrudin
Ops, yang dicopy belum sampai kolom Y.
Baris ini :
range("a2:*a*" & lrows).copy
diubah menjadi :
range("a2:*y*" & lrows).copy
Maaf ya...
Wassalam,
Kid.
2012/10/30 Mr. Kid
> range("a2:a" & lrows).copy
Mungkin begini :
public Sub excel2text()
'
' excel2text Macro
'
'
'Range("A2:Y16").Select' Barisnya selalu tidak tetap
'Selection.Copy
'jadi :
dim lRows as long
lrows=worksheetfunction.counta(activesheet.range("b1").entirecolumn)
range("a2:a" & lrows).copy
'Applicat
Pada sheet terproteksi dimanapun, urutan prosesnya : (misal workbook di
simpan dalam variabel wbkX)
1. buka workbook kalau belum dibuka, atau aktifkan
>> biasanya berbunyi :
Set wbkX = blabla
2. unprotect sheet di workbook yang baru dibuka
>> biasanya berbunyi :
wbkX.Sheets("nama sheetnya").unprot
Mantap sekali nih formula nya Kang Ghozi,
Beda dengan formula bodong sayah.
Hehehe
Ijin copas juga formulanya
Best Regards,
Gilang Sedar
-Original Message-
From: ghozi alkatiri
Sender: belajar-excel@yahoogroups.com
Date: Mon, 29 Oct 2012 16:44:46
To: belajar-excel@yahoogroups.com
Repl
Dear para master, mohon bantuannya sy mempunyai pertanyaan bagaimana cara
memasukkan rumus vlookup pada userform, misalnya saya punya dua textbox dan
satu combobox, apabila di combobox saya masukkan text otomatis di textbox 1 dan
2 akan terisi data berdasarkan data pada worksheets, maaf gak bisa
Dear BeExceller,
Mr. Kid
Terima kasih atas berkenan jawabannya dan akan saya coba.
Btw, bagaimana cara memproteksi file database sebagaimana pertanyaan No. 4.
Jika tetap menggunakan rumus : Sheets("DATABASE").Protect "protect", dimana
posisi penempatannya dan apa ada yang harus ditambahkan jika f
15 matches
Mail list logo
