VBA macro increase multiple cell value when printing

[Qerunk]

Dear All

I need your help. Kindly refer image.
TQ in advance

 

[Rhodie72]

I hae zero idea what you are expecting from VBA.
If you want to use a language translator use www.deepl.com to translate your thoughts into English and then maybe can figur out what you want to achieve.

"How the macro for beside excel" makes no sense whatsoever.

 

[Qerunk]

i got the answer from chatGPT. thanks

 

[jolivanes]

For other people with the same or similar problem that come here expecting to find a solution, just like you did, could you be so kind and show the solution for them.
That would be very kind of you and also very much appreciated.
Thank you very much.

 

[jolivanes]

When I started with excel and when I had to search for a solution I was all too happy if I saw a post with a headline that I was sure to give me my solution.
How disappointed can one be when there was a last post that said: "I found a solution". But no solution in the post!!!!!

I felt obliged to make sure that if someone came here to get a solution they would have a working answer and not be disappointed.
Probably not near as sophisticated as Chat but it works on a test workbook.

Sub Like_So()
Dim x As Long, i As Long, j As Long
x = Cells(3, 3).Value
j = 1
    For i = 1 To WorksheetFunction.Ceiling(Cells(3, 3), 40) / 40
        Cells(3, 1).Value = j
        If j + 39 > x Then
            Cells(3, 3).Value = x
                Else
            Cells(3, 3).Value = j + 39
        End If
        ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & "Bags From " & Cells(3, 1).Value & " To " & Cells(3, 3).Value & ".pdf"
        j = j + 40
    Next i
End Sub

 

[Rhodie72]

For other people with the same or similar problem that come here expecting to find a solution, just like you did, could you be so kind and show the solution for them.
That would be very kind of you and also very much appreciated.
Thank you very much.

Exactly! When folks ask a question an answer is meant to be posted, not "AI did it for me so thanks for nothing."

 

[jolivanes]

@Rhodie72
If you read my signature you can say that we are on the way.

 

[Rhodie72]

well... I am not sure about that. Just because you read it on the Internet does not make it a true statement. Here's an example: Einstein's famous quote you never knew.

 

[jolivanes]

Thanks. I should have "snoped" it. Changed accordingly

 

[Rhodie72]

Thanks. I should have "snoped" it. Changed accordingly

What he actually said was "I believe that the abominable deterioration of ethical standards stems primarily from the mechanisation and depersonalisation of our lives, a disastrous byproduct of science and technology. Nostra culpa!" ... and rightlly so.

I suppose some droll troll dumbed it down to make appear more appealing to a generation who belive anything they see online is absolute truth and then never go verify it but that's not you. You did verify it was false and learned accrdingly but I am still in the dark with this faile writing problem.