Copy specific row Column (C) and show in ROW 2, COLUMN (C). very simple will have attachment with pics and codes. Thank You.
Code Beneath here
-----------------------------------------------------------------------------------------------
Code Beneath here
-----------------------------------------------------------------------------------------------
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim dccolumn As Integer
Dim dcvalue As String
dccolumn = ActiveCell.Column
dcvalue = ActiveCell.Value
If Application.Intersect(ActiveCell, [headers]) Is Nothing Then
If ActiveCell.Value <> "" Then
ActiveSheet.ShowAllData
ActiveSheet.ListObjects("Table134").Range.AutoFilter Field:=5, Criteria1:=Selection.Text
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim rownumber As Integer
rownumber = ActiveCell.Row
If Application.Intersect(ActiveCell, [headers]) Is Nothing Then
If ActiveCell.Value <> "" Then
Range("a1:i5000").Interior.ColorIndex = xlNone
Range("a" & rownumber & ":i" & rownumber).Interior.Color = RGB(255, 255, 9)
End If
End If
End Sub
Attachments
Last edited by a moderator: