Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Nou pe simpatie:
luiza69 la Simpatie.ro
 | Femeie
24 ani
Bucuresti
cauta Barbat
27 - 75 ani |
|
|
Mrrrr's Forum (VIEW ONLY)ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
Add this to your Sheet's code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
If Target.Address = "$A$1" Then
If Target <> "" Then
With Range("B1:B" & LastRow)
Set bc = .Find(Target, lookat:=xlWhole)
If Not bc Is Nothing Then
Range(Cells(bc.Row, 2), Cells(bc.Row, 5)).Interior.ColorIndex = 6
Cells(bc.Row, 6) = "Present"
Cells(bc.Row, 7) = Now
Else: MsgBox "Barcode Not Found"
End If
End With
End If
End If
End Sub |
This will highlight rows B-E, insert Present in row F and date and time in column G if value in A1 is found in column B.
Source:
https://www.computing.net/answers/offic ... 21520.html
Credits: DerbyDad03
_______________________________________
|
|
| |
|
