View Single Post
 
Old 03-05-2022, 11:58 PM
gorkac gorkac is offline Windows 10 Office 2019
Banned
 
Join Date: Jul 2021
Location: Usa
Posts: 62
gorkac is on a distinguished road
Default

WOW, It works perfect. Thanks a lot.
Could you explain to me what these lines of code do? I execute it step by step and still I don't understand it very well:
Code:
With oTbl
      For r = .Rows.Count - 2 To 3 Step -3
        .Split .Rows(r)
      Next
    End With
And these lines, what exactly do they count?:
Code:
For i = 1 To .SelectedItems.Count Step NumCols
      r = ((i - 1) / NumCols + 1) * 3 - 2
      MsgBox r

Last edited by gorkac; 03-06-2022 at 12:44 AM. Reason: One more question.
Reply With Quote