Printable View
This part of the macro is for pasting in a different sheet. I have the heading in row b3 of sheet named "i".. there is error in the line after the else command.
Code:Sheets("i").Activate
Range("B3").Select
If Range("b3").Offset(1, 0) = "" Then
Selection.Offset(1, 0).Select
Else
Selection.Range(xlDown).Offset(1, 0).Select
End If
ActiveSheet.paste
I am guessing that you meant the code line I highlighted in red to be this instead...Quote:
Originally Posted by Safal Shrestha
Selection.End(xlDown).Offset(1, 0).Select
Since you didn't post all your code, I cannot rewrite it for you because it ends by selecting a cell, but I would point out that it is rarely necessary to select cells in order to work with them. Whenever you see yourself writing something like this...
Range(..).Select
Selection.something
you can write it like this instead...
Range(..).something
Think about it... what does Selection.something mean? It means do "something" with the object you selected. But what is that object... it is the range you selected in the code line above... so you might as well work directly with the original object instead of working with a different object that references it. In effect, you already knew this because in your code, after you did this...
Range("B3").Select
you wrote this...
If Range("B3").Offset(1, 0) = "" Then
instead of writing this...
If Selection.Offset(1, 0) = "" Then
I am a newbie in vba. I am trying to make my own simple macros. Thanks for the suggestions.
I will come back if i have any other problems.
Below is the vba code for copying a data and then pasting it at the next empty line after the present data and then deleting the original data so that when i come back next time i can input data in the sheet again and do it again and again.
one problem is when it is my first time it goes to the end of the column b. so i wanted to keep a check and do it accordingly. Can you recommend the code for me? thanks
Code:Sub Macro1()
Dim jpt As Worksheet
Dim i As Worksheet
Dim sheet1 As Worksheet
Sheets("jpt").Activate
Sheets("jpt").Range("b3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("i").Activate
Range("B3").Select
If Selection.Offset(1, 0) = "" Then
ActiveSheet.paste
Else
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.paste
End If
Sheets("jpt").Activate
Sheets("jpt").Range("b3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete
End Sub
Try this..
Code:Sub Macro1()
Dim lng As Long
With Sheets(1)
lng = .Range("B3").End(xlToRight).End(xlDown).Row
If lng = Rows.Count Then lng = 3
With .Range(.Range("b3"), .Range("b3").End(xlToRight)).Resize(lng - 2)
.Copy
With Sheets(2).Range("B3")
If .Offset(1).Value = "" Then
.Offset(1).PasteSpecial
Else
.End(xlDown).Offset(1, 0).PasteSpecial
End If
Application.Goto .Cells(1)
End With
.Delete
End With
End With
End Sub
this will suffice:
Code:Sub M_snb()
Sheets("jpt").Range("b3").currentregion.cut sheets(i).cells(rows.count,1).end(xlup).offset(1)
End Sub
There are quite a few assumptions that you are taking there when suggesting that snb. For example, that will only suffice if there are NO adjacent columns in the contiguous cells in column A or rows above.... there are many other that can be highlighted....
I know, but as long as the TS doesn't provide any more information, the code can be applicable to the question posed. But I only give suggestions, no solutions. The TS may adapt the code ad libitum.
Thanks a lot guys. I am working on the suggestions and trying to understand those codes. Thanks again