Page 46 of 56 FirstFirst ... 364445464748 ... LastLast
Results 451 to 460 of 555

Thread: Tests Copying, Pasting, API Cliipboard issues. and Rough notes on Advanced API stuff

  1. 04-07-2021, 01:34 PM #451
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,466
    Rep Power
    10

    2007

    in support of this Thread post
    https://www.eileenslounge.com/viewtopic.php?p=282274#p282274

    Code:
     16777215   $B$14
16777215   $C$14
16777215   $D$14
16777215   $E$14
16777215   $F$14
16777215   $G$14
16777215   $H$14
16777215   $A$15
16777215   $B$15
16777215   $C$15
16777215   $D$15
16777215   $E$15
16777215   $F$15
16777215   $G$15
16777215   $H$15
16777215   $A$16
16777215   $B$16
16777215   $C$16
16777215   $D$16
16777215   $E$16
16777215   $F$16
16777215   $G$16
16777215   $H$16
16777215   $A$17
16777215   $B$17
16777215   $C$17
16777215   $D$17
15261110   $E$17
16777215   $F$17
16777215   $G$17
16777215   $H$17
16777215   $A$18
16777215   $B$18
16777215   $C$18
16777215   $D$18
16777215   $E$18
16777215   $F$18
16777215   $G$18
16777215   $H$18
16777215   $A$19
16777215   $B$19
16777215   $C$19
16777215   $D$19
16777215   $E$19
16777215   $F$19
16777215   $G$19
16777215   $H$19
16777215   $A$20
16777215   $B$20
16777215   $C$20
16777215   $D$20
16777215   $E$20
16777215   $F$20
16777215   $G$20
16777215   $H$20
16777215   $A$21
16777215   $B$21
16777215   $C$21
16777215   $D$21
16777215   $E$21
16777215   $F$21
16777215   $G$21
16777215   $H$21
16777215   $A$22
16777215   $B$22
16777215   $C$22
16777215   $D$22
16777215   $E$22
16777215   $F$22
16777215   $G$22
16777215   $H$22
16777215   $A$23
16777215   $B$23
16777215   $C$23
16777215   $D$23
16777215   $E$23
16777215   $F$23
16777215   $G$23
16777215   $H$23
16777215   $A$24
16777215   $B$24
16777215   $C$24
16777215   $D$24
16777215   $E$24
16777215   $F$24
16777215   $G$24
16777215   $H$24
16777215   $A$25
16777215   $B$25
16777215   $C$25
16777215   $D$25
16777215   $E$25
16777215   $F$25
16777215   $G$25
16777215   $H$25
16777215   $A$26
16777215   $B$26
16777215   $C$26
16777215   $D$26
16777215   $E$26
16777215   $F$26
16777215   $G$26
16777215   $H$26
16777215   $A$27
16777215   $B$27
16777215   $C$27
16777215   $D$27
16777215   $E$27
16777215   $F$27
16777215   $G$27
16777215   $H$27
16777215   $A$28
16777215   $B$28
16777215   $C$28
16777215   $D$28
16777215   $E$28
16777215   $F$28
16777215   $G$28
16777215   $H$28
16777215   $A$29
16777215   $B$29
16777215   $C$29
16777215   $D$29
16777215   $E$29
16777215   $F$29
16777215   $G$29
16777215   $H$29
16777215   $A$30
16777215   $B$30
16777215   $C$30
16777215   $D$30
16777215   $E$30
16777215   $F$30
16777215   $G$30
16777215   $H$30
16777215   $A$31
16777215   $B$31
16777215   $C$31
16777215   $D$31
16777215   $E$31
16777215   $F$31
16777215   $G$31
16777215   $H$31
16777215   $A$32
16777215   $B$32
16777215   $C$32
16777215   $D$32
16777215   $E$32
16777215   $F$32
16777215   $G$32
16777215   $H$32
16777215   $A$33
16777215   $B$33
16777215   $C$33
16777215   $D$33
16777215   $E$33
16777215   $F$33
16777215   $G$33
16777215   $H$33
16777215   $A$34
16777215   $B$34
16777215   $C$34
15773696   $D$34
16777215   $E$34
15773696   $F$34
16777215   $G$34
16777215   $H$34
16777215   $A$35
16777215   $B$35
16777215   $C$35
65535   $D$35
16777215   $E$35
5296274   $F$35
16777215   $G$35
16777215   $H$35
16777215   $A$36
16777215   $B$36
16777215   $C$36
65535   $D$36
16777215   $E$36
65535   $F$36
16777215   $G$36
16777215   $H$36
16777215   $A$37
16777215   $B$37
16777215   $C$37
5296274   $D$37
16777215   $E$37
5296274   $F$37
16777215   $G$37
16777215   $H$37
16777215   $A$38
16777215   $B$38
16777215   $C$38
65535   $D$38
16777215   $E$38
5296274   $F$38
16777215   $G$38
16777215   $H$38
    In one 2007 no interior color is shown ( there are errors in opening the .xlsb file ). For this same file saved as .xls I get in that 2007 this:
    Code:
    16777215   $B$14
16777215   $C$14
16777215   $D$14
16777215   $E$14
16777215   $F$14
16777215   $G$14
16777215   $H$14
16777215   $A$15
16777215   $B$15
16777215   $C$15
16777215   $D$15
16777215   $E$15
16777215   $F$15
16777215   $G$15
16777215   $H$15
16777215   $A$16
16777215   $B$16
16777215   $C$16
16777215   $D$16
16777215   $E$16
16777215   $F$16
16777215   $G$16
16777215   $H$16
16777215   $A$17
16777215   $B$17
16777215   $C$17
16777215   $D$17
16777215   $E$17
16777215   $F$17
16777215   $G$17
16777215   $H$17
16777215   $A$18
16777215   $B$18
16777215   $C$18
16777215   $D$18
16777215   $E$18
16777215   $F$18
16777215   $G$18
16777215   $H$18
16777215   $A$19
16777215   $B$19
16777215   $C$19
16777215   $D$19
16777215   $E$19
16777215   $F$19
16777215   $G$19
16777215   $H$19
16777215   $A$20
16777215   $B$20
16777215   $C$20
16777215   $D$20
16777215   $E$20
16777215   $F$20
16777215   $G$20
16777215   $H$20
16777215   $A$21
16777215   $B$21
16777215   $C$21
16777215   $D$21
16777215   $E$21
16777215   $F$21
16777215   $G$21
16777215   $H$21
16777215   $A$22
16777215   $B$22
16777215   $C$22
16777215   $D$22
16777215   $E$22
16777215   $F$22
16777215   $G$22
16777215   $H$22
16777215   $A$23
16777215   $B$23
16777215   $C$23
16777215   $D$23
16777215   $E$23
16777215   $F$23
16777215   $G$23
16777215   $H$23
16777215   $A$24
16777215   $B$24
16777215   $C$24
16777215   $D$24
16777215   $E$24
16777215   $F$24
16777215   $G$24
16777215   $H$24
16777215   $A$25
16777215   $B$25
16777215   $C$25
16777215   $D$25
16777215   $E$25
16777215   $F$25
16777215   $G$25
16777215   $H$25
16777215   $A$26
16777215   $B$26
16777215   $C$26
16777215   $D$26
16777215   $E$26
16777215   $F$26
16777215   $G$26
16777215   $H$26
16777215   $A$27
16777215   $B$27
16777215   $C$27
16777215   $D$27
16777215   $E$27
16777215   $F$27
16777215   $G$27
16777215   $H$27
16777215   $A$28
16777215   $B$28
16777215   $C$28
16777215   $D$28
16777215   $E$28
16777215   $F$28
16777215   $G$28
16777215   $H$28
16777215   $A$29
16777215   $B$29
16777215   $C$29
16777215   $D$29
16777215   $E$29
16777215   $F$29
16777215   $G$29
16777215   $H$29
16777215   $A$30
16777215   $B$30
16777215   $C$30
16777215   $D$30
16777215   $E$30
16777215   $F$30
16777215   $G$30
16777215   $H$30
16777215   $A$31
16777215   $B$31
16777215   $C$31
16777215   $D$31
16777215   $E$31
16777215   $F$31
16777215   $G$31
16777215   $H$31
16777215   $A$32
16777215   $B$32
16777215   $C$32
16777215   $D$32
16777215   $E$32
16777215   $F$32
16777215   $G$32
16777215   $H$32
16777215   $A$33
16777215   $B$33
16777215   $C$33
16777215   $D$33
16777215   $E$33
16777215   $F$33
16777215   $G$33
16777215   $H$33
16777215   $A$34
16777215   $B$34
16777215   $C$34
16777215   $D$34
16777215   $E$34
16777215   $F$34
16777215   $G$34
16777215   $H$34
16777215   $A$35
16777215   $B$35
16777215   $C$35
16777215   $D$35
16777215   $E$35
16777215   $F$35
16777215   $G$35
16777215   $H$35
16777215   $A$36
16777215   $B$36
16777215   $C$36
16777215   $D$36
16777215   $E$36
16777215   $F$36
16777215   $G$36
16777215   $H$36
16777215   $A$37
16777215   $B$37
16777215   $C$37
16777215   $D$37
16777215   $E$37
16777215   $F$37
16777215   $G$37
16777215   $H$37
16777215   $A$38
16777215   $B$38
16777215   $C$38
16777215   $D$38
16777215   $E$38
16777215   $F$38
16777215   $G$38
16777215   $H$38


    Code:
    16777215   $B$14
16777215   $C$14
16777215   $D$14
16777215   $E$14
16777215   $F$14
16777215   $G$14
16777215   $H$14
16777215   $A$15
16777215   $B$15
16777215   $C$15
16777215   $D$15
16777215   $E$15
16777215   $F$15
16777215   $G$15
16777215   $H$15
16777215   $A$16
16777215   $B$16
16777215   $C$16
16777215   $D$16
16777215   $E$16
16777215   $F$16
16777215   $G$16
16777215   $H$16
16777215   $A$17
16777215   $B$17
16777215   $C$17
16777215   $D$17
15261110   $E$17
16777215   $F$17
16777215   $G$17
16777215   $H$17
16777215   $A$18
16777215   $B$18
16777215   $C$18
16777215   $D$18
16777215   $E$18
16777215   $F$18
16777215   $G$18
16777215   $H$18
16777215   $A$19
16777215   $B$19
16777215   $C$19
16777215   $D$19
16777215   $E$19
16777215   $F$19
16777215   $G$19
16777215   $H$19
16777215   $A$20
16777215   $B$20
16777215   $C$20
16777215   $D$20
16777215   $E$20
16777215   $F$20
16777215   $G$20
16777215   $H$20
16777215   $A$21
16777215   $B$21
16777215   $C$21
16777215   $D$21
16777215   $E$21
16777215   $F$21
16777215   $G$21
16777215   $H$21
16777215   $A$22
16777215   $B$22
16777215   $C$22
16777215   $D$22
16777215   $E$22
16777215   $F$22
16777215   $G$22
16777215   $H$22
16777215   $A$23
16777215   $B$23
16777215   $C$23
16777215   $D$23
16777215   $E$23
16777215   $F$23
16777215   $G$23
16777215   $H$23
16777215   $A$24
16777215   $B$24
16777215   $C$24
16777215   $D$24
16777215   $E$24
16777215   $F$24
16777215   $G$24
16777215   $H$24
16777215   $A$25
16777215   $B$25
16777215   $C$25
16777215   $D$25
16777215   $E$25
16777215   $F$25
16777215   $G$25
16777215   $H$25
16777215   $A$26
16777215   $B$26
16777215   $C$26
16777215   $D$26
16777215   $E$26
16777215   $F$26
16777215   $G$26
16777215   $H$26
16777215   $A$27
16777215   $B$27
16777215   $C$27
16777215   $D$27
16777215   $E$27
16777215   $F$27
16777215   $G$27
16777215   $H$27
16777215   $A$28
16777215   $B$28
16777215   $C$28
16777215   $D$28
16777215   $E$28
16777215   $F$28
16777215   $G$28
16777215   $H$28
16777215   $A$29
16777215   $B$29
16777215   $C$29
16777215   $D$29
16777215   $E$29
16777215   $F$29
16777215   $G$29
16777215   $H$29
16777215   $A$30
16777215   $B$30
16777215   $C$30
16777215   $D$30
16777215   $E$30
16777215   $F$30
16777215   $G$30
16777215   $H$30
16777215   $A$31
16777215   $B$31
16777215   $C$31
16777215   $D$31
16777215   $E$31
16777215   $F$31
16777215   $G$31
16777215   $H$31
16777215   $A$32
16777215   $B$32
16777215   $C$32
16777215   $D$32
16777215   $E$32
16777215   $F$32
16777215   $G$32
16777215   $H$32
16777215   $A$33
16777215   $B$33
16777215   $C$33
16777215   $D$33
16777215   $E$33
16777215   $F$33
16777215   $G$33
16777215   $H$33
16777215   $A$34
16777215   $B$34
16777215   $C$34
15773696   $D$34
16777215   $E$34
15773696   $F$34
16777215   $G$34
16777215   $H$34
16777215   $A$35
16777215   $B$35
16777215   $C$35
65535   $D$35
16777215   $E$35
5296274   $F$35
16777215   $G$35
16777215   $H$35
16777215   $A$36
16777215   $B$36
16777215   $C$36
65535   $D$36
16777215   $E$36
65535   $F$36
16777215   $G$36
16777215   $H$36
16777215   $A$37
16777215   $B$37
16777215   $C$37
5296274   $D$37
16777215   $E$37
5296274   $F$37
16777215   $G$37
16777215   $H$37
16777215   $A$38
16777215   $B$38
16777215   $C$38
65535   $D$38
16777215   $E$38
5296274   $F$38
16777215   $G$38
16777215   $H$38
    The above Excel with the .xls file version
    Code:
    16777215   $C$14
16777215   $D$14
16777215   $E$14
16777215   $F$14
16777215   $G$14
16777215   $H$14
16777215   $A$15
16777215   $B$15
16777215   $C$15
16777215   $D$15
16777215   $E$15
16777215   $F$15
16777215   $G$15
16777215   $H$15
16777215   $A$16
16777215   $B$16
16777215   $C$16
16777215   $D$16
16777215   $E$16
16777215   $F$16
16777215   $G$16
16777215   $H$16
16777215   $A$17
16777215   $B$17
16777215   $C$17
16777215   $D$17
15261110   $E$17
16777215   $F$17
16777215   $G$17
16777215   $H$17
16777215   $A$18
16777215   $B$18
16777215   $C$18
16777215   $D$18
16777215   $E$18
16777215   $F$18
16777215   $G$18
16777215   $H$18
16777215   $A$19
16777215   $B$19
16777215   $C$19
16777215   $D$19
16777215   $E$19
16777215   $F$19
16777215   $G$19
16777215   $H$19
16777215   $A$20
16777215   $B$20
16777215   $C$20
16777215   $D$20
16777215   $E$20
16777215   $F$20
16777215   $G$20
16777215   $H$20
16777215   $A$21
16777215   $B$21
16777215   $C$21
16777215   $D$21
16777215   $E$21
16777215   $F$21
16777215   $G$21
16777215   $H$21
16777215   $A$22
16777215   $B$22
16777215   $C$22
16777215   $D$22
16777215   $E$22
16777215   $F$22
16777215   $G$22
16777215   $H$22
16777215   $A$23
16777215   $B$23
16777215   $C$23
16777215   $D$23
16777215   $E$23
16777215   $F$23
16777215   $G$23
16777215   $H$23
16777215   $A$24
16777215   $B$24
16777215   $C$24
16777215   $D$24
16777215   $E$24
16777215   $F$24
16777215   $G$24
16777215   $H$24
16777215   $A$25
16777215   $B$25
16777215   $C$25
16777215   $D$25
16777215   $E$25
16777215   $F$25
16777215   $G$25
16777215   $H$25
16777215   $A$26
16777215   $B$26
16777215   $C$26
16777215   $D$26
16777215   $E$26
16777215   $F$26
16777215   $G$26
16777215   $H$26
16777215   $A$27
16777215   $B$27
16777215   $C$27
16777215   $D$27
16777215   $E$27
16777215   $F$27
16777215   $G$27
16777215   $H$27
16777215   $A$28
16777215   $B$28
16777215   $C$28
16777215   $D$28
16777215   $E$28
16777215   $F$28
16777215   $G$28
16777215   $H$28
16777215   $A$29
16777215   $B$29
16777215   $C$29
16777215   $D$29
16777215   $E$29
16777215   $F$29
16777215   $G$29
16777215   $H$29
16777215   $A$30
16777215   $B$30
16777215   $C$30
16777215   $D$30
16777215   $E$30
16777215   $F$30
16777215   $G$30
16777215   $H$30
16777215   $A$31
16777215   $B$31
16777215   $C$31
16777215   $D$31
16777215   $E$31
16777215   $F$31
16777215   $G$31
16777215   $H$31
16777215   $A$32
16777215   $B$32
16777215   $C$32
16777215   $D$32
16777215   $E$32
16777215   $F$32
16777215   $G$32
16777215   $H$32
16777215   $A$33
16777215   $B$33
16777215   $C$33
16777215   $D$33
16777215   $E$33
16777215   $F$33
16777215   $G$33
16777215   $H$33
16777215   $A$34
16777215   $B$34
16777215   $C$34
15773696   $D$34
16777215   $E$34
15773696   $F$34
16777215   $G$34
16777215   $H$34
16777215   $A$35
16777215   $B$35
16777215   $C$35
65535   $D$35
16777215   $E$35
5296274   $F$35
16777215   $G$35
16777215   $H$35
16777215   $A$36
16777215   $B$36
16777215   $C$36
65535   $D$36
16777215   $E$36
65535   $F$36
16777215   $G$36
16777215   $H$36
16777215   $A$37
16777215   $B$37
16777215   $C$37
5296274   $D$37
16777215   $E$37
5296274   $F$37
16777215   $G$37
16777215   $H$37
16777215   $A$38
16777215   $B$38
16777215   $C$38
65535   $D$38
16777215   $E$38
5296274   $F$38
16777215   $G$38
16777215   $H$38
    Seasonal greetings :-)
    Reply With Quote Reply With Quote
  2. 04-07-2021, 01:38 PM #452
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,466
    Rep Power
    10

    2010

    In support of this post
    https://www.eileenslounge.com/viewtopic.php?p=282275#p282275

    Code:
    16777215   $B$14
16777215   $C$14
16777215   $D$14
16777215   $E$14
16777215   $F$14
16777215   $G$14
16777215   $H$14
16777215   $A$15
16777215   $B$15
16777215   $C$15
16777215   $D$15
16777215   $E$15
16777215   $F$15
16777215   $G$15
16777215   $H$15
16777215   $A$16
16777215   $B$16
16777215   $C$16
16777215   $D$16
16777215   $E$16
16777215   $F$16
16777215   $G$16
16777215   $H$16
16777215   $A$17
16777215   $B$17
16777215   $C$17
16777215   $D$17
****15261367  ******   $E$17
16777215   $F$17
16777215   $G$17
16777215   $H$17
16777215   $A$18
16777215   $B$18
16777215   $C$18
16777215   $D$18
16777215   $E$18
16777215   $F$18
16777215   $G$18
16777215   $H$18
16777215   $A$19
16777215   $B$19
16777215   $C$19
16777215   $D$19
16777215   $E$19
16777215   $F$19
16777215   $G$19
16777215   $H$19
16777215   $A$20
16777215   $B$20
16777215   $C$20
16777215   $D$20
16777215   $E$20
16777215   $F$20
16777215   $G$20
16777215   $H$20
16777215   $A$21
16777215   $B$21
16777215   $C$21
16777215   $D$21
16777215   $E$21
16777215   $F$21
16777215   $G$21
16777215   $H$21
16777215   $A$22
16777215   $B$22
16777215   $C$22
16777215   $D$22
16777215   $E$22
16777215   $F$22
16777215   $G$22
16777215   $H$22
16777215   $A$23
16777215   $B$23
16777215   $C$23
16777215   $D$23
16777215   $E$23
16777215   $F$23
16777215   $G$23
16777215   $H$23
16777215   $A$24
16777215   $B$24
16777215   $C$24
16777215   $D$24
16777215   $E$24
16777215   $F$24
16777215   $G$24
16777215   $H$24
16777215   $A$25
16777215   $B$25
16777215   $C$25
16777215   $D$25
16777215   $E$25
16777215   $F$25
16777215   $G$25
16777215   $H$25
16777215   $A$26
16777215   $B$26
16777215   $C$26
16777215   $D$26
16777215   $E$26
16777215   $F$26
16777215   $G$26
16777215   $H$26
16777215   $A$27
16777215   $B$27
16777215   $C$27
16777215   $D$27
16777215   $E$27
16777215   $F$27
16777215   $G$27
16777215   $H$27
16777215   $A$28
16777215   $B$28
16777215   $C$28
16777215   $D$28
16777215   $E$28
16777215   $F$28
16777215   $G$28
16777215   $H$28
16777215   $A$29
16777215   $B$29
16777215   $C$29
16777215   $D$29
16777215   $E$29
16777215   $F$29
16777215   $G$29
16777215   $H$29
16777215   $A$30
16777215   $B$30
16777215   $C$30
16777215   $D$30
16777215   $E$30
16777215   $F$30
16777215   $G$30
16777215   $H$30
16777215   $A$31
16777215   $B$31
16777215   $C$31
16777215   $D$31
16777215   $E$31
16777215   $F$31
16777215   $G$31
16777215   $H$31
16777215   $A$32
16777215   $B$32
16777215   $C$32
16777215   $D$32
16777215   $E$32
16777215   $F$32
16777215   $G$32
16777215   $H$32
16777215   $A$33
16777215   $B$33
16777215   $C$33
16777215   $D$33
16777215   $E$33
16777215   $F$33
16777215   $G$33
16777215   $H$33
16777215   $A$34
16777215   $B$34
16777215   $C$34
15773696   $D$34
16777215   $E$34
15773696   $F$34
16777215   $G$34
16777215   $H$34
16777215   $A$35
16777215   $B$35
16777215   $C$35
65535   $D$35
16777215   $E$35
5296274   $F$35
16777215   $G$35
16777215   $H$35
16777215   $A$36
16777215   $B$36
16777215   $C$36
65535   $D$36
16777215   $E$36
65535   $F$36
16777215   $G$36
16777215   $H$36
16777215   $A$37
16777215   $B$37
16777215   $C$37
5296274   $D$37
16777215   $E$37
5296274   $F$37
16777215   $G$37
16777215   $H$37
16777215   $A$38
16777215   $B$38
16777215   $C$38
65535   $D$38
16777215   $E$38
5296274   $F$38
16777215   $G$38
16777215   $H$38
    Code:
    16777215   $B$14
16777215   $C$14
16777215   $D$14
16777215   $E$14
16777215   $F$14
16777215   $G$14
16777215   $H$14
16777215   $A$15
16777215   $B$15
16777215   $C$15
16777215   $D$15
16777215   $E$15
16777215   $F$15
16777215   $G$15
16777215   $H$15
16777215   $A$16
16777215   $B$16
16777215   $C$16
16777215   $D$16
16777215   $E$16
16777215   $F$16
16777215   $G$16
16777215   $H$16
16777215   $A$17
16777215   $B$17
16777215   $C$17
16777215   $D$17
****15261367  ******   $E$17
16777215   $F$17
16777215   $G$17
16777215   $H$17
16777215   $A$18
16777215   $B$18
16777215   $C$18
16777215   $D$18
16777215   $E$18
16777215   $F$18
16777215   $G$18
16777215   $H$18
16777215   $A$19
16777215   $B$19
16777215   $C$19
16777215   $D$19
16777215   $E$19
16777215   $F$19
16777215   $G$19
16777215   $H$19
16777215   $A$20
16777215   $B$20
16777215   $C$20
16777215   $D$20
16777215   $E$20
16777215   $F$20
16777215   $G$20
16777215   $H$20
16777215   $A$21
16777215   $B$21
16777215   $C$21
16777215   $D$21
16777215   $E$21
16777215   $F$21
16777215   $G$21
16777215   $H$21
16777215   $A$22
16777215   $B$22
16777215   $C$22
16777215   $D$22
16777215   $E$22
16777215   $F$22
16777215   $G$22
16777215   $H$22
16777215   $A$23
16777215   $B$23
16777215   $C$23
16777215   $D$23
16777215   $E$23
16777215   $F$23
16777215   $G$23
16777215   $H$23
16777215   $A$24
16777215   $B$24
16777215   $C$24
16777215   $D$24
16777215   $E$24
16777215   $F$24
16777215   $G$24
16777215   $H$24
16777215   $A$25
16777215   $B$25
16777215   $C$25
16777215   $D$25
16777215   $E$25
16777215   $F$25
16777215   $G$25
16777215   $H$25
16777215   $A$26
16777215   $B$26
16777215   $C$26
16777215   $D$26
16777215   $E$26
16777215   $F$26
16777215   $G$26
16777215   $H$26
16777215   $A$27
16777215   $B$27
16777215   $C$27
16777215   $D$27
16777215   $E$27
16777215   $F$27
16777215   $G$27
16777215   $H$27
16777215   $A$28
16777215   $B$28
16777215   $C$28
16777215   $D$28
16777215   $E$28
16777215   $F$28
16777215   $G$28
16777215   $H$28
16777215   $A$29
16777215   $B$29
16777215   $C$29
16777215   $D$29
16777215   $E$29
16777215   $F$29
16777215   $G$29
16777215   $H$29
16777215   $A$30
16777215   $B$30
16777215   $C$30
16777215   $D$30
16777215   $E$30
16777215   $F$30
16777215   $G$30
16777215   $H$30
16777215   $A$31
16777215   $B$31
16777215   $C$31
16777215   $D$31
16777215   $E$31
16777215   $F$31
16777215   $G$31
16777215   $H$31
16777215   $A$32
16777215   $B$32
16777215   $C$32
16777215   $D$32
16777215   $E$32
16777215   $F$32
16777215   $G$32
16777215   $H$32
16777215   $A$33
16777215   $B$33
16777215   $C$33
16777215   $D$33
16777215   $E$33
16777215   $F$33
16777215   $G$33
16777215   $H$33
16777215   $A$34
16777215   $B$34
16777215   $C$34
15773696   $D$34
16777215   $E$34
15773696   $F$34
16777215   $G$34
16777215   $H$34
16777215   $A$35
16777215   $B$35
16777215   $C$35
65535   $D$35
16777215   $E$35
5296274   $F$35
16777215   $G$35
16777215   $H$35
16777215   $A$36
16777215   $B$36
16777215   $C$36
65535   $D$36
16777215   $E$36
65535   $F$36
16777215   $G$36
16777215   $H$36
16777215   $A$37
16777215   $B$37
16777215   $C$37
5296274   $D$37
16777215   $E$37
5296274   $F$37
16777215   $G$37
16777215   $H$37
16777215   $A$38
16777215   $B$38
16777215   $C$38
65535   $D$38
16777215   $E$38
5296274   $F$38
16777215   $G$38
16777215   $H$38
    In the above 2010 the following is from a .xls version of the file
    Code:
    16777215   $C$14
