Excel Forum

Code: Select all

Private Sub Newform_Click()
    'Clear the data
    TbDesIncurred.Value = ""
    TbDesIncurredDesc.Value = ""
    TbDesExclusion1.Value = ""
    TbDesExclusion2.Value = ""
    TbDesExclusion3.Value = ""
    TbDesExclusion4.Value = ""
    Sheets("Forms").Range("a2,a6").ClearContents
End Sub

Code: Select all

Private Sub Newform_Click()
    'Clear the data
    Dim ctl As Control
     For Each ctl In Me.Controls
         Select Case TypeName(ctl)
            Case "TextBox"
              ctl.Text = ""
           Case "ComboBox"
             ctl.Value = ""
     End Select
Next ctl
    
    Sheets("Forms").Range("A2:F4,A6:F8").ClearContents
End Sub

Code: Select all

Private Sub Preview_Click()


'Define abbreviations for worksheets

    Dim WF As Worksheet
    Set WF = Worksheets("Forms")

'Fill exclusions
    Dim IncurredExpenses As String
    Dim IncurredExpensesThai As String
    Dim ExclusionsText As String
    Dim ExclusionsTextThai As String
    Dim AmountCell As Range
    If TbDesIncurred = "" Then Exit Sub
    IncurredExpenses = "* Incurred expenses prior to the procedure as of " & TbDesIncurred.Text & _
    " in the amount of " & TbDesIncurredDesc.Text & " Thai Baht"
    
    IncurredExpensesThai = "* ค่าใช้จ่ายที่เกิดขึ้นก่อนทำหัตถการจนถึงวันที่ " & TbDesIncurred.Text & _
    " เป็นจำนวนเงินทั้งสิ้นประมาณ " & TbDesIncurredDesc.Text & " บาท"
    
    
        If TbDesExclusion1 <> "" Then
                  ExclusionsText = ExclusionsText & TbDesExclusion1 & Chr(10)
        End If
        
        If TbDesExclusion2 <> "" Then
                  ExclusionsText = ExclusionsText & "* " & TbDesExclusion2 & Chr(10)
        End If
        
        If TbDesExclusion3 <> "" Then
                  ExclusionsText = ExclusionsText & "* " & TbDesExclusion3 & Chr(10)
        End If

        If TbDesExclusion4 <> "" Then
                  ExclusionsText = ExclusionsText & "* " & TbDesExclusion4 & Chr(10)
        End If
    
    If TbDesIncurredDesc <> 0 Then
       ' WF.Range("Part1Exclusions") = IncurredExpenses & vbCrLf & ExclusionsText
         WF.Range("Part1Exclusions2") = IncurredExpenses & Chr(10) & "* " & ExclusionsText
        WF.Range("Part2ExclusionsThai") = IncurredExpensesThai & Chr(10) & "* " & ExclusionsText
   ' Else
       ' WF.Range("Part1Exclusions") = ExclusionsText
   '     WF.Range("Part1Exclusions2") = ExclusionsText
    '    WF.Range("Part1Exclusions3") = ExclusionsText
    '    WF.Range("Part2Exclusions") = ExclusionsText
    '    WF.Range("Part2ExclusionsThai") = ExclusionsText
    End If
    
    Worksheets("Forms").Activate
    
    End Sub