Скачать или смотреть Delete first line if barcode scanned a second time in Excel

Delete first line if barcode scanned a second time in Excel.
All templates with code are available for purchase for $50 USD
https://www.easyexcelanswers.com/temp...

Click this link to check out my one-on-one training http://www.calendly.com/easyexcelanswers

For more help visit my website www.easyexcelanswers.com or email me at [email protected].

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting http://www.calendly.com/easyexcelanswers

Are you struggling to update your Microsoft SQL Server data?
I recommend using well-known Excel to update and manage your data in SQL Server using the SQL Spreads Excel add-in.
Click https://sqlspreads.com/?pid=barbhende... to find out how SQL Spreads works best for non-technical end users and download our free 14-day trial. You will get two months free when purchasing an annual subscription using our link.

I am able to provide online help on your computer at a reasonable rate.

https://www.amazon.com/shop/barbhende...

I use a Blue condenser Microphone to record my videos, here is the link
https://amzn.to/37gyyGa

Check out Crowdcast for creating your webinars
https://app.linkmink.com/a/crowdcast/83


I use Tube Buddy to help promote my videos
Check them out
https://www.Tubebuddy.com/easyexcelan...

Follow me on Facebook
  / easyexcel.answers  

TWEET THIS VIDEO

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language
http://www.youtube.com/timedtext_cs_p...

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.

How to insert VBA code in Excel    • How to insert VBA code in Excel  

Sub deletesecond()
Dim barcode As String
Dim rng As Range
Dim rownumber, fstrow As Long



barcode = ActiveSheet.Cells(1, 2)
If barcode(not equal to) "" Then
'search for barcode
Set rng = ActiveSheet.Range("a:a").Find(what:=barcode, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
searchdirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rng Is Nothing Then
restart:
ActiveSheet.Range("a:a").Find("").Select
ActiveCell.Value = barcode
ActiveCell.NumberFormat = "@"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Date & " " & Time
ActiveCell.NumberFormat = "d/m/yyyy h:mm AM/PM"
ActiveSheet.Cells(1, 2) = ""
GoTo ende
Else
fstrow = rng.Row
ActiveSheet.Cells(fstrow, 1).Select
ActiveCell.EntireRow.Delete
GoTo restart
End If
End If
ende:
ActiveSheet.Cells(1, 2).Select
End Sub

code for the worksheet
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B1")) Is Nothing Then
Call deletesecond
Application.EnableEvents = True
End If
End Sub