16777215   $D$14
16777215   $E$14
16777215   $F$14
16777215   $G$14
16777215   $H$14
16777215   $A$15
16777215   $B$15
16777215   $C$15
16777215   $D$15
16777215   $E$15
16777215   $F$15
16777215   $G$15
16777215   $H$15
16777215   $A$16
16777215   $B$16
16777215   $C$16
16777215   $D$16
16777215   $E$16
16777215   $F$16
16777215   $G$16
16777215   $H$16
16777215   $A$17
16777215   $B$17
16777215   $C$17
16777215   $D$17
****15261367  ******   $E$17
16777215   $F$17
16777215   $G$17
16777215   $H$17
16777215   $A$18
16777215   $B$18
16777215   $C$18
16777215   $D$18
16777215   $E$18
16777215   $F$18
16777215   $G$18
16777215   $H$18
16777215   $A$19
16777215   $B$19
16777215   $C$19
16777215   $D$19
16777215   $E$19
16777215   $F$19
16777215   $G$19
16777215   $H$19
16777215   $A$20
16777215   $B$20
16777215   $C$20
16777215   $D$20
16777215   $E$20
16777215   $F$20
16777215   $G$20
16777215   $H$20
16777215   $A$21
16777215   $B$21
16777215   $C$21
16777215   $D$21
16777215   $E$21
16777215   $F$21
16777215   $G$21
16777215   $H$21
16777215   $A$22
16777215   $B$22
16777215   $C$22
16777215   $D$22
16777215   $E$22
16777215   $F$22
16777215   $G$22
16777215   $H$22
16777215   $A$23
16777215   $B$23
16777215   $C$23
16777215   $D$23
16777215   $E$23
16777215   $F$23
16777215   $G$23
16777215   $H$23
16777215   $A$24
16777215   $B$24
16777215   $C$24
16777215   $D$24
16777215   $E$24
16777215   $F$24
16777215   $G$24
16777215   $H$24
16777215   $A$25
16777215   $B$25
16777215   $C$25
16777215   $D$25
16777215   $E$25
16777215   $F$25
16777215   $G$25
16777215   $H$25
16777215   $A$26
16777215   $B$26
16777215   $C$26
16777215   $D$26
16777215   $E$26
16777215   $F$26
16777215   $G$26
16777215   $H$26
16777215   $A$27
16777215   $B$27
16777215   $C$27
16777215   $D$27
16777215   $E$27
16777215   $F$27
16777215   $G$27
16777215   $H$27
16777215   $A$28
16777215   $B$28
16777215   $C$28
16777215   $D$28
16777215   $E$28
16777215   $F$28
16777215   $G$28
16777215   $H$28
16777215   $A$29
16777215   $B$29
16777215   $C$29
16777215   $D$29
16777215   $E$29
16777215   $F$29
16777215   $G$29
16777215   $H$29
16777215   $A$30
16777215   $B$30
16777215   $C$30
16777215   $D$30
16777215   $E$30
16777215   $F$30
16777215   $G$30
16777215   $H$30
16777215   $A$31
16777215   $B$31
16777215   $C$31
16777215   $D$31
16777215   $E$31
16777215   $F$31
16777215   $G$31
16777215   $H$31
16777215   $A$32
16777215   $B$32
16777215   $C$32
16777215   $D$32
16777215   $E$32
16777215   $F$32
16777215   $G$32
16777215   $H$32
16777215   $A$33
16777215   $B$33
16777215   $C$33
16777215   $D$33
16777215   $E$33
16777215   $F$33
16777215   $G$33
16777215   $H$33
16777215   $A$34
16777215   $B$34
16777215   $C$34
15773696   $D$34
16777215   $E$34
15773696   $F$34
16777215   $G$34
16777215   $H$34
16777215   $A$35
16777215   $B$35
16777215   $C$35
65535   $D$35
16777215   $E$35
5296274   $F$35
16777215   $G$35
16777215   $H$35
16777215   $A$36
16777215   $B$36
16777215   $C$36
65535   $D$36
16777215   $E$36
65535   $F$36
16777215   $G$36
16777215   $H$36
16777215   $A$37
16777215   $B$37
16777215   $C$37
5296274   $D$37
16777215   $E$37
5296274   $F$37
16777215   $G$37
16777215   $H$37
16777215   $A$38
16777215   $B$38
16777215   $C$38
65535   $D$38
16777215   $E$38
5296274   $F$38
16777215   $G$38
16777215   $H$38
    Seasonal greetings :-)
    Reply With Quote Reply With Quote
  3. 04-07-2021, 05:46 PM #453
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,466
    Rep Power
    10

    365

    From
    https://eileenslounge.com/viewtopic....282284#p282284

    Code:
    16777215   $B$14
16777215   $C$14
16777215   $D$14
16777215   $E$14
16777215   $F$14
16777215   $G$14
16777215   $H$14
16777215   $A$15
16777215   $B$15
16777215   $C$15
16777215   $D$15
16777215   $E$15
16777215   $F$15
16777215   $G$15
16777215   $H$15
16777215   $A$16
16777215   $B$16
16777215   $C$16
16777215   $D$16
16777215   $E$16
16777215   $F$16
16777215   $G$16
16777215   $H$16
16777215   $A$17
16777215   $B$17
16777215   $C$17
16777215   $D$17
****  15261367  ******   $E$17
16777215   $F$17
16777215   $G$17
16777215   $H$17
16777215   $A$18
16777215   $B$18
16777215   $C$18
16777215   $D$18
16777215   $E$18
16777215   $F$18
16777215   $G$18
16777215   $H$18
16777215   $A$19
16777215   $B$19
16777215   $C$19
16777215   $D$19
16777215   $E$19
16777215   $F$19
16777215   $G$19
16777215   $H$19
16777215   $A$20
16777215   $B$20
16777215   $C$20
16777215   $D$20
16777215   $E$20
16777215   $F$20
16777215   $G$20
16777215   $H$20
16777215   $A$21
16777215   $B$21
16777215   $C$21
16777215   $D$21
16777215   $E$21
16777215   $F$21
16777215   $G$21
16777215   $H$21
16777215   $A$22
16777215   $B$22
16777215   $C$22
16777215   $D$22
16777215   $E$22
16777215   $F$22
16777215   $G$22
16777215   $H$22
16777215   $A$23
16777215   $B$23
16777215   $C$23
16777215   $D$23
16777215   $E$23
16777215   $F$23
16777215   $G$23
16777215   $H$23
16777215   $A$24
16777215   $B$24
16777215   $C$24
16777215   $D$24
16777215   $E$24
16777215   $F$24
16777215   $G$24
16777215   $H$24
16777215   $A$25
16777215   $B$25
16777215   $C$25
16777215   $D$25
16777215   $E$25
16777215   $F$25
16777215   $G$25
16777215   $H$25
16777215   $A$26
16777215   $B$26
16777215   $C$26
16777215   $D$26
16777215   $E$26
16777215   $F$26
16777215   $G$26
16777215   $H$26
16777215   $A$27
16777215   $B$27
16777215   $C$27
16777215   $D$27
16777215   $E$27
16777215   $F$27
16777215   $G$27
16777215   $H$27
16777215   $A$28
16777215   $B$28
16777215   $C$28
16777215   $D$28
16777215   $E$28
16777215   $F$28
16777215   $G$28
16777215   $H$28
16777215   $A$29
16777215   $B$29
16777215   $C$29
16777215   $D$29
16777215   $E$29
16777215   $F$29
16777215   $G$29
16777215   $H$29
16777215   $A$30
16777215   $B$30
16777215   $C$30
16777215   $D$30
16777215   $E$30
16777215   $F$30
16777215   $G$30
16777215   $H$30
16777215   $A$31
16777215   $B$31
16777215   $C$31
16777215   $D$31
16777215   $E$31
16777215   $F$31
16777215   $G$31
16777215   $H$31
16777215   $A$32
16777215   $B$32
16777215   $C$32
16777215   $D$32
16777215   $E$32
16777215   $F$32
16777215   $G$32
16777215   $H$32
16777215   $A$33
16777215   $B$33
16777215   $C$33
16777215   $D$33
16777215   $E$33
16777215   $F$33
16777215   $G$33
16777215   $H$33
16777215   $A$34
16777215   $B$34
16777215   $C$34
15773696   $D$34
16777215   $E$34
15773696   $F$34
16777215   $G$34
16777215   $H$34
16777215   $A$35
16777215   $B$35
16777215   $C$35
65535   $D$35
16777215   $E$35
5296274   $F$35
16777215   $G$35
16777215   $H$35
16777215   $A$36
16777215   $B$36
16777215   $C$36
65535   $D$36
16777215   $E$36
65535   $F$36
16777215   $G$36
16777215   $H$36
16777215   $A$37
16777215   $B$37
16777215   $C$37
5296274   $D$37
16777215   $E$37
5296274   $F$37
16777215   $G$37
16777215   $H$37
16777215   $A$38
16777215   $B$38
16777215   $C$38
65535   $D$38
16777215   $E$38
5296274   $F$38
16777215   $G$38
16777215   $H$38
    Seasonal greetings :-)
    Reply With Quote Reply With Quote
  4. 04-07-2021, 08:22 PM #454
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,466
    Rep Power
    10

    XP 2010

    Info from
    https://eileenslounge.com/viewtopic....282295#p282295
    https://eileenslounge.com/viewtopic....282297#p282297

    hassona229
    Code:
    Excel 2010 32 bit
