Excel Macro Help Please
Solved/Closed
Related:
- Excel Macro Help Please
- Spell number in excel without macro - Guide
- Excel mod apk for pc - Download - Spreadsheets
- Kernel for excel - Download - Backup and recovery
- Gif in excel - Guide
- Excel marksheet - Guide
23 responses
Hello,
Can any please help me how do I search for a specific cell with data like "Name" and paste the data after that row into a new column? How do I count the row after "Name" cell like "Name"+1 and then "Name" + 2
such as if cell = "Name"
copy the cell(row) after that
paste into Column N
Thanks!
Can any please help me how do I search for a specific cell with data like "Name" and paste the data after that row into a new column? How do I count the row after "Name" cell like "Name"+1 and then "Name" + 2
such as if cell = "Name"
copy the cell(row) after that
paste into Column N
Thanks!
Ivan-hoe
Posts
433
Registration date
Saturday February 16, 2008
Status
Member
Last seen
October 17, 2008
110
Jul 21, 2008 at 12:52 AM
Jul 21, 2008 at 12:52 AM
Hello,
if you only need to determine if there is any value entered in column A, use the function CountA
Sheets("List").Activate
If Application.WorksheetFunction.CountA(Columns("A")) = 0 Then
Exit Sub
Else
'instructions
End If
If you absolutely need to work down column A to see if there is anything entered in each cell, then use For ... Next
Dim LastLine As Integer, i As Integer
Sheets("List").Activate
LastLine = Cells(Columns("A").Rows.Count, 1).End(xlUp).Row
For i = 1 To LastLine
If Not Range("A" & i).Value = Empty Then
'instructions
End If
Next i
Ivan
if you only need to determine if there is any value entered in column A, use the function CountA
Sheets("List").Activate
If Application.WorksheetFunction.CountA(Columns("A")) = 0 Then
Exit Sub
Else
'instructions
End If
If you absolutely need to work down column A to see if there is anything entered in each cell, then use For ... Next
Dim LastLine As Integer, i As Integer
Sheets("List").Activate
LastLine = Cells(Columns("A").Rows.Count, 1).End(xlUp).Row
For i = 1 To LastLine
If Not Range("A" & i).Value = Empty Then
'instructions
End If
Next i
Ivan
Ivan-hoe
Posts
433
Registration date
Saturday February 16, 2008
Status
Member
Last seen
October 17, 2008
110
>
Savage
Jul 23, 2008 at 01:31 AM
Jul 23, 2008 at 01:31 AM
Hello savage,
please create a new thread to ask your question (by clicking on "Ask your question")
thank you
please create a new thread to ask your question (by clicking on "Ask your question")
thank you
Hi,
I have a similar problem in Excel VBA.
I have an entry with daily variable data, so today I have 1000 entries and 1200 the next day. With most of this input data I do some calculations. What I need to do is make a macro that copies these calculation formulas (AE5:FB5) for the new 200 entries.
I got to this script below, I place the cursor on line 1001, column AE, but I have to move the active cell down after a copy. I could also have copied the (AE:FB from the last line) because I already have 1000 entries and formulas. Maybe theres a smatter way to do it, but I'm a begginer in Excel macros.
Thanks for your help
Sub copy()
Dim Bottom As Long
Dim FinalRow As Long
Dim temp As Long
FinalRow = Range("A65536").End(xlUp).Row
CurrentRow = ActiveCell.Row
MsgBox FinalRow & " " & CurrentRow
Range("AE5:fb5").copy
For temp = CurrentRow To FinalRow
ActiveCell.PasteSpecial
ActiveCell.Select = ActiveCell.Row + 1 <--------- WRONG
MsgBox ActiveCell.Rows
Next temp
end sub
I have a similar problem in Excel VBA.
I have an entry with daily variable data, so today I have 1000 entries and 1200 the next day. With most of this input data I do some calculations. What I need to do is make a macro that copies these calculation formulas (AE5:FB5) for the new 200 entries.
I got to this script below, I place the cursor on line 1001, column AE, but I have to move the active cell down after a copy. I could also have copied the (AE:FB from the last line) because I already have 1000 entries and formulas. Maybe theres a smatter way to do it, but I'm a begginer in Excel macros.
Thanks for your help
Sub copy()
Dim Bottom As Long
Dim FinalRow As Long
Dim temp As Long
FinalRow = Range("A65536").End(xlUp).Row
CurrentRow = ActiveCell.Row
MsgBox FinalRow & " " & CurrentRow
Range("AE5:fb5").copy
For temp = CurrentRow To FinalRow
ActiveCell.PasteSpecial
ActiveCell.Select = ActiveCell.Row + 1 <--------- WRONG
MsgBox ActiveCell.Rows
Next temp
end sub
Hi Ivan,
I'm creating a leave card system for 68 staff members.
Each staff member has a worksheet detailing Annual Leave entitlement, a record of requests resulting in remaining days which feeds into a central sheet listing all employees with leave entitlements and remainders. The central page hyperlinks into the relevant sheets - great.
I now want to add sick leave into the individual sheets and create columns in the central sheet not only totalling 'sick days taken to date' but also 'periods of sick to date' which I want to add up cells containing data only, within a given range (which will be taken from the individual relevant sheet, 'sick start date column' probably). The result I want is that if an employee has taken 4 periods of sick, the central sheet will display '4' against his/her name.
Is this possible?
Using excel 2007
Would be really grateful xx
I'm creating a leave card system for 68 staff members.
Each staff member has a worksheet detailing Annual Leave entitlement, a record of requests resulting in remaining days which feeds into a central sheet listing all employees with leave entitlements and remainders. The central page hyperlinks into the relevant sheets - great.
I now want to add sick leave into the individual sheets and create columns in the central sheet not only totalling 'sick days taken to date' but also 'periods of sick to date' which I want to add up cells containing data only, within a given range (which will be taken from the individual relevant sheet, 'sick start date column' probably). The result I want is that if an employee has taken 4 periods of sick, the central sheet will display '4' against his/her name.
Is this possible?
Using excel 2007
Would be really grateful xx
Hi Sir,
I want to copy values in the range A1:I1 to every alternate row.. ie to A3: I3, A5 :I5 .. there are almost 200 rows are there.
Thanks
Jinta
I want to copy values in the range A1:I1 to every alternate row.. ie to A3: I3, A5 :I5 .. there are almost 200 rows are there.
Thanks
Jinta
aquarelle
Posts
7141
Registration date
Saturday April 7, 2007
Status
Moderator
Last seen
December 19, 2024
491
Aug 11, 2008 at 04:30 AM
Aug 11, 2008 at 04:30 AM
Hello,
If you need help, it would be great to create you own thread for your question. It allows a best following of your problem which is not exactly the same as mathisjr. It also allows to other people who read the thread a best understanding.
Thanks.
Best regards
If you need help, it would be great to create you own thread for your question. It allows a best following of your problem which is not exactly the same as mathisjr. It also allows to other people who read the thread a best understanding.
Thanks.
Best regards