Snasui Excel Forum

Code: Select all

Sub Button2_Click()
    Dim rAll As Range, r As Range
    Set rAll = Sheets("Sheet1").Cells.SpecialCells(xlCellTypeConstants, 1)
    For Each r In rAll
        Sheets("002").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) _
            .Resize(1, 3) = r.Offset(0, -1).Resize(1, 3).Value
    Next r
End Sub

Code: Select all

Sub Button1_Click()
    Dim iRet As Integer
    Dim strPrompt As String
    Dim strTitle As String
 
    ' Promt
    strPrompt = "Ask Your Question Here, OK?"
 
    ' Dialog's Title
    strTitle = "My Tite"
 
    'Display MessageBox
    iRet = MsgBox(strPrompt, vbYesNo, strTitle)
 
    ' Check pressed button
    If iRet = vbNo Then
        MsgBox "NO!"
    Else
        MsgBox "Yes!"
        Sheets("Sheet2").Select
    End If
End Sub