Posts by Logit

Option Explicit

Sub autoFitRows()
If WorksheetFunction.CountA(Range("A1:A100")) = 0 Then
'If ActiveSheet.Columns(1) Is Nothing Then
     MsgBox " No cells found"
     Exit Sub
End If

With ActiveSheet.UsedRange
     .EntireRow.AutoFit
     'On Error Resume Next
     With .Columns(1).SpecialCells(xlConstants)
         'On Error GoTo 0
        If Not .Columns(1) Is Nothing Then
            .RowHeight = .RowHeight + 5
         
         End If
     End With
 End With
 
End Sub

Private Sub CommandButton5_Click()

msg = MsgBox("Would you like to delete " & Me.customername.Value & " Customer", vbYesNo, "Confirm")

If msg = vbYes Then

Application.EnableEvents = False     '<<---- added this line to temporarily suspend the Worksheet_Change Event.

'For delete the customers
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Customer Data")
Dim Selected_Row As Long
Selected_Row = Application.WorksheetFunction.Match(Me.customername.Value, sh.Range("B:B"), 0)
sh.Range("B" & Selected_Row).EntireRow.Delete

Dim sh1 As Worksheet
Set sh1 = ThisWorkbook.Sheets("Master data")
Dim Selected_Row1 As Long
Selected_Row1 = Application.WorksheetFunction.Match(Me.customername.Value, sh1.Range("B:B"), 0)
sh1.Range("B" & Selected_Row1).EntireRow.Delete
ElseIf msg = vbNo Then
Exit Sub

Application.EnableEvents = True          '<<---- turned events back on

End If

Call Clear
End Sub

Sub btnOK_Click()
    Dim ws As Worksheet
    Set ws = Sheet3
    Dim newRow As Long
    
    newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
    
    'The next two lines can be expanded as many times as needed for all the entry fields in your project
    
    ws.Cells(newRow, 1).Value = Sheet2.Range("A2").Value
    ws.Cells(newRow, 2).Value = Sheet2.Range("B2").Value
    ws.Cells(newRow, 3).Value = Sheet2.Range("C2").Value
    ws.Cells(newRow, 4).Value = Sheet2.Range("D2").Value
    ws.Cells(newRow, 5).Value = Sheet2.Range("E2").Value
    
    Sheet2.Range("A2, B2, C2, D2, E2").Value = ""
End Sub

Option Explicit

Sub IsDelivered()
    Dim c As Range
    Dim j As Integer
    Dim rng As Range
    Dim Source As Worksheet
    Dim LDate As String

    LDate = Date
       
    Dim myString As String

    ' Change worksheet designations as needed
    Set Source = ActiveSheet
       
    myString = LDate 'Application.InputBox("Enter A Search")
    Set rng = Application.Intersect(Source.Range("P:P"), Source.UsedRange)

    For Each c In rng.Cells
        If c.Value = LDate Then
            c.Offset(0, 6).Value = "Delivered"
            j = j + 1
        End If
    Next
    'Next c
End Sub

Option Explicit

Sub IsDelivered()
    Dim c As Range
    Dim j As Integer
    Dim Source As Worksheet
    Dim LDate As String

    LDate = Date
       
    Dim myString As String

    ' Change worksheet designations as needed
    Set Source = ActiveSheet
       
    myString = LDate
    
       For Each c In Source.Range("P1:P1000")   ' Do 1000 rows
        If c = myString Then
           c.Offset(0, 6).Value = "Delivered"
           j = j + 1
        End If
    Next c
End Sub