Styjun

What would it take to get a message to another star?

The more + the + comparative degree

How to get locks that are keyed alike?

How do I ask for 2-3 days per week remote work in a job interview?

What's the relationship betweeen MS-DOS and XENIX?

Go to last file in vim

Suspension compromise for urban use

Does the C++ standard guarantee that a failed insertion into an associative container will not modify the rvalue-reference argument?

Why won't the Republicans use a superdelegate system like the DNC in their nomination process?

What should I do if actually I found a serious flaw in someone's PhD thesis and an article derived from that PhD thesis?

Number in overlapping range

How do figure out how powerful I am, when my abilities far exceed my knowledge?

A+ rating still unsecure by Google Chrome's opinion

What exactly happened to the 18 crew members who were reported as "missing" in "Q Who"?

Is there a word for returning to unpreparedness?

How to measure if Scrum Master is making a difference and when to give up

Solving pricing problem heuristically in column generation algorithm for VRP

Attacking the Hydra

Can someone with Extra Attack do a Commander Strike BEFORE he throws a net?

What is a "soap"?

Can anybody tell me who this Pokemon is?

How can I find an old paper when the usual methods fail?

How to programatically get all linked items for a given Sitecore item?

How can I communicate my issues with a potential date's pushy behavior?

Excel VBA IF statement for Msgbox (range1range2+range3) then

How do I create an Excel (.XLS and .XLSX) file in C# without installing Microsoft Office?Is there a way to crack the password on an Excel VBA Project?How to avoid using Select in Excel VBAVBA MsgBox causes an erroShow in MSgBox all nonempty values from rowVBA sub to search ExcelExcel VBA code for simple formula between cellsUnreliable behavior - Excel VBA Code - Precedents.Count StatementIf input to InputBox does not equal value in range, then display msgbox and end subCountif show in msgbox?

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

0

VBA noob here,

So i have 3 Columns (A,B and C)

A = Received Goods
B = Sent Goods for Shop 1
C = Sent Goods for Shop 2

I want values cells in B+C = A otherwise give me an error message.

Here is my code:

If Range("A1").End(xlDown).Value <> Range("B1").End(xlDown).Value & Range("C1").End(xlDown).Value Then
MsgBox "Error, wrong number of sent goods"
End If

End Sub

excel vba compare msgbox

share|improve this question

asked Mar 27 at 12:03

RobertoRoberto

1244 bronze badges

add a comment | 

0

VBA noob here,

So i have 3 Columns (A,B and C)

A = Received Goods
B = Sent Goods for Shop 1
C = Sent Goods for Shop 2

I want values cells in B+C = A otherwise give me an error message.

Here is my code:

If Range("A1").End(xlDown).Value <> Range("B1").End(xlDown).Value & Range("C1").End(xlDown).Value Then
MsgBox "Error, wrong number of sent goods"
End If

End Sub

excel vba compare msgbox

share|improve this question

asked Mar 27 at 12:03

RobertoRoberto

1244 bronze badges

add a comment | 

VBA noob here,

So i have 3 Columns (A,B and C)

A = Received Goods
B = Sent Goods for Shop 1
C = Sent Goods for Shop 2

I want values cells in B+C = A otherwise give me an error message.

Here is my code:

If Range("A1").End(xlDown).Value <> Range("B1").End(xlDown).Value & Range("C1").End(xlDown).Value Then
MsgBox "Error, wrong number of sent goods"
End If

End Sub

excel vba compare msgbox

share|improve this question

asked Mar 27 at 12:03

RobertoRoberto

1244 bronze badges

A = Received Goods
B = Sent Goods for Shop 1
C = Sent Goods for Shop 2

If Range("A1").End(xlDown).Value <> Range("B1").End(xlDown).Value & Range("C1").End(xlDown).Value Then
MsgBox "Error, wrong number of sent goods"
End If

End Sub

share|improve this question

asked Mar 27 at 12:03

RobertoRoberto

1244 bronze badges

share|improve this question

asked Mar 27 at 12:03

RobertoRoberto

1244 bronze badges

