Snasui Excel Forum

Code: Select all

If WorksheetFunction.Count (Range("C9,C10,D10")) >3 Then
    MsgBox ("กรุณากรอกข้อมูล")
    End If

Code: Select all

If range("c9")="" or range("c10")="" or range("d10")="" then
MsgBox ("กรุณากรอกข้อมูล")
End If

Code: Select all

Sub Paste()
    Dim irRange As Variant
    Dim i As Integer, rw As Long
    irRange = Array("C9", "C10", "d10", "F10", "C11", "g11", _
        "C12", "C14", "G14", "L14", "C15", "G15", _
        "L15", "C16", "G16", "L16", "D17", "J17", "C18", "E18", "G18", "I18", "K18", "C19", "G19", "C20", "F20", "J20", "L20", _
        "C21", "F21", "J21", "C22", "E22", "H22", "J22", "C24", "F24", "J24", "E25", "G25", "I25", "K25", "e26", "G26", "i26", "k26", "b29", "b30", "b31", "b32", "b33", _
        "A40", "A47", "C51", "E51", "H51", "C66", "j66", _
        "A55", "C55", "D55", "G55", "j55", _
        "A57", "C57", "D57", "G57", "j57", _
        "A59", "C59", "D59", "G59", "j59", _
        "A61", "C61", "D61", "G61", "j61", _
        "A63", "C63", "D63", "G63", "j63", _
        "A65", "C65", "D65", "G65", "j65")
    rw = Worksheets("Database").Range("a" & Rows.Count).End(xlUp).Row + 1
    For i = 0 To UBound(irRange)
        With Worksheets("Database")
            .Range("a" & rw).Offset(0, i).Value = Sheets("Input").Range(irRange(i)).Value
        End With
    Next i
    If Range("c9") = "" Or Range("c10") = "" Or Range("d10") = "" Or Range("f10") = "" Or Range("C11") = "" Or Range("G11") = "" Or Range("c12") = "" Or Range("c14") = "" Or Range("g14") = "" Or Range("l14") = "" Or Range("c15") = "" Or Range("g15") = "" Or Range("l15") = "" Or Range("g16") = "" Then
    MsgBox ("กรุณาเติมข้อมูล*ให้ครบ")
    End If
End Sub