Here is My Code, Please Help, How to fix it ...
Private Sub ComboBox1_Change()
Dim wsDest As Worksheet
Dim wsSource As Worksheet
Dim rngData As Range
Dim baris As Integer
Dim kolom As Integer
baris = Range("G17").Value
kolom = Range("M17").Value
Set wsDest = Worksheets("Displaypage")
Set wsSource = Worksheets("Source")
Set rngData = wsSource.Range("a1:c5")
wsDest.Range("a1:c5").ClearContents
If baris = -1 Then Exit Sub 'Nothing selected
rngData.Cells(1).Offset(baris, kolom).Resize(5, 3).Copy
wsDest.Range("a1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Bookmarks