011 09:03:35 +0530
> Subject: Fwd: $$Excel-Macros$$ A small query, need your help in vba coding.
> From: kannan.ex...@gmail.com
>
> To: excel-macros@googlegroups.com
>
> Hi Guru
>
> Anybody give a sample excel
> i try this code. but its not working. help me. i want
Your code looks like to be run in excel 2003 only
(1)
In both excel 2003 / excel 2007
Range("A65000") ' last row in A column
can be coded as
Cells(*Rows.Count*,1)
or
Range("A" & *Rows.Count*)
(2)
*Value* property of a Range Object is a *DEFAULT Property*
so you can ignore it
For example
Range
Thanks a lot to all of you.
--
Indrajit
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linked
When copying excel files, the following problems:
PROBLEM 1
1). The settings of the Margins are getting disturbed
PROBLEM 2
Also when you take a print out, the @age of the page fluctuates
Do you or your friends have any solution
Please revert
Thanks & regards
On 5/7/11, STDEV(i) wrote:
>
Private Sub CommandButton1_Click()
Range("A65000").End(xlUp).Cells(2, 1) = Range("C1").Value:
Range("A65000").End(xlUp).Cells(1, 2) = Range("D1").Value:
End Sub
On Sat, May 7, 2011 at 1:56 AM, Indrajit $nai wrote:
> Hi All,
>
> I have a little query in vba coding, please see the attached file.
just a little modif:
Private Sub CommandButton1_Click()
Dim R As Long
* R = Cells(Rows.Count, 1).End(xlUp).Row + 1*
Cells(R, 1) = Cells(1, 3)
Cells(R, 2) = Cells(1, 4)
End Sub
On Sat, May 7, 2011 at 11:38 AM, rajan verma wrote:
> It macro will not work properly if these is any blan
It macro will not work properly if these is any blank row between the Data..
It will all time replace existing Data..
On Sat, May 7, 2011 at 8:56 AM, STDEV(i) wrote:
> Dear Indrajit
> please try this code
>
> Private Sub CommandButton1_Click()
>' siti Vi / jakarta, May 07, 2011
>Dim R As
Dear Indrajit
please try this code
Private Sub CommandButton1_Click()
' siti Vi / jakarta, May 07, 2011
Dim R As Long
R = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(R, 1) = Cells(1, 3)
Cells(R, 2) = Cells(1, 4)
End Sub
On Sat, May 7, 2011 at 3:26 AM, Indrajit $nai wrote:
>
try this
Private Sub CommandButton1_Click()
Range("C1:D1").Select
Selection.Copy
Range("A65356").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
On Sat, May 7, 2011 at 1:56 AM, Indrajit $nai wrote:
> Hi All,
>
> I have a little query
Hi All,
I have a little query in vba coding, please see the attached file. In the
excel file there is a "Save" command button, whenever I press the button it
will copy the data from cell no. c1:d1 and paste in the cell a1:b1, now my
query is, if the data is already in the cell no. a1:b1 it will be
10 matches
Mail list logo
