Private Sub CommandButton2_Click()
If Me.ComboBox1 = Database.Range("C2") And Me.ComboBox2 = Database.Range("C3") Then
Database.Range("A2:C2").Copy
Database.Range("A100:C100").Insert
Database.Range("A3:C3").Copy
Database.Range("A2:C2").PasteSpecial
Database.Range("A100:C100").Copy
Database.Range("A3:C3").PasteSpecial
Database.Range("A100:C100").clear
Database.Range("C2:C81").Sort Key1:=Database.Range("C2"), Order1:=xlAscending, Header:=xlYes
End If
End Sub
I need this above statement to be able til work throughout the sheet - range C2:C81
If Me.ComboBox1 = Database.Range("C2") And Me.ComboBox2 = Database.Range("C3") Then
Database.Range("A2:C2").Copy
Database.Range("A100:C100").Insert
Database.Range("A3:C3").Copy
Database.Range("A2:C2").PasteSpecial
Database.Range("A100:C100").Copy
Database.Range("A3:C3").PasteSpecial
Database.Range("A100:C100").clear
Database.Range("C2:C81").Sort Key1:=Database.Range("C2"), Order1:=xlAscending, Header:=xlYes
End If
End Sub
I need this above statement to be able til work throughout the sheet - range C2:C81