16777215     $A$1
16777215     $B$1
16777215     $C$1
16777215     $D$1
16777215     $E$1
16777215     $F$1
16777215     $G$1
16777215     $H$1
16777215     $A$2
16777215     $B$2
16777215     $C$2
16777215     $D$2
16777215     $E$2
16777215     $F$2
16777215     $G$2
16777215     $H$2
16777215     $A$3
16777215     $B$3
16777215     $C$3
16777215     $D$3
16777215     $E$3
16777215     $F$3
16777215     $G$3
16777215     $H$3
16777215     $A$4
16777215     $B$4
16777215     $C$4
16777215     $D$4
****  15261367  ******   $E$4
16777215     $F$4
16777215     $G$4
16777215     $H$4
16777215     $A$5
16777215     $B$5
16777215     $C$5
16777215     $D$5
16777215     $E$5
16777215     $F$5
16777215     $G$5
16777215     $H$5
16777215     $A$6
16777215     $B$6
16777215     $C$6
16777215     $D$6
16777215     $E$6
16777215     $F$6
16777215     $G$6
16777215     $H$6
16777215     $A$7
16777215     $B$7
16777215     $C$7
16777215     $D$7
16777215     $E$7
16777215     $F$7
16777215     $G$7
16777215     $H$7
16777215     $A$8
16777215     $B$8
16777215     $C$8
16777215     $D$8
16777215     $E$8
16777215     $F$8
16777215     $G$8
16777215     $H$8
16777215     $A$9
16777215     $B$9
16777215     $C$9
16777215     $D$9
16777215     $E$9
16777215     $F$9
16777215     $G$9
16777215     $H$9
16777215     $A$10
16777215     $B$10
16777215     $C$10
16777215     $D$10
16777215     $E$10
16777215     $F$10
16777215     $G$10
16777215     $H$10
16777215     $A$11
16777215     $B$11
16777215     $C$11
16777215     $D$11
16777215     $E$11
16777215     $F$11
16777215     $G$11
16777215     $H$11
16777215     $A$12
16777215     $B$12
16777215     $C$12
16777215     $D$12
16777215     $E$12
16777215     $F$12
16777215     $G$12
16777215     $H$12
16777215     $A$13
16777215     $B$13
16777215     $C$13
16777215     $D$13
16777215     $E$13
16777215     $F$13
16777215     $G$13
16777215     $H$13
16777215     $A$14
16777215     $B$14
16777215     $C$14
16777215     $D$14
16777215     $E$14
16777215     $F$14
16777215     $G$14
16777215     $H$14
16777215     $A$15
16777215     $B$15
16777215     $C$15
16777215     $D$15
16777215     $E$15
16777215     $F$15
16777215     $G$15
16777215     $H$15
16777215     $A$16
16777215     $B$16
16777215     $C$16
16777215     $D$16
16777215     $E$16
16777215     $F$16
16777215     $G$16
16777215     $H$16
16777215     $A$17
16777215     $B$17
16777215     $C$17
16777215     $D$17
****  15261367  ******   $E$17
16777215     $F$17
16777215     $G$17
16777215     $H$17
16777215     $A$18
16777215     $B$18
16777215     $C$18
16777215     $D$18
16777215     $E$18
16777215     $F$18
16777215     $G$18
16777215     $H$18
16777215     $A$19
16777215     $B$19
16777215     $C$19
16777215     $D$19
16777215     $E$19
16777215     $F$19
16777215     $G$19
16777215     $H$19
16777215     $A$20

    Yasser's friend
    Code:
    Excel 2010 32 bit
16777215     $A$1
16777215     $B$1
16777215     $C$1
16777215     $D$1
16777215     $E$1
16777215     $F$1
16777215     $G$1
16777215     $H$1
16777215     $A$2
16777215     $B$2
16777215     $C$2
16777215     $D$2
16777215     $E$2
16777215     $F$2
16777215     $G$2
16777215     $H$2
16777215     $A$3
16777215     $B$3
16777215     $C$3
16777215     $D$3
16777215     $E$3
16777215     $F$3
16777215     $G$3
16777215     $H$3
16777215     $A$4
16777215     $B$4
16777215     $C$4
16777215     $D$4
****  15261367  ******   $E$4
16777215     $F$4
16777215     $G$4
16777215     $H$4
16777215     $A$5
16777215     $B$5
16777215     $C$5
16777215     $D$5
16777215     $E$5
16777215     $F$5
16777215     $G$5
16777215     $H$5
16777215     $A$6
16777215     $B$6
16777215     $C$6
16777215     $D$6
16777215     $E$6
16777215     $F$6
16777215     $G$6
16777215     $H$6
16777215     $A$7
16777215     $B$7
16777215     $C$7
16777215     $D$7
16777215     $E$7
16777215     $F$7
16777215     $G$7
16777215     $H$7
16777215     $A$8
16777215     $B$8
16777215     $C$8
16777215     $D$8
16777215     $E$8
16777215     $F$8
16777215     $G$8
16777215     $H$8
16777215     $A$9
16777215     $B$9
16777215     $C$9
16777215     $D$9
16777215     $E$9
16777215     $F$9
16777215     $G$9
16777215     $H$9
16777215     $A$10
16777215     $B$10
16777215     $C$10
16777215     $D$10
16777215     $E$10
16777215     $F$10
16777215     $G$10
16777215     $H$10
16777215     $A$11
16777215     $B$11
16777215     $C$11
16777215     $D$11
16777215     $E$11
16777215     $F$11
16777215     $G$11
16777215     $H$11
16777215     $A$12
16777215     $B$12
16777215     $C$12
16777215     $D$12
16777215     $E$12
16777215     $F$12
16777215     $G$12
16777215     $H$12
16777215     $A$13
16777215     $B$13
16777215     $C$13
16777215     $D$13
16777215     $E$13
16777215     $F$13
16777215     $G$13
16777215     $H$13
16777215     $A$14
16777215     $B$14
16777215     $C$14
16777215     $D$14
16777215     $E$14
16777215     $F$14
16777215     $G$14
16777215     $H$14
16777215     $A$15
16777215     $B$15
16777215     $C$15
16777215     $D$15
16777215     $E$15
16777215     $F$15
16777215     $G$15
16777215     $H$15
16777215     $A$16
16777215     $B$16
16777215     $C$16
16777215     $D$16
16777215     $E$16
16777215     $F$16
16777215     $G$16
16777215     $H$16
16777215     $A$17
16777215     $B$17
16777215     $C$17
16777215     $D$17
****  15261367  ******   $E$17
16777215     $F$17
16777215     $G$17
16777215     $H$17
16777215     $A$18
16777215     $B$18
16777215     $C$18
    One of my XP 2010 machines
    Code:
    Excel 2010 32 bit
