How to fix “VBA just run a part of code and ignore another”

Multi tool use
Multi tool use












0














When I press F8 to running and checking code line by line, it work perfect. However when I use F5 to running the the whole sub, VBA just run one For-Next Loop. If anyone have the same issue?



Sub InputPurchaseData()

Dim rngPurchaseInfoLoop As Range, rngPurchaseInfo As Range
Dim rngPurchaseItemsFieldLoop As Range, rngPurchaseItemsField As Range
Dim rngPurchaseItemsLoop As Range, rngPurchaseItems As Range
Dim rngPurchaseDataFieldLoop As Range, rngPurchaseDataField As Range
Dim rngPurchaseDataRowLoop As Range, rngPurchaseDataRow As Range
Dim lngPurchaseItemRow As Long, lngPurchaseDataRow As Long
Dim msgOption As Boolean
Dim strPurchaseNumber As String

wsPurchaseOrder.Activate

Set rngPurchaseInfo = wsPurchaseOrder.Range("A1").CurrentRegion

Set rngPurchaseItemsField = wsPurchaseOrder.Range("B1", Range("B1048576").End(xlUp)).Find(What:="ITEM", _
MatchCase:=True, LookAt:=xlWhole)

Set rngPurchaseItems = Range(rngPurchaseItemsField.Offset(2, 0), Range("B1048576").End(xlUp).Offset(-1, 0))

Set rngPurchaseItemsField = Range(rngPurchaseItemsField, rngPurchaseItemsField.End(xlToRight))

Set rngPurchaseDataField = wsPurchaseData.Range("A1").CurrentRegion.Resize(1)

Set rngPurchaseDataRow = wsPurchaseData.Range("A1").CurrentRegion.Resize(, 1)
For Each rngPurchaseItemsLoop In rngPurchaseItems
If IsNumeric(rngPurchaseItemsLoop.Value) Then
lngPurchaseItemRow = rngPurchaseItemsLoop.Row - rngPurchaseItems.Resize(1).Row + 2

For Each rngPurchaseInfoLoop In rngPurchaseInfo

Set rngPurchaseDataFieldLoop = rngPurchaseDataField.Find(What:=rngPurchaseInfoLoop.Value, MatchCase:=True, LookAt:=xlWhole)

If Not rngPurchaseDataFieldLoop Is Nothing Then _
rngPurchaseDataFieldLoop.Offset(rngPurchaseDataRow.Rows.Count).Value = rngPurchaseInfoLoop.Offset(, 1).Value

Next rngPurchaseInfoLoop
For Each rngPurchaseItemsFieldLoop In rngPurchaseItemsField

Set rngPurchaseDataFieldLoop = rngPurchaseDataField.Find(What:=rngPurchaseItemsFieldLoop.Value, MatchCase:=True, LookAt:=xlWhole)

If Not rngPurchaseDataFieldLoop Is Nothing Then _
rngPurchaseDataFieldLoop.Offset(rngPurchaseDataRow.Rows.Count).Value = rngPurchaseItemsFieldLoop.Offset(lngPurchaseItemRow).Value

Next rngPurchaseItemsFieldLoop

End If

Next rngPurchaseItemsLoop

End Sub









share|improve this question









New contributor




jos le is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
















  • 3




    Pardon the candor, but to circumvent my having to check each variable is accoutned for, does your module lead with "OPTION EXPLICIT"? If not, that might be a first start. The thing to check after that is that everything is qualified (cells have sheet references, etc.).
    – Cyril
    Dec 27 '18 at 16:45








  • 1




    You do not need to set ranges for everything like this. And if you MUST, you should use short hand variables. Most of your variable names are longer than just typing out the range they are meant to represent ws.Range("A1") which kind of defeats the whole purpose.
    – urdearboy
    Dec 27 '18 at 16:51












  • Can you explain what you would like your code to do on a macro level/
    – urdearboy
    Dec 27 '18 at 16:52










  • @Cyril Yes, my module lead with "Option Explicit". The code works fine when Im stepping line by line using F8. But that not for F5
    – jos le
    Dec 27 '18 at 17:36










  • @urdearboy I've got to sort out sheets of data for analysis step
    – jos le
    Dec 27 '18 at 17:41
















