Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to copy a cell contains formula to a range
Sub hfscopy()
' ' purpose is to copy cell AI4 to Range AI 8 upto AI filled in the message box "copy to this row", but it stuck in .Range("AI4").Copy Destination:=Range("AI8:AI & CopyToThisRow") with highlight in yelllow. I appreciate for any help Dim CopyToThisRow As Long CopyToThisRow = InputBox("Isi disini.... sampai cell dari kolunm AI no berapa?") If IsNumeric(CopyToThisRow) Then With Worksheets("PO_Line_text") If CopyToThisRow 8 And CopyToThisRow <= .Rows.Count Then .Range("AI4").Copy Destination:=Range("AI8:AI & CopyToThisRow") .Range("AI8:AI" & CopyToThisRow).Select Exit Sub End If End With End If MsgBox "Kamu tidak mengisi no cell yang benar" End Sub -- H. Frank Situmorang |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to copy a cell contains formula to a range
Variable should not be inside strings with double quotes. fix thjis is two
places in the code. from "AI8:AI & CopyToThisRow" to "AI8:AI" & CopyToThisRow "Frank Situmorang" wrote: Sub hfscopy() ' ' purpose is to copy cell AI4 to Range AI 8 upto AI filled in the message box "copy to this row", but it stuck in .Range("AI4").Copy Destination:=Range("AI8:AI & CopyToThisRow") with highlight in yelllow. I appreciate for any help Dim CopyToThisRow As Long CopyToThisRow = InputBox("Isi disini.... sampai cell dari kolunm AI no berapa?") If IsNumeric(CopyToThisRow) Then With Worksheets("PO_Line_text") If CopyToThisRow 8 And CopyToThisRow <= .Rows.Count Then .Range("AI4").Copy Destination:=Range("AI8:AI & CopyToThisRow") .Range("AI8:AI" & CopyToThisRow).Select Exit Sub End If End With End If MsgBox "Kamu tidak mengisi no cell yang benar" End Sub -- H. Frank Situmorang |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to copy a cell contains formula to a range
Thanks Joel, it works perfectly, you are awesome.
-- H. Frank Situmorang "Joel" wrote: Variable should not be inside strings with double quotes. fix thjis is two places in the code. from "AI8:AI & CopyToThisRow" to "AI8:AI" & CopyToThisRow "Frank Situmorang" wrote: Sub hfscopy() ' ' purpose is to copy cell AI4 to Range AI 8 upto AI filled in the message box "copy to this row", but it stuck in .Range("AI4").Copy Destination:=Range("AI8:AI & CopyToThisRow") with highlight in yelllow. I appreciate for any help Dim CopyToThisRow As Long CopyToThisRow = InputBox("Isi disini.... sampai cell dari kolunm AI no berapa?") If IsNumeric(CopyToThisRow) Then With Worksheets("PO_Line_text") If CopyToThisRow 8 And CopyToThisRow <= .Rows.Count Then .Range("AI4").Copy Destination:=Range("AI8:AI & CopyToThisRow") .Range("AI8:AI" & CopyToThisRow).Select Exit Sub End If End With End If MsgBox "Kamu tidak mengisi no cell yang benar" End Sub -- H. Frank Situmorang |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to copy a certain a cell to a dynamic range | Excel Programming | |||
Create Macro to copy a formula to range of cell | Excel Programming | |||
Help: Macro Copy Active Cell to Range Name, loop | Excel Programming | |||
Macro Copy Active Cell to Range Name, loop | Excel Programming | |||
How to copy formula from one cell to a range? | Excel Programming |