ed a couple of these after forgetting my OWN passwords.
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 W
omeone stealing another's work.
Evidently, the author wanted to ensure others didn't have access to their code.
If you really wish to break their password protection, a simple Google search
for:
"excel vba password recovery"
results in 234,000 matches.
Paul
-
)
then, your Excel application can read the event log.
If someone else has another approach, I'd be pleased to hear abou it!!!
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 y
with:
=IF(WEEKDAY(A1-9,2)<=5,A1-9,
IF(WEEKDAY(A1-9,2)=6,A1-7,A1-8))
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 lo
you probably haven't
defined a Range object called rangename2 and set this Range Object to be a
specific cell.
in which case the "default" property of the range object is the Value property.
I don't like relying on defaults myself...
Paul
---
is:
If RangeName1 < 16 then
...
End If
If RangeName2 < 16 then
...
End If
If RangeName3 = 16 then
...
End If
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
e solution using the parsing the string and re-assembling it as a valid date
is what is necessary.
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
Exit For
End If
Application.StatusBar = "Iteration: " & i
Application.Wait Now() + TimeValue("00:00:05")
Next i
Application.StatusBar = False
If (wb4 Is Nothing) Then
MsgBox "Failed to open File"
Exit Sub
End If
MsgBox "Complete"
End
mpts to open a file, which is just LOADED with CPU activity!
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 Wesle
w, you aren't trying to "steal" anything (probably).
It might even be your own file you've forgotten the password to!
But how do WE know that?
sorry,
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In
End If
End If
Application.Wait Now() + TimeValue("00:00:05")
Next Loopcnt
If (Not FileFlag) Then
MsgBox "Loop Count exceeded without identifying File"
Else
MsgBox "File Size = " & Format(LastSize, "###,###,###,#
Vaibjav,
Can u explain your formula?
On Thu, Jun 5, 2014 at 1:00 PM, Vaibhav Joshi wrote:
> hi
>
> use formula =INT((EOMONTH(F1,0)-1)/7)*7+1
>
> where cell f1 contains any date in that month.
>
> Cheers!!
>
>
> On Thu, Jun 5, 2014 at 12:55 PM, 'Hanumant' via MS EXCEL AND VBA MACROS <
> excel-ma
for someone to do the work for you, make assumptions as to where
the file is located and how many sheets of data you would like.
do you know how to write macros?
will you be able to modify what we provide to fit your specific needs?
Paul
-
“Do all the good
erall average (or average of all numbers)
is ((100 * 10) + (500 * 20) + (1000 * 30)) / 1600 = 25.625
so, in THIS case, taking the average of the averages isn't the same as
determining the overall average.
So... the answer to your question is:
probably, but
let me know what approach you'd like to take.
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 a
ut it would be a LOT more helpful if I could get a sample data set and perhaps
a partial sample of the output desired.
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 al
seem to exceed the 32768 limit., but
inconsistently.
But then, none of this makes any difference if you're not using a counter...
again.. can you share your code?
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
I
y
2 John
3 Paul
The ID's which fall into the secondary sets would have their data appended
to reflect. At the same time my hope is to be able to record this
information of ID's that have this occur, so I can run a secondary process
where it will search for the originating ID in another
I must be missing something.
This looks to be a simple VLookup function.
You have a sheet that has a list of department/GL codes.
when you enter the department number, use a VLookup() function to retrieve the
GL Account number.
what is the issue? what am I missing?
Paul
2 + 1).Value
If (Cells(R, C2).Value & "X" <> "X") Then bFlag = True
Next C2
Cells(R, nCols).Value = ""
If (bFlag) Then C = C - 1
End If
Next C
o way to know for certain that you actually
have authorization to "break" this password.
If you need to do this, I'd suggest Google.
Searching for "Excel password recovery free" results in 2,280,000 hits.
Surely one of them can help you!
Paul
-
Remember: Google is your friend.
searching for "Call Back URL" returns 1,530,000 hits.
with explanations and examples!
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
lags_Master.xlsb").Sheets("Ora_PN").Range("B3").Value
works but:
Workbooks("Ora_RMS_Flags_Master").Sheets("Ora_PN").Range("B3").Value
Does not...
so it looks like you simply need to include the file extension.
Paul
-
f claim" to "claim
receivable" is:
=MID(A1,AmtofClaim,ClaimRecv-AmtofClaim)
inserting the two FIND() formulas into this formula gives:
=MID(A1,FIND("amt. of claim",A1)+14,FIND(" claim receivable",A1)-(FIND("amt. of
claim",A1)+14))
if you
value. so what happens if the value is 12.55?
your table shows 67.90 as the "next" target% value.
It might be helpful to have more examples.
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places yo
Do you know how to write macros and are asking for help?
or are you asking for someone to write the macro?
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
u need a "rule" that says that in-times after... 18:00? will be
calculated from the previous day.
Also, it looks like your workday is calculated based on 7 hours
(451 is 420 minutes + 31 "extra" minutes)
Is this correct?
What you ask can be
??
That's what sorting does.
evidently, you have additional requirements that you've not included.
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
Any place you have:
Sheets(
add the workbook name:
Workbooks("Firstfile").Sheets(
For the workbook that contains the code, you can use:
Thisworkbook.Sheets(
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
)).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next inx
End If
Next
Application.StatusBar = False
Must be something I changed when I went to test my large sample.
I'll take a look at it.
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 ca
ray = Split(Dict_Data1.Item(sData), ",")
For inx = 0 To UBound(rArray)
With Sheets(Sht1).Range(Cells(rArray(inx), "A"),
Cells(rArray(inx), "I")).Interior
.Pattern = xlSolid
.Pa
Try testing to see if the selected target "intersects" the specified range:
If (Not Intersect(Range(Target.Address), Range("D5:G10")) Is Nothing) Then
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you ca
you're getting a file format error...
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,
uot;string"",0,""NULL""],[""M"",""string"",0,""NULL""],[""N"",""string"",0,""NULL""],[""O"",""string"",0,&qu
ot;A") - 1 Then
Rows(i + 1).Insert xlShiftDown
Cells(i + 1, "A") = Cells(i, "A") + 1
Cells(i + 1, "B") = 0
End If
i = i + 1
Loop
Application.ScreenUpdating = True
Paul
case in which I may have used an array, I
prefer to use a Dictionary Object.
unless, duplicates are allowed.
hope this helps.
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 tim
between 1 and 5
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
hat case, you're spot on.
(although the whole .Visible = true/false for the option buttons is a bit
over-the-top)
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
)
Next Rng
or how to make a User Form?
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
cell.
When the date is changed, the countifs update, and the filter is re-applied.
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 a
bar, or re-creates it if
necessary.
Exiting the workbook causes the toolbar to be deleted.
The only issue with this that I've had is if I have two copies of the workbook
open.
Closing one deletes the toolbar. But I just have to minimize and maximize the
workbook to get it back.
Paul
re to check to see if they differ, because if you simply copy the .Value
you'll get stuck in a loop because it will keep processing the calculate event)
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you
owever, that's going to cause you a problem with:
Cells(45, 5) = LinInterpolate(7, Cl_Array, Cl_Array)
I think you're going to have to either:
Rewrite LinInterpolate to operate on Arrays,
or create a second version that uses Arrays instead of Ranges.
Paul
--
I understand.
Actually, I started writing that, thinking that it was going to be the problem.
Then, decided to do some testing and observation and determined that it was NOT
the cause, but might become a problem in the future, so left it in the email.
Paul
1)
Nexts
should work. (provided you have a value for Pi.
for some reason, my compiler accepts it as a declared variable, but doesn't
have a value!)
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places y
se "HSR-CRD(HR)", _
"HSR-GET HOSTEL", _
"HSR-HRD(HR)", _
"HSR-JINDAL CLUB(HR)", _
"HSR-JINDAL HOUSE", _
"HSR-JMS(HR)"
Selection.Offset(0, 12).Value = "Hisar"
Case Else
Selection.Of
y the file and open the copy, it will warn them at that
time.
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.” - J
Could you send me the entire function?
(you could send it directly)
Is there a relationship between the variables that influences the rate?
I think I'd like to look at nested Select statements.
Paul
-
“Do all the good you can,
By all the mean
There's ALWAYS alternatives,
but without more information, I have no way of knowing which would be
preferable.
To ME, 500 is a "small" number (I deal with 10,000+)
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways
B1 & " " & C1 & " " & D1 & " " & E1 & " " & F1
the "displayed value" of A1 can exceed your 255 character limit.
Paul
-
“Do all the good you ca
se words, but it's still good
programming practice to avoid their use.
.Length is a "property" of the textrange object.
that's why I used nRows instead.
Hope this helps.
Paul
-
“Do all the good you can,
By all the means you can,
In al
I'm not sure what you mean by:
"excel cell has sql query"
Are you using VBA to run a SQL query and placing the result in the cell?
or are you using an "External" source that populates the Excel sheet?
and..
what is it you're trying to do?
Paul
---
ugger.
Being able to pause the program and step through while watching the values of
variables (and change the value on-the-fly) is extremely effective!
So.. Welcome!
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In al
Thirdly, it is ill-advised (not recommended) that you call a subroutine "Run"
(as in Sub Run() )
Run is an Excel Application method.
by calling a user-defined subroutine the same name as a standard method,
depending on where
sion arrays.
>From the "help" for .List,
.List can be used to load a combobox or listbox if loading multi-dimensional
arrays:
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 al
Add these codes:
[code]
Private Sub UserForm_Activate()
Dim AlphaInSlNo As String
Dim NumInSlNo As String
Dim LenSLNo As Integer
Dim NewSlNo As String
Sheets("VolunteerList").Select
LastRecNum = Cells(Rows.Count, "a").End(xlUp).Row 'to go to last data cell
inspite of blank cells
Range("A" &
t;.
the statement itself returns the first entry in CurrDir.
to loop through the rest of the entries in Currdir,
you use Dir()
So basically, Filename = Dir(CurrDir & "*.*",vbDirectory)
gets the first entry,
Filename = Dir()
loops through the rest of the entries.
BTW: All this c
try:
=IF(C4>121,IF(C8<50,10,20),
IF(C8<50,(1*C4*60)/(0.75*1000),
(2*C4*60)/(0.75*1000)
)
)
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the place
to speed it up.
BTW: How many sheets does it typically break down into?
how many parameters? (columns)?
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
Hi Experts.
I have found numerous examples of *Range("E3").Dirty* like standard VBA
code in websites. As per their explanation; it forces "E3" cell to
recalculate when Excel is
manual calculation mode. Could anyone in this group give me an example of
practical application of this property?
()
Dim dval As Date
dval = Range("A1").Value
dval = dval + 30
Range("B1").Value = dval
End Sub
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
lue is:
41514.623611
So, if you're using the countif of only the "time" portion, then
the number count will not be what you expect.
Good luck.
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the pl
running wonderfully for nearly 10 years,
but I want to make some additions.
But it doesn't have the "structured" password that I use today, so I have no
idea what I would've used!
So, I guess I'll be looking too!
Paul
-
“Do all the
rotection.
That said: If you simply Google "Excel password recovery" you'll get several
sites that should have something that can assist you.
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places yo
ter than [space].
The problem is with the first character (>).
in some cases, you may WANT to count values greater than a specific value.
=countif provides this capability.
However, in your case, you actually want to compare the exact string.
If you were to change your representations to:
0-3 Day
5 million records it is DERIVED from, I suppose it's
not very large..
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 y
mewhat) complex formula,
it might not be obvious when the formula isn't giving desired results.
This can be caught early if the logic is understood.
glad I could help.
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In a
In your first message, you didn't mention that the value in column A may not
match the values in the row!
The solution I provide could be used.
simply use the MATCH() function to return the row number of the matching value
from column A and use that instead of the ROW() functions I used.
$1)+7)
The problem is, this is a STRING.
the SUM() function wants a RANGE.
There is a function that "interprets" a string as a Range.
The function is INDIRECT()
So, now you have:
=INDIRECT(ADDRESS(ROW(),8) & ":" & ADDRESS(ROW(
My PC was upgraded, with a graphics card with 5Gb memory.
The problem still occurs sometimes, but usually when I have LOTS of
applications open.
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,
Hi,
Please join me in this group
Regards,
Soumyendu
--
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 thr
iple selections,
you'll have to get creative with
you will have to create a public variable that can be set to an array.
Then, loop through the "targets" passed to the events and store the values and
row numbers in the array.
Paul
-
“D
ent means to "Dimension"
which the way in which we "Declare" that a variable (Rng) is type "Range".
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 time
.80
is the same as
Range.Value = .80
In your code, you use:
If Range.Value < 0.8
yet you then use:
Range = .80
it seems that the usage is inconsistent.
hope this helps,
Paul
From: Prafull Jadhav
To: excel-macros@googlegroups.com
Sent: Thu, June 6, 2013 7
more to
figure out and assemble sample data.
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
and
past
the selection.
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
s?
Could you please explain what it is you wish to do?
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.”
Please keep in mind that the FORUM RULES state:
3) Don't post questions regarding breaking or bypassing any security measure.
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
o longer
cause a problem.
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 eve
You basically have two choices.
You either have to put the files in a shared folder (that others would also
have
access to)
or you have to include the files in the "Master file".
You said that you don't want to send the files,
so that leaves you with storing them in a shared
al
End Function
Then, for each of the TextBoxes, I would create a Change event that calls the
Sum_Textboxes() function to update the total:
Private Sub TextBox1_Change()
SUM.Txt_Total = Sum_Textboxes
End Sub
Paul
-
“Do all the good you
' Look in previous rows for records with same "ID"
'--
For RowNum = 1 To Targ.Row - 1
If (Cells(RowNum, "A").
function, add a line:
msg = msg & chr(13) & msg
back in the CopyData() macro, replace the msgbox line with:
msgbox msg
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 ti
er (_), like:
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=False
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
ow!
I'd rather spend the time helping your knowledge grow!
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 eve
cnt + Get_FolderData(SubFldr.Path)
Next SubFldr
Get_FolderData = cnt
End Function
Function Copy_FileData(Foldername)
Application.ScreenUpdating = False
Workbooks.Open Foldername & "Book1.xls"
' copy stuff ...
Workbooks("Book1.xls").Close savechan
How comfortable are you with VBA?
How much of this do you need help with?
The Filesystem object is used to set up the folder/subfolder navigation.
the function calls themselves are not difficult.
Do you then need help copying rows of data?
Paul
-
“Do all
response = vbYes Then
...
ElseIf response = vbNo Then
...
Else
Exit For
End If
Result included below...
Paul
From: DHAMODHARAN KARTHIKEYAN
To: excel-macros@googlegroups.com
Sent: Thu, May 16, 2013 11:39:32 AM
Subject: Fwd: $$
g the sheet that is now in the first position!
So, instead, I would start at the LAST sheet, and begin processing to the first.
Like:
For Sht from sheets.count to 1 step -1
if (sheets(sht).range("A1").value = "") then
sheets(sht).move af
You are currently testing your "response" variable
for vbYes and vbNo
If you simply add:
Else
Exit for
then, whenever neither the Yes button, or the No button is pressed
(like when you hit "Escape" or "cancel" the window)
t
ataSht).Cells(R, C).Value & "X" <> "X") Then _
Sheets(Sht).Cells(R - 1, "A").Value = Sheets(DataSht).Cells(R,
C).Value
Next R
Next C
Application.ScreenUpdating = True
Sheets(DataSht).Select
MsgBox "Finished"
End Sub
I take it that your "Column Labels" in row 2 are to be the sheet names?
Then you want to copy the data in each column to that sheet?
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,
need help writing the macro?
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 W
Are you wanting to do it with a macro? or simply within Excel?
If you want to do it one time, with Excel,
it's simply a matter of selecting the column, and use Data->Text to Columns
Paul
-
“Do all the good you can,
By all the means you can,
In
Are you familiar with macros?
This is pretty straight-forward.
Try recording a macro in which you perform the steps as you've described.
Then, edit the macro and replace the specific names with the cell values.
Paul
-
“Do all the good you can,
B
So... you're saying copy/paste traspose isn't an option and you want a macro.
do you know anything about macros?
or are you wanting someone to write one for you?
either way, if you want help with a macro, you'll have to provide WAY more
information than you&#
t as
"ActiveSheet".
Then, you need to set up a loop to cycle through your list of names.
There's a variety of ways of doing this,
I ended up with:
Dim nrows, R, sht
sht = ActiveSheet.Name
nrows = Application.WorksheetFunction.CountA(Range("A1:A6500"))
Fo
without suffering
significantly (depending on the complexity of the macro running).
Depending on your version of Windows and Excel, the technique for opening
multiple instances differs.
You can Google "Multiple Excel Instances" and look for your version.
Paul
What you SEEM to be asking is if you can hide columns based on the value of
cells in a ROW.
Excel has no built-in functionality to do that.
Your options are:
Copy and paste/transpose the data into another sheet and apply AutoFilter.
Or write a macro that hides columns based on your criteria.
701 - 800 of 1741 matches
Mail list logo
