Ada , 2 buku karangan Yudhi Wicaksono. Buku pertama membahas belajar VBA/MAcro
, dan kedua contoh2 Macro.
To: belajar-excel@yahoogroups.com
From: depi.hari_ya...@yahoo.co.id
Date: Tue, 10 Jan 2012 00:58:29 +0800
Subject: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP &
RUJUKAN)
ysh. Master Excel.
salam semoga dalam keadaan sehat dan prima selalu... Amiin.
terima kasih atas macronya walaupun pusing... maklum masih awam.
sy merubah sedikit supaya nomor tampil otomatis pada saat menginput tanggal, eh
malah jadi berantakan (terlampir)
ma'af yang udah membantu n minta solusinya lagi ya ...!
satu lagi tanpa mengurangi semangat buat belajar, mohon infonya dong kira2 ada
gak buku belajar macro ..?
salam
dep_har
________________________________
Dari: o' Seno <ontosen...@gmail.com>
Dikirim: Minggu, 8 Januari 2012 0:32
Siap Boss !!...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long, JmlBar As Range
LastRow = Cells(Cells.Rows.Count, 12).End(xlUp).Row
Set JmlBar = Cells(LastRow, 2).Resize(1, 11)
Application.EnableEvents = False
If Target.Column = 2 Then
If Target.Row > 5 Then
If Target.Row < LastRow Then
If Target.Cells.Count = 1 Then
If Not Target.Value = vbNullString Then
If Target.Value - 1 = Target(0, 1) Then
JmlBar.Offset(-1, 0).Insert shift:=xlDown
Target(0, 7).Resize(1, 5).Copy
Target(1, 7).PasteSpecial xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False
Target(1, 2).Activate
End If
ElseIf Target.Value = vbNullString Then
Target(1, 1).Resize(1, 11).Delete shift:=xlUp
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
'-------------
2012/1/7 i Haps <hapsari.stlizb...@gmail.com>
Seno, masih online ?!? Maju coy ! blum ada yg ambil tuh...
