fakhrur
10-13-2015, 09:19 PM
Range H12 is from index formula =INDEX(activa!$C$2:$CB$2;$F$11) and how if some range are hidden on paste, here is my code
Sub DisplayInput()
Dim K As Integer
K = Range("H12").Value
Application.ScreenUpdating = False
Sheets("Awal").Range("C13:F22").Value = vbNullString
Sheets("Materi").Range("B5").Offset(0, K).Resize(10, 4).Copy
Sheets("Awal").Range("C13").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("C14").Select
Application.ScreenUpdating = True
End Sub
Sub DisplayInput()
Dim K As Integer
K = Range("H12").Value
Application.ScreenUpdating = False
Sheets("Awal").Range("C13:F22").Value = vbNullString
Sheets("Materi").Range("B5").Offset(0, K).Resize(10, 4).Copy
Sheets("Awal").Range("C13").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("C14").Select
Application.ScreenUpdating = True
End Sub