16777215     $A$1
16777215     $B$1
16777215     $C$1
16777215     $D$1
16777215     $E$1
16777215     $F$1
16777215     $G$1
16777215     $H$1
16777215     $A$2
16777215     $B$2
16777215     $C$2
16777215     $D$2
16777215     $E$2
16777215     $F$2
16777215     $G$2
16777215     $H$2
16777215     $A$3
16777215     $B$3
16777215     $C$3
16777215     $D$3
16777215     $E$3
16777215     $F$3
16777215     $G$3
16777215     $H$3
16777215     $A$4
16777215     $B$4
16777215     $C$4
16777215     $D$4
****  15261367  ******   $E$4
16777215     $F$4
16777215     $G$4
16777215     $H$4
16777215     $A$5
16777215     $B$5
16777215     $C$5
16777215     $D$5
16777215     $E$5
16777215     $F$5
16777215     $G$5
16777215     $H$5
16777215     $A$6
16777215     $B$6
16777215     $C$6
16777215     $D$6
16777215     $E$6
16777215     $F$6
16777215     $G$6
16777215     $H$6
16777215     $A$7
16777215     $B$7
16777215     $C$7
16777215     $D$7
16777215     $E$7
16777215     $F$7
16777215     $G$7
16777215     $H$7
16777215     $A$8
16777215     $B$8
16777215     $C$8
16777215     $D$8
16777215     $E$8
16777215     $F$8
16777215     $G$8
16777215     $H$8
16777215     $A$9
16777215     $B$9
16777215     $C$9
16777215     $D$9
16777215     $E$9
16777215     $F$9
16777215     $G$9
16777215     $H$9
16777215     $A$10
16777215     $B$10
16777215     $C$10
16777215     $D$10
16777215     $E$10
16777215     $F$10
16777215     $G$10
16777215     $H$10
16777215     $A$11
16777215     $B$11
16777215     $C$11
16777215     $D$11
16777215     $E$11
16777215     $F$11
16777215     $G$11
16777215     $H$11
16777215     $A$12
16777215     $B$12
16777215     $C$12
16777215     $D$12
16777215     $E$12
16777215     $F$12
16777215     $G$12
16777215     $H$12
16777215     $A$13
16777215     $B$13
16777215     $C$13
16777215     $D$13
16777215     $E$13
16777215     $F$13
16777215     $G$13
16777215     $H$13
16777215     $A$14
16777215     $B$14
16777215     $C$14
16777215     $D$14
16777215     $E$14
16777215     $F$14
16777215     $G$14
16777215     $H$14
16777215     $A$15
16777215     $B$15
16777215     $C$15
16777215     $D$15
16777215     $E$15
16777215     $F$15
16777215     $G$15
16777215     $H$15
16777215     $A$16
16777215     $B$16
16777215     $C$16
16777215     $D$16
16777215     $E$16
16777215     $F$16
16777215     $G$16
16777215     $H$16
16777215     $A$17
16777215     $B$17
16777215     $C$17
16777215     $D$17
****  15261367  ******   $E$17
16777215     $F$17
16777215     $G$17
16777215     $H$17
16777215     $A$18
16777215     $B$18
16777215     $C$18
16777215     $D$18
16777215     $E$18
16777215     $F$18
16777215     $G$18
16777215     $H$18
16777215     $A$19
16777215     $B$19
16777215     $C$19
16777215     $D$19
16777215     $E$19
    Seasonal greetings :-)
    Reply With Quote Reply With Quote
  5. 04-12-2021, 05:03 PM #455
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,466
    Rep Power
    10
    post for later use
    Seasonal greetings :-)
    Reply With Quote Reply With Quote
  6. 04-12-2021, 05:07 PM #456
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,466
    Rep Power
    10
    Some extra macros for this Thread
    https://eileenslounge.com/viewtopic.php?f=27&t=36401
    post
    https://eileenslounge.com/viewtopic....282498#p282498


    Code:
    Option Explicit
Sub VergeltungswaffeV1V2() ' http://www.eileenslounge.com/viewtopic.php?f=27&t=36401
Dim Ar As Long, Em As Long
 Let Em = Range("A" & Rows.Count).End(xlUp).Row
Dim A() As Variant: Let A() = Range("A1:A" & Em & "").Value2 '   The main data from column 1
Dim V1() As Variant, V2() As Variant: ReDim V1(1 To Em): ReDim V2(1 To Em) ' These will need to be variant because each element is itself an array  ( a 1 D array )
    For Ar = 1 To Em ' The main data rows range
     Let V1(Ar) = Split(A(Ar, 1), " ", 2, vbBinaryCompare)              '  I am splitting each data into 2 bits, the first is the data  ID  the second is all the rest
     Let V2(Ar) = Split(StrReverse(V1(Ar)(1)), " ", 6, vbBinaryCompare) '  We are splitting the reversed string, because my second data  CITY  might have a few words, I split the backward string in just enough bits so that the last element is the data  CITY  regardles of how many words are in it
     Let V2(Ar)(0) = StrReverse(V2(Ar)(0)): V2(Ar)(1) = StrReverse(V2(Ar)(1)): V2(Ar)(2) = StrReverse(V2(Ar)(2)): V2(Ar)(3) = StrReverse(V2(Ar)(3)): V2(Ar)(4) = StrReverse(V2(Ar)(4)): V2(Ar)(5) = StrReverse(V2(Ar)(5)) '  The problem with the last line is that all my data words and data numbers are in reverse , so I need to put each data back the correct way around
    Next Ar
' The end result of the above is that we have two 1 D arrays, V1() and V2(). Each element is itself a 1 D array. We find that strangely that  INDEX  seems to treat such arrays as like 2 D arrays as long as all the 1 D array elements have the same number of elements. This allows us to use the  Index(arr(), Rws(), Clms())  way to get out our final range in any order we like.
 Let Range("B2:B" & Em + 1 & "").Value = Application.Index(V1(), Evaluate("=Row(1:" & Em & ")"), Array(1)) ' We only want the first column from V1()
 Let Range("C2:H" & Em + 1 & "").Value = Application.Index(V2(), Evaluate("=Row(1:" & Em & ")"), Array(6, 5, 4, 3, 2, 1)) ' We want all the data columns from V2() but need them in the reverse order because we split the reversed string
 Range("A1:H1").EntireColumn.AutoFit
End Sub


Sub VergeltungswaffeV1V2_()
Dim Ar As Long, Em As Long
 Let Em = Range("A" & Rows.Count).End(xlUp).Row
Dim A() As Variant: Let A() = Range("A1:A" & Em & "").Value2 '   The main data from column 1
Dim V1() As Variant, V2() As Variant: ReDim V1(1 To Em): ReDim V2(1 To Em) ' These will need to be variant because each element is itself an array  ( a 1 D array )
    For Ar = 1 To Em ' The main data rows range
     Let V1(Ar) = Split(A(Ar, 1), " ", 2, vbBinaryCompare)              '  I am splitting each data into 2 bits, the first is the data  ID  the second is all the rest
     Let V2(Ar) = Split(StrReverse(V1(Ar)(1)), " ", 6, vbBinaryCompare) '  We are splitting the reversed string, because my second data  CITY  might have a few words, I split the backward string in just enough bits so that the last element is the data  CITY  regardles of how many words are in it
     Let V2(Ar) = Array(StrReverse(V2(Ar)(0)), StrReverse(V2(Ar)(1)), StrReverse(V2(Ar)(2)), StrReverse(V2(Ar)(3)), StrReverse(V2(Ar)(4)), StrReverse(V2(Ar)(5)))      '  The problem with the last line is that all my data words and data numbers are in reverse , so I need to put each data back the correct way around
    Next Ar
' The end result of the above is that we have two 1 D arrays, V1() and V2(). Each element is itself a 1 D array. We find that strangely that  INDEX  seems to treat such arrays as like 2 D arrays as long as all the 1 D array elements have the same number of elements. This allows us to use the  Index(arr(), Rws(), Clms())  way to get out our final range in any order we like.
 Let Range("B2:B" & Em + 1 & "").Value = Application.Index(V1(), Evaluate("=Row(1:" & Em & ")"), Array(1)) ' We only want the first column from V1()
 Let Range("C2:H" & Em + 1 & "").Value = Application.Index(V2(), Evaluate("=Row(1:" & Em & ")"), Array(6, 5, 4, 3, 2, 1)) ' We want all the data columns from V2() but need them in the reverse order because we split the reversed string
 Range("A1:H1").EntireColumn.AutoFit
End Sub

Sub VergeltungswaffeV1V2__()
Dim Ar As Long, Em As Long
 Let Em = Range("A" & Rows.Count).End(xlUp).Row
