Hi,
What I wan most in the forume is the option to subscribe in a post like this I will receive an email about suggested solution and I will filter the best one (later when I face a similar problem I can just check my mail clien (thunderbird) for that solution).
I don't know how to redit my post but try this version...
Option Explicit
Private WithEvents App As Application
Private Sub Workbook_Open()
Set App = Application
End Sub
Private Sub App_NewWorkbook(ByVal wb As Workbook)
AddFooters wb
End Sub
Private Sub App_WorkbookNewSheet(ByVal wb As...
Did you tried to write an add-in with application event.
http://www.mediafire.com/download/3ulwr961u8pjzxu/events.xlam
you need to implement AddFooter(...)
and install this add-in in order to work for any new|opened workbook or sheet added
Private WithEvents App As Application
Private Sub...
Thanks, It worked very well.
I want to anderstand it.
the COLUMN() return the serie the array (1,2,3 ...)
the (A2:H2=60) return the array of (0,1) (True,false) if data is 60
the ()*() return array of coloumn N° such the condition is true
but what max return ?! is it the array where all...
Hi,
given a 2 rows:
row date: is an incremented serie of dates B2, B2+1, C2+1, ...etc
row data: is an increasing sequence of values from a fixed set X={60,30,20,10}
date: 7/22/2013 7/23/2013 7/24/2013 7/25/2013 7/26/2013 7/27/2013 7/28/2013 7/29/2013
data: 60 60 60 30...
Hi, I can't see any problem here!
In columns AB put a formula like:
=IF($D$4="In-House",$AM9,$AN9)
In AM put a formula like:
=IF(B9>$B$4,1, ((($B9-$B$4)*Variables!$E$3)/6.5))+1
In AN put a formula like:
I need more info in case of (b < 8 or b > 30) what value you want?
@shrivallabha, very good code!! but...in this line:
'Load the values back to worksheet
Sheet1.Range("A2:F" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row).Value = varCheck
only 2 columns need to be written not 6.
And I think "objDic.Add" methode involve (hash and...
Hi,
Can You sort the columns A and B and use strComp to skip unessary test!?
or this option is slow also!?
some think like this algorithm:
while (n <= nRow) {
Res1 = ...;
while (l <= lRow){
Res2 = ...;
c = strComp(Res1, Res2);
if ( c < 0)
{
l = l+ 1;
continue; // look for the...
Thanks for the tip Debraj,
In the future I will use 'index number' for my codes; but for public code I prefer to use 'xlShiftUp' for readability...
Today I learned a lot!!
@Shrivallabha,
Thanks, this is why I'm here to learn from the pro!
I'm new VBA coder and I learned from this site a lot.
Yes, I see my error...I will not do it again.
If I wait another day before answring to this question (after viewing codes in chandoo.org forum) my code will look exactly...
Try this:
Sub DelRowUp5Columns()
Dim rg As Range, C As Range, CG As Range
Set C = Intersect(Range("C:C"), ActiveSheet.UsedRange)
For Each rg In C
If rg = "" Then
Set CG = Intersect(rg.EntireRow, Range("C:G"))
CG.Delete Shift:=xlUp
End If
Next rg
End Sub
Thanks you all, My stupid solution was to use choose and manualy enter the month name but the [$-409]mmm is exctly what I want; now the month name is always in english.
Thanks again.
How to always format cell date to output only month in english
ex:
17/05/2013 -> "May" and not (Mai) in french I use Format Cells... ->Custom-> mmm
Thanks in advince.
Thanks SirJB7 I will read the green sticky etc..
about your answer
a) is the easy solution and not what I want.
b) who can change ~50 formula every day? thats hard!
I have a friend that some one show him how to do it; but too bad he forgot how to do it!?
I have a workbook that start with one sheet and grow every day (I use move and copy... to create a new copy of previous sheet) my question is:
in sheet(i) where i>1, I have a lot of formulat (~50) depend to sheet(i-1) so when I mad a copy of sheet(i) to generate sheet(i+1) what I whant is...