Copy From Folder ready need add color Tracker.

[Tofik]

Hi Gods of Excel, how are you ? ?
Guys, I took this formula from one place and try it works perfect. It can copy files from one folder to another, but I want to update it and add color in cells which were copied something as indicator ( fore example green color). Is it possible ?
Example:

Sub copyfiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = "Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
        End If
    Next
End Sub

 

[brookep5842]

Hi! This might be what you're looking for.
I'm not sure if it's 'best practice' but it will simply fill the cells you chose green. I left the font color and border color black.

The 4 is the green color code. 1 is the black color code. The image I attached has the colorindex codes if you want to change them.

Paste this after the 'Next'.

  Range(xRg.Address).Select
    With xRg
    
        .Interior.ColorIndex = 4
        .Font.ColorIndex = 1
        .Borders.ColorIndex = 1
        
    End With

 

[Marc L]

Hi,​

​

this codeline Range(xRg.Address).Select is superfluous, useless …​

 

[brookep5842]

Hi,​

​

this codeline Range(xRg.Address).Select is superfluous, useless …​

Oh yea, thank you for pointing that out ^^

 

[Marc L]

​

And as a reminder Range(xRg.Address) is equal to (♪ drumrolls ♫) :

Spoiler

xRg ‼

 

[Tofik]

Any solutions ?

 

[brookep5842]

Any solutions ?

I made a comment earlier, take a look if you haven't already^^