--------------------------------------------
On Tue, 2/21/17, Emamuddin Shah <emt...@gmail.com> wrote:
Subject: Re: $$Excel-Macros$$ Re: Once IF is met it is not looping
To: "MS EXCEL AND VBA MACROS" <excel-macros@googlegroups.com>
Cc: schreiner_p...@att.net
Date: Tuesday, February 21, 2017, 3:11 PM
Dear
Paul,
hope you have got
change to go through the attached files.
---Emam
On Monday,
February 6, 2017 at 10:01:43 AM UTC+5:30, Emamuddin Shah
wrote:Hi Paul,
Hope you have received my
email.
Regards
Emam
On
Wednesday, February 1, 2017 at 12:52:28 PM UTC+5:30,
Emamuddin Shah wrote:Dear Paul,
i will share my both excel
sheets, so that you can check where iam wrong and correct
it, since the document is confidential i cant share here,
plz provide your email id.
regards
Emam
On Thursday, October 20, 2016
at 7:04:17 PM UTC+5:30, Paul Schreiner wrote:Mr.
Emamuddin,
I'm
looking through your code and have encountered some
issues.
First, your
sample file is only one sheet,with a Header in
row 1 and 2 rows of data in 24 columns (A:X)
In your code, you use:
sc =
Sheets.CountWhich, of course sets the
variable "sc" equal to the total number of
sheets.
but, when you use: For
c = 1 To 27
cold(c) =
Sheets(sc).Cells(c, 3).Value
Next
c
You're loading data from the LAST sheet of the
workbook.Using your sample file, having
only 1 sheet, this will use this sheet.However, your variables "c" and
"cold" IMPLY "column" and
"Column-Old"
but your in your loop: the
Cells() function syntax is "Cells(row,column)which means that your loop is
loading ROWS 1 to
27, column 3 (C) into the cold() array.
Your next
loop:For b = lr - (size - 1) To
lr
will fail with your sample file, since:lr = 4size = 100
so your loop
is:For b = -95 to 4
In the first
iteration, it will fail for row -95 of the cells()
function.
Of course, I cannot test the code: Workbooks.Open
Filename:=Sheets(sc).Cells(1,
8), Password:=Sheets(sc).Cells(10, 8).Value
because the
sample file does not have a filename in row 1, column
"H"
I suggest you utilize the
"breakpoint" functionality of the VBEditor and
step through your program one line at a time and monitor the
variables.
also, to help you with reading the code, try using
the column LETTER in the cells() function when you
can.
That is: Cells(1,"C") for row 1, column
C instead of cells(1,3)You're less
likely to confuse the row/column.
Of course, this
doesn't apply when you're referring to the array
index.
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.” - John Wesley
------------------------------
-----------
On Wednesday, October
19, 2016 7:39 AM, Emamuddin Shah <emt...@gmail.com> wrote:
there are x rows
more than 100 in that i want to update 50 rows or 20 rows
whatever.
iam able to get row details in
array, but those details are not getting updated on next
workbook
i have attached
exscel sheet format which iam using, there is 1 more similar
file with coloumns shuffeled
please find
attached
On Tuesday,
October 18, 2016 at 7:11:00 PM UTC+5:30, Paul Schreiner
wrote:I'm trying
to follow.There are easier ways to load the
array from the cell values, but I'll get to that
later.
But:You said that you
have 50 rows. that means that
with:lr = Activecell.Cells(.Rows.count,
"A").End(xlUp).Row + 1
lr (last row) =
51you set:size =
100So, for your loop:For b = lr - (size - 1) To lr
b = 51
-(100-1) to 51orb
= -48 to 51
so this should produce an error when you
execute:
cmail(ab) = Cells(b, cold(7)).Value
What are the
values in column "C" rows 1-27?from your use of cold(), they must be
integers.
Can you send me a sample file?we can step through it and figure out what
happens
in the second iteration.
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.” - John Wesley
------------------------------
-----------
On Tuesday, October
18, 2016 8:49 AM, Emamuddin Shah <emt...@gmail.com> wrote:
ITS NOT UPDATED
ALL 50 STRINGS ROW DETAILS.
IT IS UPDATING
ONLY FIRST MATCHED STRING ROW.
On Tuesday, October 18, 2016 at 6:13:56 PM
UTC+5:30, Emamuddin Shah wrote:Hello
Iam trying
to Loop so that it matched a string and then fills cells in
that row.
say i have 50 strings to be
matched and then update date on that row, data i have
stored in ARRAY
here is my
part of code where I am struck
++++++++++++++++++=
cm = 1
For i =
2 To lri
If Cells(i, 7) = cmail(cm) Then
Cells(i, 15).Value = stat1(cm)
Cells(i, 16).Value = stat2(cm)
Cells(i, 17).Value = ccdate(cm)
Cells(i, 18).Value = ctime(cm)
cm = cm + 1
End If
Next
++++++++++++++++++++++++++++++ +
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
Facebook page of this forum @ https://www.facebook.com/
discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles,
like Please Help, Urgent, Need Help, Formula Problem, Code
Problem, and Need Advice will not get quick attention or may
not be answered.
2) Don't post a question in the thread of another
member.
3) Don't post questions regarding breaking or bypassing
any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not
allowed.
NOTE : Don't ever post confidential data in a workbook.
Forum owners and members are not responsible for any
loss.
---
You received this message because you are subscribed to the
Google Groups "MS EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails
from it, send an email to excel-macros...@ googlegroups.com.
To post to this group, send email to excel-...@googlegroups.com.
Visit this group at https://groups.google.com/
group/excel-macros.
For more options, visit https://groups.google.com/d/
optout.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
Facebook page of this forum @ https://www.facebook.com/
discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles,
like Please Help, Urgent, Need Help, Formula Problem, Code
Problem, and Need Advice will not get quick attention or may
not be answered.
2) Don't post a question in the thread of another
member.
3) Don't post questions regarding breaking or bypassing
any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not
allowed.
NOTE : Don't ever post confidential data in a workbook.
Forum owners and members are not responsible for any
loss.
---
You received this message because you are subscribed to the
Google Groups "MS EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails
from it, send an email to excel-macros...@googlegroups. com.
To post to this group, send email to excel-...@googlegroups.com.
Visit this group at https://groups.google.com/
group/excel-macros.
For more options, visit https://groups.google.com/d/
optout.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
Facebook page of this forum @ https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles,
like Please Help, Urgent, Need Help, Formula Problem, Code
Problem, and Need Advice will not get quick attention or may
not be answered.
2) Don't post a question in the thread of another
member.
3) Don't post questions regarding breaking or bypassing
any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not
allowed.
NOTE : Don't ever post confidential data in a workbook.
Forum owners and members are not responsible for any
loss.
---
You received this message because you are subscribed to the
Google Groups "MS EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails
from it, send an email to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
** Institutii feudale din tarile Romane. Dictionar coordonator Ovid
Sachelarie si Nicolae
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