Dim A() As Variant: Let A() = Range("A1:A" & Em & "").Value2 '   The main data from column 1
Dim V1() As Variant, V2() As Variant: ReDim V1(1 To Em): ReDim V2(1 To Em) ' These will need to be variant because each element is itself an array  ( a 1 D array )
    For Ar = 1 To Em ' The main data rows range
     Let V1(Ar) = Split(A(Ar, 1), " ", 2, vbBinaryCompare)              '  I am splitting each data into 2 bits, the first is the data  ID  the second is all the rest
     Let V2(Ar) = Split(StrReverse(V1(Ar)(1)), " ", 6, vbBinaryCompare) '  We are splitting the reversed string, because my second data  CITY  might have a few words, I split the backward string in just enough bits so that the last element is the data  CITY  regardles of how many words are in it
     Let V2(Ar) = Array(StrReverse(V2(Ar)(5)), StrReverse(V2(Ar)(4)), StrReverse(V2(Ar)(3)), StrReverse(V2(Ar)(2)), StrReverse(V2(Ar)(1)), StrReverse(V2(Ar)(0)))      '  The problem with the last line is that all my data words and data numbers are in reverse , so I need to put each data back the correct way around
    Next Ar
' The end result of the above is that we have two 1 D arrays, V1() and V2(). Each element is itself a 1 D array. We find that strangely that  INDEX  seems to treat such arrays as like 2 D arrays as long as all the 1 D array elements have the same number of elements. This allows us to use the  Index(arr(), Rws(), Clms())  way to get out our final range in any order we like.
 Let Range("B2:B" & Em + 1 & "").Value = Application.Index(V1(), Evaluate("=Row(1:" & Em & ")"), Array(1)) ' We only want the first column from V1()
 Let Range("C2:H" & Em + 1 & "").Value = Application.Index(V2(), Evaluate("=Row(1:" & Em & ")"), Array(1, 2, 3, 4, 5, 6)) ' We want all the data columns from V2() but need them in the reverse order because we split the reversed string
 Range("A1:H1").EntireColumn.AutoFit
End Sub
    Seasonal greetings :-)
    Reply With Quote Reply With Quote
  7. 04-12-2021, 05:10 PM #457
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,466
    Rep Power
    10
    Some extra macros for this Thread
    https://eileenslounge.com/viewtopic.php?f=27&t=36401
    post
    https://eileenslounge.com/viewtopic....282498#p282498


    Code:
    Option Explicit
Sub Dik1Dik2_() '
Dim Ar As Long, Em As Long
 Let Em = Range("A" & Rows.Count).End(xlUp).Row
Dim A() As Variant: Let A() = Range("A1:A" & Em & "").Value2 '   The main data from column 1
Dim Dik1 As Object, Dik2 As Object: Set Dik1 = CreateObject("Scripting.Dictionary"): Set Dik2 = CreateObject("Scripting.Dictionary")
    For Ar = 1 To Em ' The main data rows range
     Let Dik1(Ar) = Split(A(Ar, 1), " ", 2, vbBinaryCompare)              '  I am splitting each data into 2 bits, the first is the data  ID  the second is all the rest
     Let Dik2(Ar) = Split(StrReverse(Dik1(Ar)(1)), " ", 6, vbBinaryCompare) '  We are splitting the reversed string, because my second data  CITY  might have a few words, I split the backward string in just enough bits so that the last element is the data  CITY  regardles of how many words are in it
     Let Dik2(Ar) = Array(StrReverse(Dik2(Ar)(0)), StrReverse(Dik2(Ar)(1)), StrReverse(Dik2(Ar)(2)), StrReverse(Dik2(Ar)(3)), StrReverse(Dik2(Ar)(4)), StrReverse(Dik2(Ar)(5))) '  The problem with the last line is that all my data words and data numbers are in reverse , so I need to put each data back the correct way around
    Next Ar
Dim v: v = Dik1.items()
' The end result of the above is that we have two 1 D arrays in the items of the dictionaries, one in each. Each element is itself a 1 D array. We find that strangely that  INDEX  seems to treat such arrays as like 2 D arrays as long as all the 1 D array elements have the same number of elements. This allows us to use the  Index(arr(), Rws(), Clms())  way to get out our final range in any order we like.
 Let Range("B2:B" & Em + 1 & "").Value = Application.Index(Dik1.items(), Evaluate("=Row(1:" & Em & ")"), Array(1)) ' We only want the first column from V1()
 Let Range("C2:H" & Em + 1 & "").Value = Application.Index(Dik2.items, Evaluate("=Row(1:" & Em & ")"), Array(6, 5, 4, 3, 2, 1)) ' We want all the data columns from V2() but need them in the reverse order because we split the reversed string
 Range("A1:H1").EntireColumn.AutoFit
End Sub

Sub Dik1Dik2__() '
Dim Ar As Long, Em As Long
 Let Em = Range("A" & Rows.Count).End(xlUp).Row
Dim A() As Variant: Let A() = Range("A1:A" & Em & "").Value2 '   The main data from column 1
Dim Dik1 As Object, Dik2 As Object: Set Dik1 = CreateObject("Scripting.Dictionary"): Set Dik2 = CreateObject("Scripting.Dictionary")
    For Ar = 1 To Em ' The main data rows range
     Let Dik1(Ar) = Split(A(Ar, 1), " ", 2, vbBinaryCompare)              '  I am splitting each data into 2 bits, the first is the data  ID  the second is all the rest
     Let Dik2(Ar) = Split(StrReverse(Dik1(Ar)(1)), " ", 6, vbBinaryCompare) '  We are splitting the reversed string, because my second data  CITY  might have a few words, I split the backward string in just enough bits so that the last element is the data  CITY  regardles of how many words are in it
     Let Dik2(Ar) = Array(StrReverse(Dik2(Ar)(5)), StrReverse(Dik2(Ar)(4)), StrReverse(Dik2(Ar)(3)), StrReverse(Dik2(Ar)(2)), StrReverse(Dik2(Ar)(1)), StrReverse(Dik2(Ar)(0))) '  The problem with the last line is that all my data words and data numbers are in reverse , so I need to put each data back the correct way around
    Next Ar
Dim v: v = Dik1.items()
' The end result of the above is that we have two 1 D arrays in the items of the dictionaries, one in each. Each element is itself a 1 D array. We find that strangely that  INDEX  seems to treat such arrays as like 2 D arrays as long as all the 1 D array elements have the same number of elements. This allows us to use the  Index(arr(), Rws(), Clms())  way to get out our final range in any order we like.
 Let Range("B2:B" & Em + 1 & "").Value = Application.Index(Dik1.items(), Evaluate("=Row(1:" & Em & ")"), Array(1)) ' We only want the first column from V1()
 Let Range("C2:H" & Em + 1 & "").Value = Application.Index(Dik2.items, Evaluate("=Row(1:" & Em & ")"), Array(1, 2, 3, 4, 5, 6)) ' We want all the data columns from V2() but need them in the reverse order because we split the reversed string
 Range("A1:H1").EntireColumn.AutoFit
End Sub
    Seasonal greetings :-)
    Reply With Quote Reply With Quote
  8. 04-12-2021, 05:12 PM #458
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,466
    Rep Power
    10
    An extra macro for this Thread
    https://eileenslounge.com/viewtopic.php?f=27&t=36401
    post
    https://eileenslounge.com/viewtopic....282498#p282498



    Code:
    Option Explicit
Sub AL1AL2__() '
Dim Ar As Long, Em As Long
 Let Em = Range("A" & Rows.Count).End(xlUp).Row
Dim A() As Variant: Let A() = Range("A1:A" & Em & "").Value2 '   The main data from column 1
Dim AL1 As Object, AL2 As Object: Set AL1 = CreateObject("System.Collections.ArrayList"): Set AL2 = CreateObject("System.Collections.ArrayList")
    For Ar = 1 To Em ' The main data rows range
     AL1.Add Split(A(Ar, 1), " ", 2, vbBinaryCompare)               '  I am splitting each data into 2 bits, the first is the data  ID  the second is all the rest
     AL2.Add Split(StrReverse(AL1.Item(Ar - 1)(1)), " ", 6, vbBinaryCompare)  '  We are splitting the reversed string, because my second data  CITY  might have a few words, I split the backward string in just enough bits so that the last element is the data  CITY  regardles of how many words are in it
     Let AL2.Item(Ar - 1) = Array(StrReverse(AL2.Item(Ar - 1)(5)), StrReverse(AL2.Item(Ar - 1)(4)), StrReverse(AL2.Item(Ar - 1)(3)), StrReverse(AL2.Item(Ar - 1)(2)), StrReverse(AL2.Item(Ar - 1)(1)), StrReverse(AL2.Item(Ar - 1)(0))) '  The problem with the last line is that all my data words and data numbers are in reverse , so I need to put each data back the correct way around
    Next Ar
