VBA Copy Help

ks1102 · February 9th, 2009, 11:25 PM

Hi, I'm newly to here's, also I very new to work in VBA now I have problems as I not sure VB can work or not wanna some one help,

I have progamme want to copy form sheet1("H1") to paste at sheet2( column A, count the last row and down to if column "B last value,

sample:

if sheet2 COL A last row is "A18, and the COL "B" last row are B50, the copying is form sheet1 HI, to sheet2 A19 to A50,

can the criteria base on COL B and start copy count by last row at COL A??

can u help me the code?

pleased

Shasur · February 10th, 2009, 01:58 AM

Here is a way to achieve that

Code:

Sub Copy_KS()
Dim iALast As Long
Dim iBLast As Long

iALast = Worksheets("Sheet2").Range("A65336").End(xlUp).Row
iBLast = Worksheets("Sheet2").Range("B65336").End(xlUp).Row
Worksheets("Sheet1").Range("H1").Copy Destination:=Worksheets("Sheet2").Range("A" & iALast + 1 & ":A" & iBLast)
End Sub

Cheers
Shasur

ks1102 · February 10th, 2009, 02:17 AM

Dear Shasur

Excellent the code tha's what me looking for... you're be Wizard

Thanks

ks1102 · February 10th, 2009, 10:13 PM

Dear Shasur

Sorry the troublems .... may i have you help again the code if I want just to paste the values only.

your help I have hightly appreciate

stanleydgromjr · February 10th, 2009, 10:41 PM

ks1102,

Try:

Code:

 
Option Explicit
Sub Copy_KS()
    Dim iALast As Long
    Dim iBLast As Long
    iALast = Worksheets("Sheet2").Range("A65336").End(xlUp).Row
    iBLast = Worksheets("Sheet2").Range("B65336").End(xlUp).Row
    Worksheets("Sheet1").Range("H1").Copy Destination:=Worksheets("Sheet2").Range("A" & iALast + 1 & ":A" & iBLast)
    With Worksheets("Sheet2").Range("A" & iALast + 1 & ":A" & iBLast)
        .Value = .Value
    End With
End Sub

Have a great day,
Stan

ks1102 · February 10th, 2009, 11:08 PM

Dear all

Thanks very much