0














When I press F8 to running and checking code line by line, it work perfect. However when I use F5 to running the the whole sub, VBA just run one For-Next Loop. If anyone have the same issue?



Sub InputPurchaseData()

Dim rngPurchaseInfoLoop As Range, rngPurchaseInfo As Range
Dim rngPurchaseItemsFieldLoop As Range, rngPurchaseItemsField As Range
Dim rngPurchaseItemsLoop As Range, rngPurchaseItems As Range
Dim rngPurchaseDataFieldLoop As Range, rngPurchaseDataField As Range
Dim rngPurchaseDataRowLoop As Range, rngPurchaseDataRow As Range
Dim lngPurchaseItemRow As Long, lngPurchaseDataRow As Long
Dim msgOption As Boolean
Dim strPurchaseNumber As String

wsPurchaseOrder.Activate

Set rngPurchaseInfo = wsPurchaseOrder.Range("A1").CurrentRegion

Set rngPurchaseItemsField = wsPurchaseOrder.Range("B1", Range("B1048576").End(xlUp)).Find(What:="ITEM", _
MatchCase:=True, LookAt:=xlWhole)

Set rngPurchaseItems = Range(rngPurchaseItemsField.Offset(2, 0), Range("B1048576").End(xlUp).Offset(-1, 0))

Set rngPurchaseItemsField = Range(rngPurchaseItemsField, rngPurchaseItemsField.End(xlToRight))

Set rngPurchaseDataField = wsPurchaseData.Range("A1").CurrentRegion.Resize(1)

Set rngPurchaseDataRow = wsPurchaseData.Range("A1").CurrentRegion.Resize(, 1)
For Each rngPurchaseItemsLoop In rngPurchaseItems
If IsNumeric(rngPurchaseItemsLoop.Value) Then
lngPurchaseItemRow = rngPurchaseItemsLoop.Row - rngPurchaseItems.Resize(1).Row + 2

For Each rngPurchaseInfoLoop In rngPurchaseInfo

Set rngPurchaseDataFieldLoop = rngPurchaseDataField.Find(What:=rngPurchaseInfoLoop.Value, MatchCase:=True, LookAt:=xlWhole)

If Not rngPurchaseDataFieldLoop Is Nothing Then _
rngPurchaseDataFieldLoop.Offset(rngPurchaseDataRow.Rows.Count).Value = rngPurchaseInfoLoop.Offset(, 1).Value

Next rngPurchaseInfoLoop
For Each rngPurchaseItemsFieldLoop In rngPurchaseItemsField

Set rngPurchaseDataFieldLoop = rngPurchaseDataField.Find(What:=rngPurchaseItemsFieldLoop.Value, MatchCase:=True, LookAt:=xlWhole)

If Not rngPurchaseDataFieldLoop Is Nothing Then _
rngPurchaseDataFieldLoop.Offset(rngPurchaseDataRow.Rows.Count).Value = rngPurchaseItemsFieldLoop.Offset(lngPurchaseItemRow).Value

Next rngPurchaseItemsFieldLoop

End If

Next rngPurchaseItemsLoop

End Sub









share|improve this question









New contributor




jos le is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
















  • 3




    Pardon the candor, but to circumvent my having to check each variable is accoutned for, does your module lead with "OPTION EXPLICIT"? If not, that might be a first start. The thing to check after that is that everything is qualified (cells have sheet references, etc.).
    – Cyril
    Dec 27 '18 at 16:45








  • 1




    You do not need to set ranges for everything like this. And if you MUST, you should use short hand variables. Most of your variable names are longer than just typing out the range they are meant to represent ws.Range("A1") which kind of defeats the whole purpose.
    – urdearboy
    Dec 27 '18 at 16:51












  • Can you explain what you would like your code to do on a macro level/
    – urdearboy
    Dec 27 '18 at 16:52










  • @Cyril Yes, my module lead with "Option Explicit". The code works fine when Im stepping line by line using F8. But that not for F5
    – jos le
    Dec 27 '18 at 17:36










  • @urdearboy I've got to sort out sheets of data for analysis step
    – jos le
    Dec 27 '18 at 17:41














