5 Messages
Digest #3589
Messages
Mon Oct 5, 2015 10:20 am (PDT) . Posted by:
"Ivan Sebastian" layonardo
hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuk tombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaiki supaya jadi sempurna...file saya lampirkan... thx
Mon Oct 5, 2015 5:34 pm (PDT) . Posted by:
"SUYONO"
Pagi Pak Ivan
Coba ditambahin fungsi counta dan ditambah 8 sebagai colom pertama pengisian data.
Sub Rectangle6_Click()
Range("h2:ae8").ClearContents
Application.ScreenUpdating = False
Dim lastRow As Long, i As Long, j As Long
Dim jml As Integer
lastRow = 597
j = 1
For x = 2 To 7
For i = 1 To lastRow
If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then
jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8), Cells(x, 31)))
jml = jml + 8
Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml)
j = j + 1
End If
Next i
Next x
Application.ScreenUpdating = True
End Sub
Salam
Yono
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuk tombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaiki supaya jadi sempurna...file saya lampirkan... thx
Coba ditambahin fungsi counta dan ditambah 8 sebagai colom pertama pengisian data.
Sub Rectangle6_Click()
Range("h2:ae8").ClearContents
Application.ScreenUpdating = False
Dim lastRow As Long, i As Long, j As Long
Dim jml As Integer
lastRow = 597
j = 1
For x = 2 To 7
For i = 1 To lastRow
If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then
jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8), Cells(x, 31)))
jml = jml + 8
Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml)
j = j + 1
End If
Next i
Next x
Application.ScreenUpdating = True
End Sub
Salam
Yono
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuk tombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaiki supaya jadi sempurna...file saya lampirkan... thx
Mon Oct 5, 2015 5:37 pm (PDT) . Posted by:
"Walsoyo"
Dear BeExceller,
tolong dibantu bagaimana mengganti formula pada file terlampir agar formula dapat ditarik kebawah. Terimakasih atas bantuannya
tolong dibantu bagaimana mengganti formula pada file terlampir agar formula dapat ditarik kebawah. Terimakasih atas bantuannya
Mon Oct 5, 2015 7:36 pm (PDT) . Posted by:
"Nang Agus"
Coba gunakan:
=SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
Jika komputer regional setting bahas inggris ubah ; menjadi ,
jangan lupa angka di E2 dan di E9 diubah menjadi text jangan diisi numerik
2015-10-06 7:32 GMT+07:00 Walsoyo soyomakmur@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear BeExceller,
>
> tolong dibantu bagaimana mengganti formula pada file terlampir agar
> formula dapat ditarik kebawah. Terimakasih atas bantuannya
>
>
>
=SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
Jika komputer regional setting bahas inggris ubah ; menjadi ,
jangan lupa angka di E2 dan di E9 diubah menjadi text jangan diisi numerik
2015-10-06 7:32 GMT+07:00 Walsoyo soyomakmur@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear BeExceller,
>
> tolong dibantu bagaimana mengganti formula pada file terlampir agar
> formula dapat ditarik kebawah. Terimakasih atas bantuannya
>
>
>
Mon Oct 5, 2015 7:54 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pinjem formulany mas Nang yang berbunyi :
=SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
tampak bahwa kasusnya :
1. mencocokkan inputan dengan data sesuai bunyi awalan inputan :
(E2=LEFT($A$3:$A$10;LEN(E2)))
2. formula dikhususkan untuk inputan yang ada isinya
(LEN(E2)>0)
3. melakukan Sum terhadap suatu data
($B$3:$B$10)
4. kriteria 1 dan 2 harus terpenuhi
*
Tampaknya bisa disusun sebagai berikut :
3 dan 4. melakukan Sum berkriteria. Artinya bisa menggunakan SumIF atau
SumIFs
SumIF( $B$3:$B$10 )
2. formula dikhususkan untuk inputan yang ada isinya. Artinya perlu
pengkondisian :
IF( LEN(E2)>0 ; benar , salah )
atau cukup dengan : (karena di Excel, nilai bukan 0 adalah setara TRUE)
IF( LEN(E2) ; benar ; salah )
yang kira-kira setelah dimasukkan yang nomor 3 dan 4 menjadi :
IF( LEN(E2) ; SumIF( $B$3:$B$10 ) ; "" ) -> misal kalau
inputan tidak ada isinya, cell hasil diisi nullstring
1. kriteria mencocokkan mengikuti awalan inputan data
$A$3:$A$10 ; E2 & "*"
yang kalau dimasukkan sebagai kriterianya SumIF akan menjadi :
IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; ""
)
Maka bunyi formula akhirnya adalah :
=IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; "" )
Jangan lupa pesan mas Nang yang berbunyi :
Jika komputer regional setting bahasa inggris ubah ; menjadi ,
;)
Wassalam,
Kid
2015-10-06 9:36 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Coba gunakan:
> =SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
> Jika komputer regional setting bahas inggris ubah ; menjadi ,
>
> jangan lupa angka di E2 dan di E9 diubah menjadi text jangan diisi numerik
>
> 2015-10-06 7:32 GMT+07:00 Walsoyo soyomakmur@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear BeExceller,
>>
>> tolong dibantu bagaimana mengganti formula pada file terlampir agar
>> formula dapat ditarik kebawah. Terimakasih atas bantuannya
>>
>>
>
>
=SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
tampak bahwa kasusnya :
1. mencocokkan inputan dengan data sesuai bunyi awalan inputan :
(E2=LEFT($A$3:$A$10;LEN(E2)))
2. formula dikhususkan untuk inputan yang ada isinya
(LEN(E2)>0)
3. melakukan Sum terhadap suatu data
($B$3:$B$10)
4. kriteria 1 dan 2 harus terpenuhi
*
Tampaknya bisa disusun sebagai berikut :
3 dan 4. melakukan Sum berkriteria. Artinya bisa menggunakan SumIF atau
SumIFs
SumIF( $B$3:$B$10 )
2. formula dikhususkan untuk inputan yang ada isinya. Artinya perlu
pengkondisian :
IF( LEN(E2)>0 ; benar , salah )
atau cukup dengan : (karena di Excel, nilai bukan 0 adalah setara TRUE)
IF( LEN(E2) ; benar ; salah )
yang kira-kira setelah dimasukkan yang nomor 3 dan 4 menjadi :
IF( LEN(E2) ; SumIF( $B$3:$B$10 ) ; "" ) -> misal kalau
inputan tidak ada isinya, cell hasil diisi nullstring
1. kriteria mencocokkan mengikuti awalan inputan data
$A$3:$A$10 ; E2 & "*"
yang kalau dimasukkan sebagai kriterianya SumIF akan menjadi :
IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; ""
)
Maka bunyi formula akhirnya adalah :
=IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; "" )
Jangan lupa pesan mas Nang yang berbunyi :
Jika komputer regional setting bahasa inggris ubah ; menjadi ,
;)
Wassalam,
Kid
2015-10-06 9:36 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Coba gunakan:
> =SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
> Jika komputer regional setting bahas inggris ubah ; menjadi ,
>
> jangan lupa angka di E2 dan di E9 diubah menjadi text jangan diisi numerik
>
> 2015-10-06 7:32 GMT+07:00 Walsoyo soyomakmur@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear BeExceller,
>>
>> tolong dibantu bagaimana mengganti formula pada file terlampir agar
>> formula dapat ditarik kebawah. Terimakasih atas bantuannya
>>
>>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar