Active workbook msgbox

[Vbanoob98]

Hey guys,

I have the following code that copies a cell from the active worksheet to the mentioned one

inarr = Range("A1:J57")
With Workbooks("Workbook1.xlsx").Worksheets("Test")
loLastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("A" & loLastRow) = inarr(43, 7)
End With

Is there a way to add a confirmation msgbox (Yes/No) at the beginning that mentions the name of the active workbook and to where you are moving the information?

Thanks a lot!!

 

[Yongle]

adapt to suit your needs

    Dim rng As Range, inarr As Variant, loLastRow As Long, ws As Worksheet, msg As String
    inarr = Range("A1:J57")
    Set ws = Workbooks("Workbook1.xlsx").Worksheets("Test")
   
    msg = "From = " & ActiveWorkbook.Name & vbCr & vbCr & "to = " & ws.Name & vbTab
    With ws
        loLastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        Set rng = .Range("A" & loLastRow)
        msg = msg & rng.Address(0, 0)
        If MsgBox(msg, vbYesNo, "") = vbYes Then
            rng = inarr(43, 7)
        Else
            MsgBox "cancelled"
        End If
    End With

 

[Vbanoob98]

Actually it was really easy

Answer = Msgbox("please confirm " & activeworkbook.name & activesheet.name , vbquestion + vbyesno

if answer = vbyes then
    Call macro1
Else
    Msgbox "canceled"

Edit: thanks a lot Yongle, thats 10x better

 

[Yongle]

thanks for the feedback