' The end result of the above is that we have two 1 D arrays in the Array Lists, one in each.  Each element is itself a 1 D array. We find that strangely that  INDEX  seems to treat such arrays as like 2 D arrays as long as all the 1 D array elements have the same number of elements. This allows us to use the  Index(arr(), Rws(), Clms())  way to get out our final range in any order we like.
 Let Range("B2:B" & Em + 1 & "").Value = Application.Index(AL1.toarray(), Evaluate("=Row(1:" & Em & ")"), Array(1)) ' We only want the first column from V1()
 Let Range("C2:H" & Em + 1 & "").Value = Application.Index(AL2.toarray(), Evaluate("=Row(1:" & Em & ")"), Array(1, 2, 3, 4, 5, 6)) ' We want all the data columns from V2() but need them in the reverse order because we split the reversed string
 Range("A1:H1").EntireColumn.AutoFit
End Sub
    Seasonal greetings :-)
    Reply With Quote Reply With Quote
  9. 04-23-2021, 09:41 AM #459
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,466
    Rep Power
    10
    Some extra notes for the solution to this Thread
    https://excelfox.com/forum/showthrea...lines-by-codes

    This what C2 looks like
    _____ Workbook: LisaExSampleFile.xlsm ( Using Excel 2007 32 bit )
    Row\Col
    C
    2
    		 655; 661; 663; 665; 667; 6688; 670; 677; 678; 68860-68861; 68864; 68877; 6889; 689; 690; 810; 820
    Worksheet: Old

    Code:
    "655" & ";" & " 661" & ";" & " 663" & ";" & " 665" & ";" & " 667" & ";" & " 6688" & ";" & " 670" & ";" & " 677" & ";" & " 678" & ";" & " 68860" & "-" & "68861" & ";" & " 68864" & ";" & " 68877" & ";" & " 6889" & ";" & " 689" & ";" & " 690" & ";" & " 810" & ";" & " 820"
    "655" & ";" & " 661" & ";" & " 663" & ";" & " 665" & ";" & " 667" & ";" & " 6688" & ";" & " 670" & ";" & " 677" & ";" & " 678" & ";" & " 68860" & "-" & "68861" & ";" & " 68864" & ";" & " 68877" & ";" & " 6889" & ";" & " 689" & ";" & " 690" & ";" & " 810" & ";" & " 820"


    Code:
    '  https://excelfox.com/forum/showthread.php/2747-VBA-Macro-which-create-new-lines-by-codes
'  https://excelfox.com/forum/showthread.php/2345-Appendix-Thread-(-Codes-for-other-Threads-HTML-Tables-etc-)?p=15531&viewfull=1#post15531
Sub AlexSaltColumnB()
Dim WsOld As Worksheet: Set WsOld = Workbooks("LisaExSampleFile.xlsm").Worksheets("Old")
Dim strC2 As String: Let strC2 = WsOld.Range("C2").Value2
' https://excelfox.com/forum/showthread.php/2302-quot-What%E2%80%99s-in-a-String-quot-VBA-break-down-Loop-through-character-contents-of-a-string
' https://excelfox.com/forum/showthread.php/2302-quot-What%E2%80%99s-in-a-String-quot-VBA-break-down-Loop-through-character-contents-of-a-string?p=11015&viewfull=1#post11015
' http://www.eileenslounge.com/viewtopic.php?f=30&t=35732&p=278061#p278061
' https://excelfox.com/forum/showthread.php/2302-quot-What%e2%80%99s-in-a-String-quot-VBA-break-down-Loop-through-character-contents-of-a-string?p=15522&viewfull=1#post15522
' https://pastebin.com/HatYwAAD

 Call WtchaGot_Unic_NotMuchIfYaChoppedItOff(strC2) ' A function of mine which i wrote. this analyses all characters in a given text string, in this case a cell in column C
End Sub
'   "655" & ";" & " 661" & ";" & " 663" & ";" & " 665" & ";" & " 667" & ";" & " 6688" & ";" & " 670" & ";" & " 677" & ";" & " 678" & ";" & " 68860" & "-" & "68861" & ";" & " 68864" & ";" & " 68877" & ";" & " 6889" & ";" & " 689" & ";" & " 690" & ";" & " 810" & ";" & " 820"
    Attached Files Attached Files
    Seasonal greetings :-)
    Reply With Quote Reply With Quote
  10. 04-24-2021, 10:49 AM #460
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,466
    Rep Power
    10
    In support of this answer
    https://excelfox.com/forum/showthrea...5532#post15532

    Old Worksheet:

    _____ Workbook: Task.xls ( Using Excel 2007 32 bit )
    Row\Col A B C D E F G H
    1 Name Number Code Note Date Currency Min Max
    2 John 43 655; 661; 663; 665; 667; 6688; 670; 677; 678; 68860-68861; 68864; 68877; 6889; 689; 690; 810; 820 03-01-2021 USD 19.83 24.79
    3 Steve 43 660; 67833; 67890; 67891; 68183; 699 03-01-2021 USD 17.38 21.73
    4 Tom 43 6600; 6990 03-01-2021 USD 17.38 21.73
    5 Anthony 43 644; 664; 680; 681; 688; 69981-69982; 69988-69989 03-01-2021 USD 17.38 21.73
    Worksheet: Old


    New worksheet , Before running macro

    Row\Col A B C D E F G H I
    1 Name Number Code Note Date Currency Min Max
    2
    Worksheet: New

    New worksheet After running Sub Alex1()

    Row\Col A B C D E F G H
    1 Name Number Code Note Date Currency Min Max
    2 John 43 655 03-01-2021 USD 19.83 24.79
    3 John 43 661 03-01-2021 USD 19.83 24.79
    4 John 43 663 03-01-2021 USD 19.83 24.79
    5 John 43 665 03-01-2021 USD 19.83 24.79
    6 John 43 667 03-01-2021 USD 19.83 24.79
    7 John 43 6688 03-01-2021 USD 19.83 24.79
    8 John 43 670 03-01-2021 USD 19.83 24.79
    9 John 43 677 03-01-2021 USD 19.83 24.79
    10 John 43 678 03-01-2021 USD 19.83 24.79
    11 John 43 68860 03-01-2021 USD 19.83 24.79
    12 John 43 68861 03-01-2021 USD 19.83 24.79
    13 John 43 68864 03-01-2021 USD 19.83 24.79
    14 John 43 68877 03-01-2021 USD 19.83 24.79
    15 John 43 6889 03-01-2021 USD 19.83 24.79
    16 John 43 689 03-01-2021 USD 19.83 24.79
    17 John 43 690 03-01-2021 USD 19.83 24.79
    18 John 43 810 03-01-2021 USD 19.83 24.79
    19 John 43 820 03-01-2021 USD 19.83 24.79
    20 Steve 43 660 03-01-2021 USD 17.38 21.73
    21 Steve 43 67833 03-01-2021 USD 17.38 21.73
    22 Steve 43 67890 03-01-2021 USD 17.38 21.73
    23 Steve 43 67891 03-01-2021 USD 17.38 21.73
    24 Steve 43 68183 03-01-2021 USD 17.38 21.73
    25 Steve 43 699 03-01-2021 USD 17.38 21.73
    26 Tom 43 6600 03-01-2021 USD 17.38 21.73
    27 Tom 43 6990 03-01-2021 USD 17.38 21.73
    28 Anthony 43 644 03-01-2021 USD 17.38 21.73
    29 Anthony 43 664 03-01-2021 USD 17.38 21.73
    30 Anthony 43 680 03-01-2021 USD 17.38 21.73
    31 Anthony 43 681 03-01-2021 USD 17.38 21.73
    32 Anthony 43 688 03-01-2021 USD 17.38 21.73
    33 Anthony 43 69981 03-01-2021 USD 17.38 21.73
    34 Anthony 43 69982 03-01-2021 USD 17.38 21.73
    35 Anthony 43 69988 03-01-2021 USD 17.38 21.73
    36 Anthony 43 69989 03-01-2021 USD 17.38 21.73
    Worksheet: New
    Seasonal greetings :-)
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Similar Threads

  1. Rough Notes, and posts to be referenced from elsewhere, on VBA Windows API
    By DocAElstein in forum Test Area
    Replies: 21
    Last Post: 12-15-2024, 07:13 PM
  2. Notes tests, text files, manipulation of text files in Excel and with Excel VBA CSV stuff
    By DocAElstein in forum Test Area
    Replies: 114
    Last Post: 03-04-2024, 02:39 PM
  3. Word Tests. Useful older stuff. Older versions. Chris stuff etc
    By DocAElstein in forum Test Area
    Replies: 42
    Last Post: 05-29-2023, 01:19 PM
  4. Some Date Notes and Tests
    By DocAElstein in forum Test Area
    Replies: 0
    Last Post: 11-23-2021, 10:40 PM
  5. USER FORM ISSUES: Clear data from various ranges using checkboxes and other issues.
    By MrBlackd in forum Excel Help
    Replies: 11
    Last Post: 10-13-2013, 10:53 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules