Track waste disposal bins in Excel

Track waste disposal bins in Excel. Track location and billing for waste bins.
Free templates and templates with code are available for purchase for $50 USD
https://www.easyexcelanswers.com/temp...
Addition Templates may be available on request

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  
*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  

code
Private Sub CommandButton1_Click()
Dim rownumber As Long
Dim unitn As String
Dim Customer As String

unitn = Sunitn.Text

Set rng = Sheet1.Columns("A:A").Find(What:=unitn, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rng Is Nothing Then
MsgBox "Equipment number found"
GoTo ende
Else
rownumber = rng.Row
Me.Customer = Sheet1.Cells(rownumber, 2).Value
Me.Location = Sheet1.Cells(rownumber, 3).Value
End If
ende:
End Sub

Private Sub CommandButton2_Click()
Dim rownumber As Long
Dim lastrow As Long
Dim descp As String
Dim name As String
unitn = Sunitn.Text

Set rng = Sheet1.Columns("A:A").Find(What:=unitn, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
rownumber = rng.Row
Sheet1.Cells(rownumber, 2).Value = Me.Customer
Sheet1.Cells(rownumber, 3).Value = Me.Location

Sheet2.Activate
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheet2.Cells(lastrow, 4).Value = Me.Sunitn
Sheet2.Cells(lastrow, 2).Value = Me.Customer
Sheet2.Cells(lastrow, 3).Value = Me.Location
Sheet2.Cells(lastrow, 1).Value = Date & " " & Time
Sheet2.Cells(lastrow, 1).NumberFormat = "m/d/yyyy h:mm AM/PM"
ende:
Sheet1.Activate
End Sub

Private Sub CommandButton1_Click()
Dim unitn As String
Dim rownumber, x As Long
Dim rowN, y As Long
Dim name As String
Dim rng, rng2 As Range
unitn = Runitn.Text

Set rng = Sheet1.Columns("A:A").Find(What:=unitn, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rng Is Nothing Then
MsgBox "Equipment number found"
Else
rownumber = rng.Row
Sheet1.Cells(rownumber, 3).Value = Location
End If

Sheet2.Activate 'operation record
Set rng2 = Sheet2.Columns("D:D").Find(What:=unitn, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rng2 Is Nothing Then
MsgBox "Equipment number found"

Else
rowN = rng2.Row
Sheet2.Cells(rowN, 5).Value = Me.landfill
Sheet2.Cells(rowN, 6).Value = Me.Tonns
Sheet2.Cells(rowN, 7).Value = Date & " " & Time
Sheet2.Cells(rowN, 7).NumberFormat = "m/d/yyyy h:mm AM/PM"
End If
Sheet1.Activate
End Sub

Private Sub CommandButton2_Click()
Dim unitn As String
Dim rownumber, x As Long
Dim rowN, y As Long
Dim name As String
Dim rng, rng2 As Range
x = 2
unitn = Runitn.Text
Set rng = Sheet1.Columns("A:A").Find(What:=unitn, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rng Is Nothing Then
MsgBox "Equipment number found"
Else
rownumber = rng.Row
Me.Customer = Sheet1.Cells(rownumber, 2).Value
Me.Location = Sheet1.Cells(rownumber, 3).Value
'Sheet1.Cells(rownumber, 2).Value = Customer
'Sheet1.Cells(rownumber, 3).Value = Location
End If
End Sub