VBA Does Not Respond – Exchange Stack Exchange Code

I'm starting to use VBA. What I'm working on is copying the details of a master file to multiple sheets in a spreadsheet.

I encounter a problem when I run my code, my excel file keeps flashing and not responding.

My code is as follows.

Sub Button1_Click()
Dim lastrow As Long
Dim erow As Long
Dim i As Integer

MsgBox ("Clear details of the destination sheets.")

Worksheets("15 Tax Class").Range("A7:V5000").Clear
Worksheets("14 Long Texts").Range("A7:I5000").Clear
Worksheets("12 UoM").Range("A7:V5000").Clear
Worksheets("11 Description").Range("A7:E5000").Clear
Worksheets("09 Sales").Range("A7:AS5000").Clear
Worksheets("03 Plant").Range("A7:FI5000").Clear
Worksheets("02 Client").Range("A7:CR5000").Clear
Worksheets("01 Header").Range("A7:U5000").Clear

MsgBox ("Please wait while template is being populated.")

lastrow = Worksheets("Masterfile").Cells(Rows.Count, 1).End(xlUp).Row

For i = 7 To lastrow

'01 Header Data
Worksheets("Masterfile").Cells(i, 1).Copy
erow = Worksheets("01 Header").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Masterfile").Paste Destination:=Worksheets("01 Header").Cells(erow + 1, 1)

Worksheets("01 Header").Cells(i, 2) = "Z"
Worksheets("01 Header").Cells(i, 3) = "DIEN"
Worksheets("01 Header").Cells(i, 4) = "X"
Worksheets("01 Header").Cells(i, 5) = "X"
Worksheets("01 Header").Cells(i, 6) = "X"
Worksheets("01 Header").Cells(i, 7) = "X"

'02 Client Data
Worksheets("Masterfile").Cells(i, 1).Copy
erow = Worksheets("02 Client").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Masterfile").Paste Destination:=Worksheets("02 Client").Cells(erow + 1, 1)