0












0








0







When I press F8 to running and checking code line by line, it work perfect. However when I use F5 to running the the whole sub, VBA just run one For-Next Loop. If anyone have the same issue?



Sub InputPurchaseData()

Dim rngPurchaseInfoLoop As Range, rngPurchaseInfo As Range
Dim rngPurchaseItemsFieldLoop As Range, rngPurchaseItemsField As Range
Dim rngPurchaseItemsLoop As Range, rngPurchaseItems As Range
Dim rngPurchaseDataFieldLoop As Range, rngPurchaseDataField As Range
Dim rngPurchaseDataRowLoop As Range, rngPurchaseDataRow As Range
Dim lngPurchaseItemRow As Long, lngPurchaseDataRow As Long
Dim msgOption As Boolean
Dim strPurchaseNumber As String

wsPurchaseOrder.Activate

Set rngPurchaseInfo = wsPurchaseOrder.Range("A1").CurrentRegion

Set rngPurchaseItemsField = wsPurchaseOrder.Range("B1", Range("B1048576").End(xlUp)).Find(What:="ITEM", _
MatchCase:=True, LookAt:=xlWhole)

Set rngPurchaseItems = Range(rngPurchaseItemsField.Offset(2, 0), Range("B1048576").End(xlUp).Offset(-1, 0))

Set rngPurchaseItemsField = Range(rngPurchaseItemsField, rngPurchaseItemsField.End(xlToRight))

Set rngPurchaseDataField = wsPurchaseData.Range("A1").CurrentRegion.Resize(1)

Set rngPurchaseDataRow = wsPurchaseData.Range("A1").CurrentRegion.Resize(, 1)
For Each rngPurchaseItemsLoop In rngPurchaseItems
If IsNumeric(rngPurchaseItemsLoop.Value) Then
lngPurchaseItemRow = rngPurchaseItemsLoop.Row - rngPurchaseItems.Resize(1).Row + 2

For Each rngPurchaseInfoLoop In rngPurchaseInfo

Set rngPurchaseDataFieldLoop = rngPurchaseDataField.Find(What:=rngPurchaseInfoLoop.Value, MatchCase:=True, LookAt:=xlWhole)

If Not rngPurchaseDataFieldLoop Is Nothing Then _
rngPurchaseDataFieldLoop.Offset(rngPurchaseDataRow.Rows.Count).Value = rngPurchaseInfoLoop.Offset(, 1).Value

Next rngPurchaseInfoLoop
For Each rngPurchaseItemsFieldLoop In rngPurchaseItemsField

Set rngPurchaseDataFieldLoop = rngPurchaseDataField.Find(What:=rngPurchaseItemsFieldLoop.Value, MatchCase:=True, LookAt:=xlWhole)

If Not rngPurchaseDataFieldLoop Is Nothing Then _
rngPurchaseDataFieldLoop.Offset(rngPurchaseDataRow.Rows.Count).Value = rngPurchaseItemsFieldLoop.Offset(lngPurchaseItemRow).Value

Next rngPurchaseItemsFieldLoop

End If

Next rngPurchaseItemsLoop

End Sub









share|improve this question









New contributor




jos le is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











When I press F8 to running and checking code line by line, it work perfect. However when I use F5 to running the the whole sub, VBA just run one For-Next Loop. If anyone have the same issue?



Sub InputPurchaseData()

Dim rngPurchaseInfoLoop As Range, rngPurchaseInfo As Range
Dim rngPurchaseItemsFieldLoop As Range, rngPurchaseItemsField As Range
Dim rngPurchaseItemsLoop As Range, rngPurchaseItems As Range
Dim rngPurchaseDataFieldLoop As Range, rngPurchaseDataField As Range
Dim rngPurchaseDataRowLoop As Range, rngPurchaseDataRow As Range
Dim lngPurchaseItemRow As Long, lngPurchaseDataRow As Long
Dim msgOption As Boolean
Dim strPurchaseNumber As String

