Results 1 to 2 of 2

Thread: Delete me , Or edit and use me

  1. #1
    Sir Moderator sandy666's Avatar
    Join Date
    May 2018
    Posts
    233
    Rep Power
    6

    Cool Delete me , Or edit and use me

    Hi there,

    Delete this Thread, or edit it and use it as you choose

    KJAGDJadkjaHGDakjhdKHGDWUDZUD

    akjdKJADAKJHDKJDH





























    new FT is a different but I found it here and it works

    Code:
    #If VBA7 Then
        #If USE_RGB Then
            Public Const TB_BORDER_COLOR As String = "rgb(182, 170, 166)"
            Public Const COLHDR_BCKGRND_COLOR As String = "rgb(0, 0, 0)"
            Public Const ROWHDR_FONT_COLOR As String = "rgb(32, 17, 22)"
            Public Const csHEADER_COLOR As String = "rgb(255, 255, 255)"
            Public Const csROW_BACK As String = "rgb(255, 255, 255)"
        #Else
            Public Const TB_BORDER_COLOR As String = "#B6AAA6"
            Public Const COLHDR_BCKGRND_COLOR As String = "#000000"
            Public Const ROWHDR_FONT_COLOR As String = "#201116"
            Public Const csHEADER_COLOR As String = "#FFFFFF"
            Public Const csROW_BACK As String = "#FFFFFF"
        #End If
        Public Const ROWHDR_BCKGRND_COLOR As String = COLHDR_BCKGRND_COLOR
        Public Const ROWHDR_BORDER_COLOR As String = TB_BORDER_COLOR
    #Else
        #If USE_RGB Then
            Public Const TB_BORDER_COLOR As String = "rgb(182, 170, 166)"
            Public Const COLHDR_BCKGRND_COLOR As String = "rgb(0, 0, 0)"
            Public Const ROWHDR_FONT_COLOR As String = "rgb(32, 17, 22)"
            Public Const csHEADER_COLOR As String = "rgb(255, 255, 255)"
            Public Const csROW_BACK As String = "rgb(255, 255, 255)"
        #Else
            Public Const TB_BORDER_COLOR As String = "#B6AAA6"
            Public Const COLHDR_BCKGRND_COLOR As String = "#000000"
            Public Const ROWHDR_FONT_COLOR As String = "#201116"
            Public Const csHEADER_COLOR As String = "#FFFFFF"
            Public Const csROW_BACK As String = "#FFFFFF"
        #End If
        Public Const ROWHDR_BCKGRND_COLOR As String = COLHDR_BCKGRND_COLOR
        Public Const ROWHDR_BORDER_COLOR As String = TB_BORDER_COLOR
    #End If
    
    
    #If USE_RGB Then
        Public Const TB_BCKGRND_COLOR As String = "rgb(255, 255, 255)"
        Public Const TB_FONT_COLOR    As String = "rgb(48, 34, 38)"
    #Else
        Public Const TB_BCKGRND_COLOR As String = "#FFFFFF"
        Public Const TB_FONT_COLOR    As String = "#302226"
    #End If
    Public Const TB_FONT_SIZE     As String = "11pt"
    Public Const TB_PADDING       As String = "0.3em"
    Public Const MAX_BRACKETS     As Long = 100
    Public Const MAX_ROWS         As Long = 100
    Public Const MAX_COL          As Long = 100
    
    Enum FormulaSettings
        NotSet = -1
        AllFormulas = 0
        FirstCell = 1
        FirstCellInColumn = 2
        NoFormulas = 3
        UserDefined = 4
    End Enum

    idiotic! code tags doesn't keep format after edit

    hm, now it works, weird
    Last edited by DocAElstein; 09-18-2020 at 12:47 PM.
    sandy
    I know you know but I forgot my Crystal Ball and don't know what you know also I may not remember what I did weeks, months or years ago so answer asap. Thinking doesn't hurt

  2. #2
    Sir Moderator sandy666's Avatar
    Join Date
    May 2018
    Posts
    233
    Rep Power
    6

    Cool

    Hi there!











    but this is mSettings not mBBcode


    A
    B
    C
    D
    E
    1
    Date ID Name Company Country
    2
    21/03/2018 16850307-6211 Felix Weiss Sem LLP Sierra Leone
    3
    18/04/2018 16300905-7245 Maggy Z. Cruz Malesuada Augue Corp. Tonga
    4
    02/08/2017 16910128-2987 Melyssa Hale Mi Corporation Liechtenstein
    5
    19/01/2018 16340924-6224 Beau E. Colon Ultrices Iaculis Odio Corporation Kazakhstan
    6
    01/06/2018 16490821-7609 Brenden Roach Nulla Aliquet PC Botswana
    7
    23/04/2017 16590903-0263 Ahmed U. Joyner Nec Cursus LLP Fiji
    8
    06/04/2019 16760811-7656 Signe Reilly Suspendisse Ac Metus Limited Uruguay
    9
    21/05/2017 16161112-9816 Candice G. Soto Enim Limited Cape Verde
    10
    06/08/2018 16301111-8365 Casey N. Rivas Amet Limited Nicaragua
    11
    29/11/2018 16600616-1431 Bevis Whitney Pharetra Nibh Aliquam LLP Ukraine
    12
    12/01/2019 16960108-3315 Ralph D. Andrews Ultricies Ligula Corp. Angola


    doesn't matter ... It works !!!
    Last edited by DocAElstein; 09-16-2020 at 12:57 PM.
    sandy
    I know you know but I forgot my Crystal Ball and don't know what you know also I may not remember what I did weeks, months or years ago so answer asap. Thinking doesn't hurt

Similar Threads

  1. VBA: Copy files in excel, edit and save
    By vbadumb in forum Excel Help
    Replies: 3
    Last Post: 12-27-2019, 05:25 PM
  2. Replies: 6
    Last Post: 03-26-2014, 03:04 PM
  3. Macro to fetch csv file and edit the file
    By dhivya.enjoy in forum Excel Help
    Replies: 6
    Last Post: 10-23-2013, 01:00 PM
  4. Replies: 1
    Last Post: 08-07-2013, 07:41 AM
  5. Reverse name in excel with upper case,edit formula
    By shrinivasmj in forum Excel Help
    Replies: 3
    Last Post: 09-11-2012, 01:31 PM

Posting Permissions

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