asyamonique
Well-known Member
- Joined
- Jan 29, 2008
- Messages
- 1,286
- Office Version
- 2013
- Platform
- Windows
Good Day,
My worksheet has datas all the way down with 9 columns. (a:i)
Cloumn A= Year
Cloumn B= Area
Cloumn C= Date
I've placed 3 comboboxes with related those columns given above.
Is it possible to copy and paste the datas from one sheet to another sheet for those comboboxes related datas whenever selected?
Main Data located at named Reports
Destination worksheet named Viewer
Actualy I do that way by below code with 1 combobox but with 3 comboboxes I will need your help.
Many thanks.
My worksheet has datas all the way down with 9 columns. (a:i)
Cloumn A= Year
Cloumn B= Area
Cloumn C= Date
I've placed 3 comboboxes with related those columns given above.
Is it possible to copy and paste the datas from one sheet to another sheet for those comboboxes related datas whenever selected?
Main Data located at named Reports
Destination worksheet named Viewer
Actualy I do that way by below code with 1 combobox but with 3 comboboxes I will need your help.
Many thanks.
Code:
Sub Button9_Click()Application.ScreenUpdating = False
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With Range("A" & i)
If .Value = Range("ae1").Value Then
.Offset(, 1).Resize(, 9).Copy
Range("s" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
End With
Next i
Application.ScreenUpdating = True
Range("Q1").Select
ThisWorkbook.Save
End Sub
Last edited: