Hello. I hawe an issue. I receive an error when I try to renamd files that contain ș ț î ă â (romanian characters) and. Do you hawe a solution for this?
Sub Bulk_Rename() Dim folder_Path As String Dim oldname As String Dim i As Long With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = True If .Show = -1 Then folder_Path = .SelectedItems(1) oldname = Dir(folder_Path & Application.PathSeparator & "*") Do Until oldname = "" i = 0 On Error Resume Next i = Application.Match(oldname, Range("A:A"), 0) If i > 0 Then Name folder_Path & Application.PathSeparator & oldname As folder_Path & Application.PathSeparator & Cells(i, "B").Value End If oldname = Dir Loop End If End With End Sub
nice explaination...it worked for me
Can you help me? It's not working for me
Thank you so much Sir
Thank you sir very very much
Hello. I hawe an issue. I receive an error when I try to renamd files that contain ș ț î ă â (romanian characters) and. Do you hawe a solution for this?
sir can you give this code
Please share the rename code.. i can't find
Sub Bulk_Rename()
Dim folder_Path As String
Dim oldname As String
Dim i As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = True
If .Show = -1 Then
folder_Path = .SelectedItems(1)
oldname = Dir(folder_Path & Application.PathSeparator & "*")
Do Until oldname = ""
i = 0
On Error Resume Next
i = Application.Match(oldname, Range("A:A"), 0)
If i > 0 Then
Name folder_Path & Application.PathSeparator & oldname As folder_Path & Application.PathSeparator & Cells(i, "B").Value
End If
oldname = Dir
Loop
End If
End With
End Sub
Sir aap nios ki video aur kyu nhi daalte ho
Which subject u want?
@@TechTricks360 Englishmedium me history, geography, home science, Hindi aur Sir English me apne do video hi daali hai
Please reply me sir
@@srishtinaagar8465 ok in a week or two..