I also tried to write:
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To finalrow
If IsDate = True Then
Cells.NumberFormat = "dd/mm/"
End If
Next i
but i get an error: Argument not optional.
On Friday, May 30, 2014 12:07:47 PM UTC+3, Kof Bar wrote:
>
> I re
Thanks, it work wonderfully! :)
bless you.
Daniel.
On Friday, May 30, 2014 9:46:29 AM UTC, Abhi wrote:
>
> Try this:
>
> Private Sub test()
> Dim myrng As Range
> Set myrng = ActiveSheet.UsedRange
> For Each cell In myrng
> If IsDate(cell.Value) = True Then
>
Hello,
An empty sample file, with only the headers would help. If it's not
possible, please indicate which are the headers and their respective
columns.
Regards.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Su
ons(1).Interior.ColorIndex = 1
.FormatConditions(1).StopIfTrue = True
End With
End Sub
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Nuria Gimenez
Envoyé : mercredi 16 février 2011 10:46
À : excel-macros@googlegroups.com
Objet : $$Excel-Mac
Then
test
End If
End If
Next c
End Sub
You can see the sample file here :
http://www.filedropper.com/110221
Regards.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Suhas
Envoyé :
Hello,
What is not working ? Do you get an error ?
What are you trying to do ?
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de rakesh kumar
Envoyé : dimanche 20 février 2011 11:16
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ CODE
The code is correct. Simply, there is no match and the test is always false.
Can you post your data ?
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de rakesh kumar
Envoyé : dimanche 20 février 2011 21:35
À : excel-macros@googlegroups.com
Objet
Hello,
Try :
With ActiveSheet.PageSetup
.CenterHeader = "original for the buyer"
ActiveSheet.PrintOut
.CenterHeader = "Duplicate for the seller"
ActiveSheet.PrintOut
.CenterHeader = "Transporter's Copy"
ActiveSheet.PrintOut
&
Hello,
I have to know which enterprise owns a particular sheet and which one is
grouped in the "others" sheet.
Maybe one more column in the "Main" sheet ?
Regards.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups
To place the top left part of the chart in , say, D15 :
ActiveChart.Parent.Top = Range("D15").Top
ActiveChart.Parent.Left = Range("D15").Left
HTH
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Hector Ruiz
Envoyé : l
be modified.
To upload a file, go to :
http://www.filedropper.com
click the "Upload file" button choose your file, click "Open" and wait for
the link to be displayed. Copy it and post it.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:exce
excel sheet
Hello
This doesnt work
Rajesh
On 21 February 2011 21:29, Daniel wrote:
Hello,
Try :
With ActiveSheet.PageSetup
.CenterHeader = "original for the buyer"
ActiveSheet.PrintOut
.CenterHeader = "Duplicate for the seller"
ActiveSheet.Print
1 And Target.Row > 6 Then
Cells(Target.Row, 11) = Evaluate("sumproduct((DB!$A$2:$A$46803=Batch!$A"
_
& Target.Row & ")*(DB!$AP$2:$AP$46803=""Yes""))")
End If
End Sub
You’ll have to do the same for others formulas.
Regards.
Daniel
De :
Hello,
Some people have this habit ; it’s useless.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Jenie
Envoyé : mercredi 23 février 2011 20:38
À : excel-macros@googlegroups.com
Objet : RE: $$Excel-Macros$$ Macro Help - Please!
Hello excel
What happens ? do you get an error message ?
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de SteveO
Envoyé : samedi 26 février 2011 04:06
À : MS EXCEL AND VBA MACROS
Objet : $$Excel-Macros$$ Cannot remove rows
MS
Can you copy the data into a blank workbook and try with this new one ?
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de SteveO
Envoyé : samedi 26 février 2011 13:01
À : MS EXCEL AND VBA MACROS
Objet : Re: $$Excel-M
Cells(c.Row, 7).Formula = Cells(inRow, 7).Formula
Cells(inRow, 7) = ""
End If
Next c
End Sub
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Dilan De Silva
Envoyé : dimanche 20 mars 2011 08:41
À :
Look at the attached file and run the macro « Test »
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Dilan De Silva
Envoyé : mercredi 23 mars 2011 13:28
À : excel-macros@googlegroups.com
Objet : Re: $$Excel-Macros$$ Excel formula for a
Hi,
It depends upon which version you are using. Have a look at the page :
<http://support.microsoft.com/kb/287736/en-us>
http://support.microsoft.com/kb/287736/en-us
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part d
:=f.Name
End If
Next f
For Each d In myFolder.SubFolders
FolderRead d
Next d
End Sub
HTH
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Dave
Envoyé : jeudi 24 mars 2011 22:05
À : excel-macros@googlegroups
Hi,
Paste this macro in the first workbook. Open it manually and run the “Test”
macro.
Sub test()
Dim lgRow As Long, sh As Worksheet, c As Range, rg As Range
Const strPath As String = "D:\Donnees\Daniel\mpfe\Prathima R\" 'to be
modified
Dim inCalculation
"Forms.TextBox.1" _
Or .Shapes(i).OLEFormat.progID = "Forms.ComboBox.1" Then
strname = .Shapes(i).Name
.OLEObjects(strname).Object.Value = ""
End If
End If
Next i
End With
End Sub
Regards.
Hi,
In K3 (array formula, validate with Ctrl+Shift+Enter) :
=IF(ISERROR(AVERAGE(IF((MONTH($B$2:$B$125)=MONTH(J3))*(YEAR($B$2:$B$125)=YEA
R(J3))<>0,$E$2:$E$125))),"",AVERAGE(IF((MONTH($B$2:$B$125)=MONTH(J3))*(YEAR(
$B$2:$B$125)=YEAR(J3)),$E$2:$E$125)))
Regards.
Daniel
Hi,
What is the error message?
Add :
Debug.Print i
Before this line to check the value of I .
Regards.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Financeguy
Envoyé : lundi 11 avril 2011 04:21
À : MS EXCEL AN
Hi,
In L8 :
=SUM(OFFSET($D8MONTH(TODAY(
If you are to use todays month.
Cheers.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de vinod rao
Envoyé : mardi 12 avril 2011 19:24
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros
lication.Calculation = inCalculationMode
Application.ScreenUpdating = True
End Sub
HTH
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de N.Shivkumar
Envoyé : dimanche 17 avril 2011 09:01
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Help wit
Hi,
Please, attach file ;-)
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de C.G.Kumar
Envoyé : lundi 18 avril 2011 10:15
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ SEARCH FUNCTION
Dear All,
I intend to generate list
Hello,
Can you explain G6 ?
Difference is -0.190 which is <=0.1.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Rohan Young
Envoyé : mercredi 20 avril 2011 09:35
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Need H
Hi,
Have a look here :
<http://www.gifted.uconn.edu/siegle/research/Normal/stdexcel.htm>
http://www.gifted.uconn.edu/siegle/research/Normal/stdexcel.htm
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de sudhir kumar
Envoyé : me
Hi,
Have a look at the attached file. Note than there was a space after « Ram »
on Sheet1. I removed it.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Jai
Envoyé : vendredi 22 avril 2011 08:47
À : excel-macros@googlegroups.com
Objet
HI,
Some cells have a date & hour value (eg. Cell Q4 have a value of
40548.857639, that is 05/01/2011 20:35:00 when P4 only has the hour
part).
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Born to Win
Envoyé : vendredi 22 a
nnees\daniel\mpfe\TB.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Enrgt
Tabl = Split(Enrgt, " ")
If Tabl(LBound(Tabl)) = "No" Then
Line Input #1, Enrgt
Tabl = Split(Enrgt, " ")
lgRow = lgRow + 1
co
d Sub
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Chandra Shekar
Envoyé : mercredi 27 avril 2011 11:31
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Refreshing Pivot Table using VBA Code
Hi,
In sheet1 I have 5 pivot
Hi,
Sub if_Save()
If Sheet2.Range("M5") = "" Then
MsgBox ("Please enter Name")
ElseIf Sheet2.Range("M6") = "" Then
MsgBox ("Please enter Code")
ElseIf Sheet1.Range("P5:P9").count < 5 Then
MsgBox ("Please fil
???
Works for me.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Bob
Envoyé : lundi 2 mai 2011 22:36
À : MS EXCEL AND VBA MACROS
Objet : $$Excel-Macros$$ Copy/Paste Code
For the life of me I can not figure out why
How does the result should display ? all descriptions in the same cell or
each one in a cell ?
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Carter, Jeannie
Envoyé : mercredi 25 mai 2011 16:14
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$
EN(A1))),1)="\")*ROW(INDIREC
T("1:"&LEN(A1))),2)-1)
Parent parent folder :
=MID(A1,LARGE((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)="\")*ROW(INDIRECT("1:"&
LEN(A1))),4)+1,LARGE((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)="\&qu
RECT("1:"&LEN(A1))),1)="\")*ROW(IN
DIRECT("1:"&LEN(A1))),3)-1)
Parent parent folder :
=MID(A1,LARGE((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)="\")*ROW(INDIRECT("1:"&
LEN(A1))),4)+1,LARGE((MID(A1,ROW(INDIRECT("1:"&
Hi,
Which date and time ?
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Chandra Shekar
Envoyé : vendredi 27 mai 2011 15:41
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Time Issue
Hi,
I need to check
Sorry, I should have said that these are array formulas (validate with
Ctrl+Shift+Enter). Have a look at the attached file.
Regards.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Jhoomla
Envoyé : lundi 30 mai 20
A guess :
Sub RangePrint()
Dim Rg As Range
With Sheets("Sheet1")
Set Rg = .Range(.[A3], .Cells(Rows.Count, "K").End(xlUp))
Rg.PrintOut
End With
End Sub
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
Let's say start dates are in B and finish dates are in C. In K6, the formula
will be :
=IF(C6="",NA(),C6-B6)
Copy downward
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Joni Childers
Envoyé : mardi
You may filter out the null values. Each time, you'll have to refresh the
filter either manually or with a macro.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Joni Childers
Envoyé : mardi 7 juin 2011 23:46
À
Hello,
You can’t use spaces in the name of named ranges, so I have replaced “Pooja
Valeja” with “Pooja_Valeja”
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de lucky singh
Envoyé : vendredi 10 juin 2011 13:14
À : undisclosed
txt = txt & c.Value & " " & c.Offset(, 1).Value & vbCrLf
End If
Next c
If txt <> "" Then
txt = Left(txt, Len(txt) - 1)
txt = "Today is Return Date for :" & vbCrLf & txt
Works for me. Put a break point onto the last line and check the array data.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Richard
Envoyé : lundi 13 juin 2011 22:14
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ List Box
I am
Have a look at the attached file.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Nemi Gandhi
Envoyé : mardi 14 juin 2011 13:47
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ querry new
file is attached. i need formula please
Maybe this file ?
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Nemi Gandhi
Envoyé : mercredi 15 juin 2011 08:44
À : MS EXCEL AND VBA MACROS
Objet : Re: $$Excel-Macros$$ querry new
Thank you Daniel, but when i
See attached file.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Nemi Gandhi
Envoyé : jeudi 16 juin 2011 13:02
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ querry-3
Dear Members,
i need the formula please
I have trouble understanding ; can you post which result is expected ?
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Nemi Gandhi
Envoyé : vendredi 17 juin 2011 08:28
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ querry 3
See attached file.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Nemi Gandhi
Envoyé : vendredi 17 juin 2011 08:28
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ querry 3
attached once again for some correction and explanation
See attached file.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Nemi Gandhi
Envoyé : vendredi 17 juin 2011 08:28
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ querry 3
attached once again for some correction and explanation
Hi,
I don’t think there are tool to automate the processbecause the syntax is
very similar. Can you post your code and tell which line produces the error
?
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Chandra Shekar
Envoyé
I need a 0 in A1, data starting in A2:B2. Starting date in D1 (calendar one
eg. 12/1/2008), end date in D2.
Formula for a is (array formula, validate with Ctrl+Shift+Enter) :
=SUMPRODUCT((A2:A1001>=D1)*(A2:A1001<=D2)*IF(DAY(A2:A1001)=D1)*(A2:A1001<=D2)*IF(DAY(A2:A1001)=D1)*(A2:A1001<=D2)*(IF(DAY(A
Hello,
This one works for me :
Selection.FormulaArray = _
"=RC[-4]:R[" & Z & "]C[-4]&RC[-3]:R[" & Z & "]C[-3]&RC[-2]:R[" & Z &
"]C[-2]"
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:e
Hello,
Try :
Sub test1()
Dim Enrgt As String
Close #1
Close #2
mypath = "d:\donnees\daniel\mpfe\" 'files path, please change
Open mypath & "RPTbamCommon Maintenance201106061432493.txt" For Input As #1
Open mypath & "Output.txt" For Output As
Hello,
Is the comma your decimal symbol ?
Regards.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de F4b10cut3r
Envoyé : dimanche 19 juin 2011 16:43
À : MS EXCEL AND VBA MACROS
Objet : $$Excel-Macros$$ My first cal
Hi,
Can you ell which macro is involved and which result is different ?
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Chandra Shekar
Envoyé : lundi 20 juin 2011 10:19
À : excel-macros@googlegroups.com
Objet : Re: $$Excel-Macros
<>
Charts are quite different with Excel2007, so you have to resize the plot
area, change the series colors in order to get something similar. I use
Excel 2010 which is still different from Excel 2007.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part
quot; And
Mid(sh.Name, 2, 1) < "5" And _
Mid(sh.Name, 4, 1) > "0" And Mid(sh.Name, 4, 1) < "5" And
Mid(sh.Name, 3, 1) = "C" And _
Len(sh.Name) = 4 Then
sh.DrawingObject.Enabled = False
End If
End
dd 1
ActiveSheet.Paste
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Item & ".xls"
ActiveWorkbook.SendMail strRecip, "Subject"
Next Item
End With
End Sub
Regards.
Daniel
De : excel-macros@googlegroups.c
Hi,
worksheets("sheet1").range(cells(x,1):cells(x,6).copy
worksheets("sheet2").range(cells(y,1),cells(y,6))
is one same line so you have to add an underscore mark :
worksheets("sheet1").range(cells(x,1):cells(x,6).copy _
worksheets("sheet2").range
Hello,
Consider the NETWORKDAYS function. If you are using an older version than
Excel 2007, you’ll have to install the Analysis Tool Pack.
HTH
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Chandra Shekar
Envoyé : vendredi 1 juillet
Hello,
Can you explain a bit more ?
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Jai
Envoyé : mercredi 6 juillet 2011 13:07
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Vlookup Query-2
Hello Experts
I
End With
End Sub
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Cab Boose
Envoyé : jeudi 7 juillet 2011 08:56
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ VBA Comment Box - Copy of
Hi
Have a photo in a comments box
Hi,
Try :
For num = 1 To 22
txtbox_val = Me.Controls("TB" & num).Value
txtbox_num = num
Next num
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de shariq khan
Envoyé : vendredi 8 juillet 2011 11:00
À
Hello,
Maybe, use « SaveAs » instead of « Save » ?
Anyway, can you post your code ?
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Stilgar
Envoyé : vendredi 8 juillet 2011 11:10
À : excel-macros@googlegroups.com
Objet : $$Excel
Which line gets the error ?
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de shariq khan
Envoyé : vendredi 8 juillet 2011 13:11
À : excel-macros@googlegroups.com
Objet : Re: $$Excel-Macros$$ Need Help Help Help.Putting value in user
from by
Didn’t you say the textboxes were in a userform ? if they are on a
worksheet, the syntax should be :
With ActiveSheet
For i = 1 To 22
txtbox_val = .OLEObjects("TB" & i).Object.Value
Next i
End With
Daniel
De : excel-macros@googlegroups.com [mailt
“Me” represents the object containing the code ; so, in this case, « me » is
equivalent to “Userform2”. Can you post your workbook ?
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de shariq khan
Envoyé : samedi 9 juillet 2011 00:32
À : excel
There is no « TB17 » textbox and that’s why you get an error.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de shariq khan
Envoyé : samedi 9 juillet 2011 13:01
À : excel-macros@googlegroups.com; dcolarde...@free.fr
Objet : Re: $$Excel
If
Next Sh
If Worksheets.Count = 2 Then
ActiveSheet.Name = [Sheet1!A2]
Else
Var = Application.Max(Tabl())
Var = Application.Match(Var, [Sheet1!A:A], 0) + 1
ActiveSheet.Name = Application.Index([Sheet1!A:A], Var, 1)
End If
End Sub
Regards.
Daniel
De : excel-macros
Can you mail the sheet password back ?
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Bob
Envoyé : dimanche 10 juillet 2011 20:57
À : excel-macros@googlegroups.com
Objet : Re: RE: $$Excel-Macros$$ Help with formula
Here is the file. On the Quote work
Hello,
Try :
Sub test()
Dim Wb As Workbook, Sh As Worksheet
For Each Wb In Workbooks
For Each Sh In Wb.Sheets
Sh.Cells.Replace "asdfghjkl", "lkjhgfdsa"
Next Sh
Next Wb
End Sub
Regards.
Daniel
De : excel-macros@googlegroups.com
Hello,
Have a look at the attached file.
Regards.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de vishwa
Envoyé : jeudi 14 juillet 2011 03:09
À : MS EXCEL AND VBA MACROS
Objet : $$Excel-Macros$$ Providing mul
activecell or current selection.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de neil johnson
Envoyé : vendredi 15 juillet 2011 13:45
À : excel-macros
Objet : $$Excel-Macros$$ Hi I need your help , Please explain it with
example
Note that in some cases, there is a difference between “Target” and
“ActiveCell”, when the active cell moves downwards or sidewards after you
hit the “Enter” key.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Daniel
Envoyé : vendredi 15
Target.Column = 7 And Target.Row > 6 Then
‘if cell being on the same row in column A <> ””
If Cells(Target.Row, 1).Value <> "" Then
‘change target value to “X”
Target.Value = "X"
‘macro ?
MoveRow
'MsgBox "Row has been copied"
End If
E
There is incompatibility in the way both versions are handling pivots. If
you are to design pivots with Excel 2007 for Excel 2003 users, you should
run Excel 2007 in compatibility mode.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de
HI,
Sub ABCReplace()
[A1].Replace "ABC", "#"
End Sub
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Prabhu
Envoyé : jeudi 21 juillet 2011 17:26
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$
End With
End Sub
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Natron
Envoyé : jeudi 21 juillet 2011 04:15
À : MS EXCEL AND VBA MACROS
Objet : $$Excel-Macros$$ VBA Conditional Format Offset
I have multiple columns (a
"=AND(F1<>"""",D1>F1)"
.FormatConditions(1).Interior.Color = RGB(255, 0, 0)
End With
End Sub
Note that the formula has to be written in your local version of Excel. As
far as I am concerned, I have to translate it in French.
Regards.
Daniel
-Message d'orig
Hi,
You can’t do it with a formula (a formula only changes the value of the cell
which contains it). Either you use the replace command (Ctrl+H) or you have
to use a macro.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Prabhu
Envoyé
uot; Then
c.Value = ""
c.Offset(, 2).Value = "Total Login Hrs"
c.Offset(, 2).Resize(, 2).NumberFormat = "[h]:mm:ss"
c.Offset(, 2).Resize(, 2).Font.Bold = True
End If
Next c
End Sub
Regards.
Daniel
Hi,
=LEN(A1)-LEN(SUBSTITUTE(A1," ",""))
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de KAUSHIK SAVLA
Envoyé : mardi 26 juillet 2011 06:07
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Help Requ
Hello,
Have a look at the attached workbook.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Nikhil Shah
Envoyé : lundi 25 juillet 2011 20:58
À : excel-macros@googlegroups.com
Cc : Maries waran
Objet : $$Excel-Macros$$ Date
Hi,
You should indicate the file name before the function :
Eg. Personal.xlsb! SpellNumber...
Regards.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de aju chacko
Envoyé : jeudi 28 juillet 2011 06:10
À : excel-m
et rgRange = rgRange.SpecialCells(xlCellTypeVisible)
rgRange.EntireRow.Delete
.AutoFilter.Range.AutoFilter
End With
End Sub
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de arpit rajput
Envoyé : jeudi 28 juillet 2011 11:20
À : ex
Function
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Anil Bhange
Envoyé : jeudi 28 juillet 2011 14:23
À : excel-macros@googlegroups.com
Objet : RE: $$Excel-Macros$$ Reverse Vlookup
Thanks XlS S, Venkat and other members, I
Just to precise that the « col » parameter should be a positive number, the
rightmost column being column 1.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Anil Bhange
Envoyé : jeudi 28 juillet 2011 14:23
À : excel-macros@googlegroups.com
HI,
Can you explain a bit more ?
Thanks.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de aju chacko
Envoyé : vendredi 29 juillet 2011 00:37
À : excel-macros@googlegroups.com
Objet : Re: $$Excel-Macros$$ Help needed to comine VBA
I think the simplest way to do it is to split the window, freeze panes and
add a textbox or label and maybe a command button in the frozen part.
Daniel
-Message d'origine-
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Bob
Envoyé : jeudi 28 ju
ue
If Target.Value <> "" Then
Target.ShowDetail = True
ActiveSheet.Name = Target.Offset(, -1).Value
End If
End Sub
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de aju chacko
Envoyé : vendredi 29 ju
… each tim you double click on a value of the pivot, the worksheet will be
created with the desired name.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de aju chacko
Envoyé : vendredi 29 juillet 2011 16:25
À : excel macro forum
Objet : Fwd
Hello, Noorain,
I am really sad not to understand the meaning of your poem (is it
Hindi ? I failed to learn it a few years ago) I shall really enjoy to
get a translation from it. If you have time enough to do it.
Regards.
Daniel
On 30 juil, 04:20, NOORAIN ANSARI wrote:
> Dear Experts,
&g
Means “for each value of r beginning =with 9 and ending to 1”
That is 9, 8, 7, 6, 5, … 1.
You generally use “step -1” when you have to delete rows.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de vijayajith VA
Envoyé : samedi 30
Hello, Ayush,
Thanks for the translation. It’s a quite nice poem, although, sadly, the
essence of a poem cannot be translated.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De la
part de Ayush Jain
Envoyé : samedi 30 juillet 2011 16:54
À
I am sorry, I don’t know how to do it. Maybe it is possible to achieve it
with a class module, but evenso, I’m not able to do it so far.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de aju chacko
Envoyé : samedi 30 juillet 2011 17:00
It will be very difficult to move the code to the personal.xlsb workbook
without the initial file retaining some code. Can you explain why you want
to do so ? Maybe there should be alternative solutions.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros
1 - 100 of 267 matches
Mail list logo
