Hi ,
U can use this code in your module
Sub Test()
Dim strTest As String
Range(A6).Select
While ActiveCell.Value
If ActiveCell.Offset(1, 0).Value Then
strTest = strTest ActiveCell.Value ;
Else
strTest = strTest ActiveCell.Value
End If
Hi,
Check attached file
Regards
Sathish Jalendran
From: excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com]
On Behalf Of Putta Madaiah
Sent: 20 April 2009 05:33 pm
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ All the names copied to one Cell seperated
Hi Laxmikant
Yes, this is possible. Using VBA you can fill forms on internet, even
if it's https.
For more tips, tricks, downloads and problem solutions: visit --
http://www.excelitems.com
Regards
*Ashish **Jain*
Analyst,
Hello Ashish,
I am working on a solution for you!
But I still don't know how to attach a file in an answer.
I'm new in this group and I really want to help people with VBA
problems.
But before I have to know how I can attach files.
Best Regards,
Sergio
On 20 Apr., 15:51, Ashish got
Hi Dustin,
Paste the following code into a module.
Sub InsertMissing()
Do Until ActiveCell.Value =
A = ActiveCell.Value
B = ActiveCell.Offset(1, 0).Value
If B - A 1 Then
ActiveCell.Offset(1, 0).EntireRow.Select
Selection.Insert Shift:=xlDown
Hi,
Can anyone tell me if there is a limit on the number of conditions you
can place on a cell? I've got 5 and actually need 6, however, when I
select apply, the last condition disappears.
Please advise,
Steve
--~--~-~--~~~---~--~~
Passward is 123456
Thanks regards,
|| Mudassar Ramzan | MIS Officer | WorldCALL Telecom Ltd | 061- 814-3999 | 0321
7325277 ||
- Original Message -
From: Prem Narayan
To: excel-macros@googlegroups.com
Sent: Tuesday, April 21, 2009 12:08 AM
Subject: Fwd: $$Excel-Macros$$
Solution attached
On Tue, Apr 21, 2009 at 9:26 PM, Geo gco...@gmail.com wrote:
I have data like this:
part# location
1 1B-1-A-01
5 1B-1-A-01
6 1B-1-A-01
14 1B-1-A-02
12 1B-1-A-02
15 1B-1-A-03
83 1B-1-A-03
16 1B-1-A-03
22 1B-1-A-03
Dave,
Thank you for responding and for your code! I incorporated your ideas
along with Habeeb's (above) and my own ideas and came up with the code
below. If you see any room for improvement, please let me know, as I
am still very new to this coding.
Sub fillInTheRows()
Sheets(Raw).Select
Oops.. just noticed that you want the column D's value in sheet2,
Just change it to target.row,4 (D=4)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column = 23) Then
Sheets(Sheet2).Cells(1, 1) = Cells(Target.Row, 4)
End If
End Sub
Paul
In cells C2, use:
=IF(B2B1,start,IF(B2B3,end,))
then copy the formula down.
hope this helps,
Paul
From: Geo gco...@gmail.com
To: MS EXCEL AND VBA MACROS excel-macros@googlegroups.com
Sent: Tuesday, April 21, 2009 11:56:32 AM
Subject: $$Excel-Macros$$ Show the
Thanks Gents!
On Apr 21, 12:43 pm, Paul Schreiner schreiner_p...@att.net wrote:
In cells C2, use:
=IF(B2B1,start,IF(B2B3,end,))
then copy the formula down.
hope this helps,
Paul
From: Geo gco...@gmail.com
To: MS EXCEL AND VBA MACROS
*Hi,
Please find the attachment for the given problem..
regards,
mathan
*
On Tue, Apr 21, 2009 at 9:26 PM, Geo gco...@gmail.com wrote:
I have data like this:
part# location
1 1B-1-A-01
5 1B-1-A-01
6 1B-1-A-01
14 1B-1-A-02
12 1B-1-A-02
15 1B-1-A-03
13 matches
Mail list logo