If fName = atnst-a2-2_m_2_2x.jpg
then Replace(fName,"_","-")
will result in fname = atnst-a2-2-m-2-2x.jpg
then, the split() command will divide this string using the "-" as a delimiter,
resulting in:fArray(0) = atnstfArray(1) = a2fArray(2) = 2fArray(3) = mfArray(4)
= 2fArray(5) = 2x.jpg
So, ye
?? You mean like:
fArray = Split(Replace(fName,"_","-"), "-")
??Paul-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - Joh
Hey Paul,
Have a issue, can we include both conditions like,currently i hav image
with both strings like atnst-a2-2*_*m_2_2x.jpg (with _ underscore) & dash
(-).
Please include both conditions in image separation ( _ & - )
this is the line, where you have written the separation condition
*fArray
hello Group,
Need help with saving each page ( as a PDF or a word file) of a mail merge
document. I tried to find a few codes on the net but havent been able to work
my way around any of those ?:(
Thanks and Regards,
Gargee Singh
--
Are you =EXP(
Hi Experts,
Right now am using a code to copy a batch of file from a folder & pasting
them in new folder but the issue is, i have to put all the file names in a
column & right now i have files in a different columns.
So please check the attached files & the code & please modify it for
selecting th
Sub export_as_pdf()
Dim WordDoc As New Word.Document
Dim WordApp As New Word.Application
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\xyz.docx")
Hello everyone,
Sorry forgot to share the file .
Thanks and Regards,
Gargee Singh
From: garge...@hotmail.com
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ VBA to save each page of a mail merge document
seperately
Date: Wed, 16 Mar 2016 18:50:06 +0530
hello Group,
Need help
HI
I DID KNOW THE WAY THE PERSON SHOWING IN THE VIDEO BUT HOW DO I DO IF I
HAVE ONE HUNDRED THOUSAND STUDENTS AND WANT TO EXTRACT A CERTAIN PERCENTAGE
FOR ALL THE INDIVIDUAL AT THE SAME TIME NOT INDIVIDUALLY. I THINK IT IS
POSSIBLE THROUGH SOLVER BUT I DONT KNOW THE WAY FOR FINDING THE PERCEN
Hi,
I know this is an excel forum, but the topic is somewhat relevant I'm
hoping the user base here might have the right knowledge.
I'm putting bar charts in a MS Word document. For each chart an embedded
excel worksheet pops up and I can go in and update the data for that chart.
All is good
What I would do is:After using the FileDialog functions to select the
source/destination folders,I would loop through the entire range from B2 to
M5000 and look for non-blank cells.then, if the cell contains the name of a
file that exists, copy the file.Like:
Dim rng As Range
Dim dRange
That is what I'm saying (I think).Attached you will see changes I made to your
macro.You can either set the range = M2:M5000Set dRange = Range("B2:M5000")
or you can select a specific range and only process the cells selected:
Set dRange = Selection
If the macro stops when it encounters a #N/A o
Paul,
I mean to say, that right now the code which am using to perform this
event. I have to put all the files in a column like below.
a850kaa271-m-1-3x.jpg
a850kaa272_m_1_3x.jpg
aip4kaa271_m_1_3x.jpg
aip5ckaa271_m_1_3x.jpg
and i want to perform this event with the data like below & i am getin
Are you saying that you want the macro to treat the filename like
"atnst-a2-2_m_2_2x.jpg "as if the "-" and the "_" are the same?
In that case, I would temporarily replace the "_" with "-" and split the name
into the array:
fArray = Split(Replace(fName,"_","-"), "-")
Paul-
In VBA, you'll need to include the "Microsoft Outlook 14.0 Object Library
"(under Tools->References)
then, this VBA code should work:(use your own email addresses for
"name@domain")---Option Explicit
Sub Test_Mail()
Dim Stat, fso
Dim Mail_Addr_To, Mail_Addr_CC, Mai
Hi Paul,
i have the Microsoft Outlook 15.0 Object Library.
The Macros runs fine if I remove the updates and display alerts, if not it
generates error.
'Application.ScreenUpdating = False
'Application.DisplayAlerts = False
This is great starting point, my challenge now besides the error is how d
15 matches
Mail list logo