@Chris212 ...supaya tidak menjadi error dan ada pesan " Unit / Kegiatan - Harus di isi "
apkah ada scriptnya ?
iya ada
@Chris212 ...supaya tidak menjadi error dan ada pesan " Unit / Kegiatan - Harus di isi "
apkah ada scriptnya ?
iya ada
setelah with bSh
tambahkan :
... For Each sel In .Range("I2:I" & b) If sel = "" Or Range("b" & sel.Row) = "" Then MsgBox "semua baris di kolom unit dan kolom kegiatan harus diisi" Exit Sub End If Next ...
@manweljs_
master untuk hasil harga bisakah di script untuk rasionya
tapi dalam kondisi hasil harga yang di script itu yang tidak terjumlah oleh hasil harga lainya ( hasil harga terjumlah itu = total hasil harga )
coba cek lampiran
@manweljs_
setelah saya lihat
saya masih bingung untuk script ini + itu berfungsi untuk apa ?
apakah mungkin bisa menggunakan angka 2 / 2 keatas misalkan 3 , 4 dan seterusnya ?
maaf jika pertanyaan saya mungkin aneh , karena saya ingin tau script yg digunakan berfungsi untuk apa ( heheeheh )
o = WorksheetFunction.CountIfs(rngA, Range("A" & i), rngB, Range("B" & i))
p = WorksheetFunction.CountIfs(Range("A2:A" & b), Range("A" & i), Range("B2:B" & b), Range("B" & i))
If o > 1 And o = p Then
rasio = WorksheetFunction.SumIfs(rngO, rngA, Range("A" & i), rngB, Range("B" & i)) / Range("r" & i)
ElseIf o = 1 And p = 1 Then
rasio = Range("O" & i) / Range("R" & i)
End If
If Err.Number Then rasio = ""
Err.Clear
End Function
saya jelaskan pakai formula aja ya. cek kolom AA sampai AC, fungsi Rasio tersebut prosesnya sama dengan formula yang saya gunakan di file terlampir
@manweljs_
setelah saya coba coba , saya mulai paham dari script > 1
saat saya menambahkan script untuk kolom T-W
berjalan normal , pertanyaan saya
, apakah ini efek dari script Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("N1"), Target) Is Nothing Then Call Bbse 'tuslah
If Not Intersect(Range("S1"), Target) Is Nothing Then Call Bbse ' rasio
End Sub
setelah saya coba coba , saya mulai paham dari script > 1
kalo > 1 artinya ada alat yang sama pada tanggal yang sama, gitu doank
...script yg saya tambahkan di T-W apkah script itu sudah benar ?...
kalo menurut anda hasilnya sudah benar berarti sudah benar
@Chris212 ...saat saya memilih tuslah ( saya buat mode list ) macro saya jalan otomatis padhal belum saya klik run, apakah ini efek dari script...
betul, event Worksheet_Change tersebut di hapus aja kalo anda ingin makronya jalan setelah klik tombol run.
sipp , master
Terima kasih sudah dibantu selama ini
Terima Kaish banyak
@manweljs_
Mau tanya lagi , heheehe
Sub SBLE() Dim a As Long, b As Long, r As Long, aSh As Worksheet, bSh As Worksheet Set aSh = Worksheets("HARGA_KONTRAK") Set bSh = Worksheets("KEMAJUAN_SBLE") a = aSh.Cells(Rows.Count, "B").End(xlUp).Row b = bSh.Cells(Rows.Count, "I").End(xlUp).Row With bSh For Each sel In .Range("A2:A" & b) If sel = "" Then MsgBox "TANGGAL TIDAK BOLEH KOSONG" Exit Sub End If Next For Each sel In .Range("B2:B" & b) If sel = "" Then MsgBox "UNIT TIDAK BOLEH KOSONG" Exit Sub End If Next For Each sel In .Range("I2:I" & b) i = sel.Row r = aSh.Range("B3:B" & a).Find(sel, , xlValues, xlWhole).Row .Cells(i, 11) = aSh.Cells(r, 8) .Cells(i, 12) = aSh.Cells(r, 9) .Cells(i, 13) = aSh.Cells(r, 4)
runtime error 91 object variable or with block variable not set
itu kenapa ya ?
di r = aSh.Range("B3:B" & a).Find(sel, , xlValues, xlWhole).Row
@Chris212 runtime error 91 object variable or with block variable not set
itu kenapa ya ?
di r = aSh.Range("B3:B" & a).Find(sel, , xlValues, xlWhole).Row
mungkin nilai sel yang dicari tidak ditemukan sehingga nilai r jadi tidak ada
@manweljs_
jika dalam kasus seperti ini
saya ada 2 workbook dengan posisi data sama
book 1 sudah dengan rumus yg benar + berjalan normal
saya copas ke ke book 2
saat di jalankan dia error , kemungkinan yg salah ada dimana ?
semua sudah disesuaikan ( yg diganti hanya nama sub ... () ) yg book 1 sble dan book 2 stwa
data dalam posisi sama yg bada hnya jumlah sheet ( sumber data )
@Chris212 saat di jalankan dia error , kemungkinan yg salah ada dimana ?
tanpa melihat sendiri filenya, saya gak tau salahnya ada dimana. yang jelas untuk error diatas penyebabnya adalah nilai r tidak ada karena nilai sel tidak ditemukan