Permisi gan... mau tanya adakah kode macro atau vba untuk membuat tombol otomatis export ke pdf?
Terjawab oleh Caton
Lihat Jawaban terkaitCoba modifikasi script modul Sheet1 (FORM) menjadi:
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Not Intersect(Target, [B9, B17, B19]) Is Nothing Then If Len(Target) Then Dim xlCell As Range Application.EnableEvents = False For Each xlCell In Sheet2.Range("B5:B15") If InStr(1, Target, xlCell) Then xlCell.Offset(ColumnOffset:=1).Value = "ADA" End If Next Application.EnableEvents = True End If End If End If End Sub
Untuk permulaan, range C5:C15 pada tabel data Sheet2 dibuat menjadi TIDAK ADA dahulu... Atau bisa juga dimodifikasi menjadi sebagai berikut:
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Not Intersect(Target, [B9, B17, B19]) Is Nothing Then If Len(Target) Then Dim xlCell As Range, xlTarget As Range Application.EnableEvents = False Sheet2.Range("B5:B15").Offset(ColumnOffset:=1).Value = "TIDAK ADA" For Each xlCell In [B9, B17, B19] For Each xlTarget In Sheet2.Range("B5:B15") If InStr(1, xlCell, xlTarget) Then xlTarget.Offset(ColumnOffset:=1).Value = "ADA" End If Next Next Application.EnableEvents = True End If End If End If End Sub
Demikian... ;)
· fredi menyukai ini.