erow = Worksheets("02 Client").Cells(Rows.Count, 3).End(xlUp).Row
Worksheets("02 Client").Range("C7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("02 Client").Cells(Rows.Count, 4).End(xlUp).Row
Worksheets("02 Client").Range("D7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("02 Client").Cells(Rows.Count, 5).End(xlUp).Row
Worksheets("02 Client").Range("E7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("02 Client").Cells(Rows.Count, 5).End(xlUp).Row
Worksheets("02 Client").Range("F7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

Worksheets("02 Client").Cells(i, 82) = "NORM"

'03  Plant Data
Worksheets("Masterfile").Cells(i, 1).Copy
erow = Worksheets("03 Plant").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Masterfile").Paste Destination:=Worksheets("03 Plant").Cells(erow + 1, 1)

erow = Worksheets("03 Plant").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("03 Plant").Range("B7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("03 Plant").Cells(Rows.Count, 75).End(xlUp).Row
Worksheets("03 Plant").Range("BW7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

'09 Sales Data
Worksheets("Masterfile").Cells(i, 1).Copy
erow = Worksheets("09 Sales").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Masterfile").Paste Destination:=Worksheets("09 Sales").Cells(erow + 1, 1)

erow = Worksheets("09 Sales").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("09 Sales").Range("B7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("09 Sales").Cells(Rows.Count, 3).End(xlUp).Row
Worksheets("09 Sales").Range("C7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("09 Sales").Cells(Rows.Count, 17).End(xlUp).Row
Worksheets("09 Sales").Range("Q7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("09 Sales").Cells(Rows.Count, 25).End(xlUp).Row
Worksheets("09 Sales").Range("Y7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("09 Sales").Cells(Rows.Count, 26).End(xlUp).Row
Worksheets("09 Sales").Range("Z7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("09 Sales").Cells(Rows.Count, 27).End(xlUp).Row
Worksheets("09 Sales").Range("AA7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("09 Sales").Cells(Rows.Count, 27).End(xlUp).Row
Worksheets("09 Sales").Range("AB7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("09 Sales").Cells(Rows.Count, 27).End(xlUp).Row
Worksheets("09 Sales").Range("AC7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

'11 Description Data
Worksheets("Masterfile").Cells(i, 1).Copy
erow = Worksheets("11 Description").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Masterfile").Paste Destination:=Worksheets("11 Description").Cells(erow + 1, 1)

Worksheets("11 Description").Cells(i, 2) = "EN"

erow = Worksheets("11 Description").Cells(Rows.Count, 4).End(xlUp).Row
Worksheets("11 Description").Range("D7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

'12 UoM Data
Worksheets("Masterfile").Cells(i, 1).Copy
erow = Worksheets("12 UoM").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Masterfile").Paste Destination:=Worksheets("12 UoM").Cells(erow + 1, 1)

erow = Worksheets("12 UoM").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("12 UoM").Range("B7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("12 UoM").Cells(Rows.Count, 4).End(xlUp).Row
Worksheets("12 UoM").Range("D7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

erow = Worksheets("12 UoM").Cells(Rows.Count, 5).End(xlUp).Row
Worksheets("12 UoM").Range("E7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

'14 Long Texts Data
Worksheets("Masterfile").Cells(i, 1).Copy
erow = Worksheets("14 Long Texts").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Masterfile").Paste Destination:=Worksheets("14 Long Texts").Cells(erow + 1, 1)
Worksheets("Masterfile").Paste Destination:=Worksheets("14 Long Texts").Cells(erow + 1, 3)

Worksheets("14 Long Texts").Cells(i, 2) = "MATERIAL"
Worksheets("14 Long Texts").Cells(i, 4) = "GRUN"
Worksheets("14 Long Texts").Cells(i, 5) = "EN"

erow = Worksheets("14 Long Texts").Cells(Rows.Count, 8).End(xlUp).Row
Worksheets("14 Long Texts").Range("H7").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

'15 Tax Class Data
Worksheets("Masterfile").Cells(i, 1).Copy
erow = Worksheets("15 Tax Class").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Masterfile").Paste Destination:=Worksheets("15 Tax Class").Cells(erow + 1, 1)

Worksheets("15 Tax Class").Cells(i, 2) = "PH"
Worksheets("15 Tax Class").Cells(i, 4) = "MWST"
Worksheets("15 Tax Class").Cells(i, 5) = "1"

Next i

MsgBox ("Generating of Upload Template already done!")

End Sub

Thank you in advance.

hexupload.net in the comment form, it does not respond

Which contacts have the administrator of http://hexupload.net file hosting?
In the comment form, he does not answer.
Gmail email domain

What keywords can you use to respond to users' comments during their interviews?

In interviews with users, I often say "very interesting" or "it's an interesting point" or "very useful" in response to user responses. "Interesting" is a perfect word because it has a neutral meaning, does not really mean good or bad. Sometimes it would be very repetitive to continue to say those who participate in a long conversation. Would you like to suggest other expressions or words to answer users?

design – Create one or more objects to respond to two sets of data constituting the same entity, but one of which has an additional element

When I call an API endpoint, I have a class to create an object with the response. The object maps directly to the end elements so that I have all the values, with properties, getters, and setters.

In my problematic scenario, I want to define one or more objects for two endpoints that represent the same entity. However, one of them has an extra element (logical for the structure of the API) that prevents me from creating a single object.

These are the "Owner" and "Manager" entities that I want to manage (for example, ignore the need for an object on properties period):

POINT FIN 1: /landlord/{id}/:

Owner's response:

    'id' => 10,
    'first_name' => 'Bob',
    'surname' => 'Jones',
    'properties = (
        0 = (
            'id' => 20,
            'street' => 'whatever',
            'postcode' => 'jj1144ll',

FINAL POINT 2: /properties/{id}/:

Property Response:

    'id' => 20,
    'street' => 'whatever',
    'postcode' => 'jj1144ll',
    'manager' = ( // This is a "Landlord"
        'id' => 10,
        'first_name' => 'Bob',
        'surname' => 'Jones',

The answers are simplified but "Owner" has a lot other things, "date of birth", "address", etc.

The problem:

"Manager" on /properties{id}/ has all the same elements to represent an owner but /landlord/{id}/ at Properties table that /properties/{id}/ of course not, because is a property.

So, I can not create a single object for both, because a manager is an owner and should be an object to represent that. There is this chart on the endpoint of the owner.

I am very open to suggestions but here is what I have proposed so far:

OPTION 1 – An individual class for each end point.

Classes / objects:

PRO: "owner" can have the array "properties" on his object, and "manager" just does not have it.


  1. Duplication – Both classes will have properties, getter,
    setter for all elements (about 15) so duplicated in both
  2. I define "manager" as a separate entity, while a manager is an owner. Having a "manager" class / separate object (and a factory, etc.) suggests that it's something different.

OPTION 2 – Just a class.

Class / object:

PRO: The answers for both "owner" and "manager" simply use the same object (and the factory, etc.). It is clear that "manager" is an "owner".


  1. This could be confusing as it is difficult to know where the "manager" object is located without prior knowledge of the system.
  2. I do not know how to handle the extra array that "owner" data has as "properties". We are moving towards the territory of if isset().

OPTION 3 – A shared class for matching items and a person for the other 2 endpoints.

Classes / objects:

  • LandlordOrManager
  • Landlord
  • Manager

PRO: The "owner" and "manager" data have their own class and can therefore define their own data. These classes would both use the shared class to get shared data, getters / setters, and so on. (somehow?).


  1. It seems heavy to me and I do not think the intention is clear, nor that the developers know what object they want / need.
  2. I always refer to "Manager" as a separate thing and I have a separate class / object for it. It's actually an "owner" and maybe the code should reflect that?

I prefer option 3 to avoid mass duplication since the "owner" and "responsible" objects are really the same, and I think it's more important to represent that, but I do not I'm not sure how:

  1. Name the shared class to display the intention without it being horrible.
  2. Structure the code so that other developers know what it's all about.
  3. Use the 3 classes correctly. Spread seems obvious, but I'm not sure whether it's inappropriate / smell, etc.

I hope you will be able to see my problem and suggest something. I could think about it too much, but I just can not find a solution to the problems of both options.

trackpad – MacBook Air touchpad does not respond

The trackpad does not respond after being hooked to a website video last night and go into sleep mode. When I woke up, I had to use the arrow keys to navigate between the different applications and leave them, then holding down the power button to allow the shutdown. It took 3 times before all applications were shut down before shutting down the MacBook Air (2013) operating system. At STILL restart no trackpad.

I just installed Catalina a week ago on this MacBook Air – 6 years old. No problem with the trackpad at the beginning, probably not related to Catalina. . .

I can use a mouse (USB or wireless). I ran the 1st Aid disk, no help, no problem found. Should I reset the PRAM or something? How is it done? – hold P, R, command and option on restart bong ?? Can not call back

Tracing – Why does this code continue to collapse? This always allowed Mathmatica not to respond even when 60% memory was used


The $ CellContext` (3) coordinate intersections must be a pair of numbers, or a scaled or offset form.

`sols3(x_, a_) := y /. Solve(x^2 + (y - a)^2 == 9, y);
sols2(x_, a_) := y /. Solve(y == a x^2, y);
intersections(a_) := {x, y} /. 
Solve({x^2 + (y - a)^2 == 9 && y == a x^2}, {x, y}, Reals)
Evaluate@Flatten({sols3(x, a), sols2(x, a)}), {x, -20, 20}, 
PlotRange -> 20 {{-1, 1}, {-1, 1}}, BaseStyle -> Thick, 
Epilog -> {Red, PointSize(Large), Point(intersections(a))}, 
AspectRatio -> Automatic, ImageSize -> 300), 
Column@intersections(a)}, {{a, 3}, -3, 3, 1/10})`

I have 8GB of RAM in my laptop. I do not think that's the problem of my pc.

What is the name of the notification template: wait for the user to respond to a notification before sending the next one?

Some websites (for example, some forums) send notifications like these:

  1. The user asks several questions on the site
  2. Other users answer questions
  3. The website notifies the user only once (that there has been an activity since its last interaction with the site)
  4. The user connects to the site or interacts with the site
  5. More activities occur that the user must be informed of
  6. The website sends another notification to the user

In short, instead of sending a notification for each activity and potentially overwriting or spammering the user, the user only receives one notification and the system waits for the user have an interaction with the site before sending another notification to the user.

Is there a name for this model?

watchos 6 – Apple Watch4 with OS6 slow / does not respond to the tap to wake up

I'm using Apple Watch Series 4 with Watch OS 5.x for a year. With alarm clock off to wake me up, I had no problem waking up the clock by touching the screen.

When upgrading to Watch OS6, I now need several taps to wake me up. A simple tap is not even recorded most of the time. Once he's finally woken up and that I turn off the screen, he wakes up in one click. But the initial awakening is problematic – takes 3-4 seconds and several taps.

I also disinfected the watch bracelet with alcohol to burn. I also wiped the screen. Would rubbing alcohol damage the faucet to wake you up?

How can I restore a click to reactivate Apple Watch with WatchOS6.0.1?

Algorithms – How to solve the following tree problem with a number assigned to each node and respond to queries?

I have a tree whose nodes have numbers that were originally assigned to them. A series of $ Q $ questions are asked from $ n = $ 0 at $ n = Q-1 $ seconds. At the end of each second, the numbers of a node (which are not sheets) are deleted and are transferred to each direct child node. is possible that a new number be added to a node. How to solve this problem effectively?

Example: Suppose I have a tree 1 —– 2 —— 3 ——- 4 (1 is parent). Suppose at the beginning that the numbers on the nodes are 1,2,3,4 respectively.

At zero, the second end 5 is added to the zero node. At the end of 0 seconds, the number on the node is (note 1 is not added to 5 because it is removed ).

At a second end, 1 is added to node 4, then the numbers are 0.5,1,3. The fourth node is number three since it has received 2 of the parent node and 1 is added.

Now, suppose that, two seconds from the end, I am asked to say the number on the second node?

I mean that in each query, a number can be added on a node or a question can be asked as – what is the number on $ ith $ node?
How to solve this problem in less than $ O (nQ) $. Or $ n $ is the number of nodes and $ Q $ is the number of requests?

How to respond effectively to multiple queries?

I am given a $ N $-Length entire table. For each integer, I am given 4 values: –

$ (left, right, t, value (integer)) $

$ 1 <= left, right, t <= N $

For each query, I have to find the sum of integers$ (values) $, who have$ x $& # 39; in the perimeter $ (left, right) $ and which $ t <= t1 $

Example of request: – $ x = $ 5,$ t1 = $ 4

So, I have to find the sum of all the values, including $ (left <= 5 <= right) $ years also t$ <= $4