Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()

    Dim Sa As Integer, S1 As Double
    Dim S2 As Double, S3 As Date
    
    With Worksheets("Sheet1")
        Sa = 2
        S1 = .Cells(Sa, 4).Value
        S2 = .Cells(Sa, 5).Value
        S3 = .Cells(Sa, 6).Value
        
        If .Cells(Sa, 4).Value = "" Then
            .Cells(Sa, 1).Value = ""
            .Cells(Sa, 2).Value = ""
            .Cells(Sa, 3).Value = ""
            .Cells(Sa, 4).Value = TB1.Value
            .Cells(Sa, 5).Value = TB2.Value
            .Cells(Sa, 6).Value = TB3.Value
        Else
            .Cells(Sa, 1).Value = S1
            .Cells(Sa, 2).Value = S2
            .Cells(Sa, 3).Value = S3
            .Cells(Sa, 4).Value = TB1.Value
            .Cells(Sa, 5).Value = TB2.Value
            .Cells(Sa, 6).Value = TB3.Value
        End If
    End With
End Sub

Code: Select all

.Cells(Sa, 3).NumberFormat = "mm/dd/yyyy"
.Cells(Sa, 6).NumberFormat = "mm/dd/yyyy"