wsPurchaseOrder.Activate

Set rngPurchaseInfo = wsPurchaseOrder.Range("A1").CurrentRegion

Set rngPurchaseItemsField = wsPurchaseOrder.Range("B1", Range("B1048576").End(xlUp)).Find(What:="ITEM", _
MatchCase:=True, LookAt:=xlWhole)

Set rngPurchaseItems = Range(rngPurchaseItemsField.Offset(2, 0), Range("B1048576").End(xlUp).Offset(-1, 0))

Set rngPurchaseItemsField = Range(rngPurchaseItemsField, rngPurchaseItemsField.End(xlToRight))

Set rngPurchaseDataField = wsPurchaseData.Range("A1").CurrentRegion.Resize(1)

Set rngPurchaseDataRow = wsPurchaseData.Range("A1").CurrentRegion.Resize(, 1)
For Each rngPurchaseItemsLoop In rngPurchaseItems
If IsNumeric(rngPurchaseItemsLoop.Value) Then
lngPurchaseItemRow = rngPurchaseItemsLoop.Row - rngPurchaseItems.Resize(1).Row + 2

For Each rngPurchaseInfoLoop In rngPurchaseInfo

Set rngPurchaseDataFieldLoop = rngPurchaseDataField.Find(What:=rngPurchaseInfoLoop.Value, MatchCase:=True, LookAt:=xlWhole)

If Not rngPurchaseDataFieldLoop Is Nothing Then _
rngPurchaseDataFieldLoop.Offset(rngPurchaseDataRow.Rows.Count).Value = rngPurchaseInfoLoop.Offset(, 1).Value

Next rngPurchaseInfoLoop
For Each rngPurchaseItemsFieldLoop In rngPurchaseItemsField

Set rngPurchaseDataFieldLoop = rngPurchaseDataField.Find(What:=rngPurchaseItemsFieldLoop.Value, MatchCase:=True, LookAt:=xlWhole)

If Not rngPurchaseDataFieldLoop Is Nothing Then _
rngPurchaseDataFieldLoop.Offset(rngPurchaseDataRow.Rows.Count).Value = rngPurchaseItemsFieldLoop.Offset(lngPurchaseItemRow).Value

Next rngPurchaseItemsFieldLoop

End If

Next rngPurchaseItemsLoop

End Sub






excel-vba






share|improve this question









New contributor




jos le is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











share|improve this question









New contributor




jos le is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









share|improve this question




share|improve this question








edited Dec 27 '18 at 16:48









Jeroen Heier

2,02931726




2,02931726






New contributor




jos le is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









asked Dec 27 '18 at 16:42









jos le

11




11




New contributor




jos le is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.





New contributor





jos le is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.






jos le is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.








  • 3




    Pardon the candor, but to circumvent my having to check each variable is accoutned for, does your module lead with "OPTION EXPLICIT"? If not, that might be a first start. The thing to check after that is that everything is qualified (cells have sheet references, etc.).
    – Cyril
    Dec 27 '18 at 16:45








  • 1




    You do not need to set ranges for everything like this. And if you MUST, you should use short hand variables. Most of your variable names are longer than just typing out the range they are meant to represent ws.Range("A1") which kind of defeats the whole purpose.
    – urdearboy
    Dec 27 '18 at 16:51












  • Can you explain what you would like your code to do on a macro level/
    – urdearboy
    Dec 27 '18 at 16:52










  • @Cyril Yes, my module lead with "Option Explicit". The code works fine when Im stepping line by line using F8. But that not for F5
    – jos le
    Dec 27 '18 at 17:36










  • @urdearboy I've got to sort out sheets of data for analysis step
    – jos le
    Dec 27 '18 at 17:41














  • 3




    Pardon the candor, but to circumvent my having to check each variable is accoutned for, does your module lead with "OPTION EXPLICIT"? If not, that might be a first start. The thing to check after that is that everything is qualified (cells have sheet references, etc.).
    – Cyril
    Dec 27 '18 at 16:45








  • 1




    You do not need to set ranges for everything like this. And if you MUST, you should use short hand variables. Most of your variable names are longer than just typing out the range they are meant to represent ws.Range("A1") which kind of defeats the whole purpose.
    – urdearboy
    Dec 27 '18 at 16:51












  • Can you explain what you would like your code to do on a macro level/
    – urdearboy
    Dec 27 '18 at 16:52










  • @Cyril Yes, my module lead with "Option Explicit". The code works fine when Im stepping line by line using F8. But that not for F5
    – jos le
    Dec 27 '18 at 17:36










  • @urdearboy I've got to sort out sheets of data for analysis step
    – jos le
    Dec 27 '18 at 17:41