asked Mar 27 at 12:03

RobertoRoberto

1244 bronze badges

asked Mar 27 at 12:03

RobertoRoberto

1244 bronze badges

1 Answer
1

active

oldest

votes

0

This is it:

Option Explicit
Sub Warning()

 Dim A As Long, B As Long, C As Long 'in case you have floating numbers use Single or Double instead

 With ThisWorkbook.Sheets("NameOfYourSheet")
 A = .Cells(.Rows.Count, "A").End(xlUp)
 B = .Cells(.Rows.Count, "B").End(xlUp)
 C = .Cells(.Rows.Count, "C").End(xlUp)
 End With

 If B + C <> A Then
 MsgBox "Error, wrong number of sent goods"
 End If

End Sub

I'm assuming you are trying the last row of every column.

share|improve this answer

answered Mar 27 at 12:07

DamianDamian

3,30911 gold badge55 silver badges1818 bronze badges

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55376736%2fexcel-vba-if-statement-for-msgbox-range1range2range3-then%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

0

This is it:

Option Explicit
Sub Warning()

 Dim A As Long, B As Long, C As Long 'in case you have floating numbers use Single or Double instead

 With ThisWorkbook.Sheets("NameOfYourSheet")
 A = .Cells(.Rows.Count, "A").End(xlUp)
 B = .Cells(.Rows.Count, "B").End(xlUp)
 C = .Cells(.Rows.Count, "C").End(xlUp)
 End With

 If B + C <> A Then
 MsgBox "Error, wrong number of sent goods"
 End If

End Sub

I'm assuming you are trying the last row of every column.

share|improve this answer

answered Mar 27 at 12:07

DamianDamian

3,30911 gold badge55 silver badges1818 bronze badges

add a comment | 

0

This is it:

Option Explicit
Sub Warning()

 Dim A As Long, B As Long, C As Long 'in case you have floating numbers use Single or Double instead

 With ThisWorkbook.Sheets("NameOfYourSheet")
 A = .Cells(.Rows.Count, "A").End(xlUp)
 B = .Cells(.Rows.Count, "B").End(xlUp)
 C = .Cells(.Rows.Count, "C").End(xlUp)
 End With

 If B + C <> A Then
 MsgBox "Error, wrong number of sent goods"
 End If

End Sub

I'm assuming you are trying the last row of every column.

share|improve this answer

answered Mar 27 at 12:07

DamianDamian

3,30911 gold badge55 silver badges1818 bronze badges

add a comment | 

This is it:

Option Explicit
Sub Warning()

 Dim A As Long, B As Long, C As Long 'in case you have floating numbers use Single or Double instead

 With ThisWorkbook.Sheets("NameOfYourSheet")
 A = .Cells(.Rows.Count, "A").End(xlUp)
 B = .Cells(.Rows.Count, "B").End(xlUp)
 C = .Cells(.Rows.Count, "C").End(xlUp)
 End With

 If B + C <> A Then
 MsgBox "Error, wrong number of sent goods"
 End If

End Sub

I'm assuming you are trying the last row of every column.

share|improve this answer

answered Mar 27 at 12:07

DamianDamian

3,30911 gold badge55 silver badges1818 bronze badges

Option Explicit
Sub Warning()

 Dim A As Long, B As Long, C As Long 'in case you have floating numbers use Single or Double instead

 With ThisWorkbook.Sheets("NameOfYourSheet")
 A = .Cells(.Rows.Count, "A").End(xlUp)
 B = .Cells(.Rows.Count, "B").End(xlUp)
 C = .Cells(.Rows.Count, "C").End(xlUp)
 End With

 If B + C <> A Then
 MsgBox "Error, wrong number of sent goods"
 End If

End Sub

share|improve this answer

answered Mar 27 at 12:07

DamianDamian

3,30911 gold badge55 silver badges1818 bronze badges

answered Mar 27 at 12:07

DamianDamian

3,30911 gold badge55 silver badges1818 bronze badges

answered Mar 27 at 12:07

DamianDamian

3,30911 gold badge55 silver badges1818 bronze badges