3




3




Pardon the candor, but to circumvent my having to check each variable is accoutned for, does your module lead with "OPTION EXPLICIT"? If not, that might be a first start. The thing to check after that is that everything is qualified (cells have sheet references, etc.).
– Cyril
Dec 27 '18 at 16:45






Pardon the candor, but to circumvent my having to check each variable is accoutned for, does your module lead with "OPTION EXPLICIT"? If not, that might be a first start. The thing to check after that is that everything is qualified (cells have sheet references, etc.).
– Cyril
Dec 27 '18 at 16:45






1




1




You do not need to set ranges for everything like this. And if you MUST, you should use short hand variables. Most of your variable names are longer than just typing out the range they are meant to represent ws.Range("A1") which kind of defeats the whole purpose.
– urdearboy
Dec 27 '18 at 16:51






You do not need to set ranges for everything like this. And if you MUST, you should use short hand variables. Most of your variable names are longer than just typing out the range they are meant to represent ws.Range("A1") which kind of defeats the whole purpose.
– urdearboy
Dec 27 '18 at 16:51














Can you explain what you would like your code to do on a macro level/
– urdearboy
Dec 27 '18 at 16:52




Can you explain what you would like your code to do on a macro level/
– urdearboy
Dec 27 '18 at 16:52












@Cyril Yes, my module lead with "Option Explicit". The code works fine when Im stepping line by line using F8. But that not for F5
– jos le
Dec 27 '18 at 17:36




@Cyril Yes, my module lead with "Option Explicit". The code works fine when Im stepping line by line using F8. But that not for F5
– jos le
Dec 27 '18 at 17:36












@urdearboy I've got to sort out sheets of data for analysis step
– jos le
Dec 27 '18 at 17:41




@urdearboy I've got to sort out sheets of data for analysis step
– jos le
Dec 27 '18 at 17:41

















active

oldest

votes











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
});


}
});






jos le is a new contributor. Be nice, and check out our Code of Conduct.










draft saved

draft discarded


















StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53948206%2fhow-to-fix-vba-just-run-a-part-of-code-and-ignore-another%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown






























active

oldest

votes













active

oldest

votes









active

oldest

votes






active

oldest

votes








jos le is a new contributor. Be nice, and check out our Code of Conduct.










draft saved

draft discarded


















jos le is a new contributor. Be nice, and check out our Code of Conduct.













jos le is a new contributor. Be nice, and check out our Code of Conduct.












jos le is a new contributor. Be nice, and check out our Code of Conduct.
















Thanks for contributing an answer to Stack Overflow!


  • Please be sure to answer the question. Provide details and share your research!

But avoid



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


To learn more, see our tips on writing great answers.





Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


Please pay close attention to the following guidance:


  • Please be sure to answer the question. Provide details and share your research!

But avoid



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53948206%2fhow-to-fix-vba-just-run-a-part-of-code-and-ignore-another%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







E57jisYI uuq3wpkkcHt
uaGjRfu

Popular posts from this blog

Monofisismo

Angular Downloading a file using contenturl with Basic Authentication

Olmecas