Data entry to other workbook excel vba

[neil1188]

guys question lang po..

ngdadata transfer na ako from my userform ang problem ngooverwrite lang xia if mgkaroon ng another input.

bali dapat next row na xia.. pero laging nsa row one lang xia


excel vb po gamit ko po.. any idea po?








Dim mr As Workbook


Dim path As String
path = "C:\Users\Carlo\Desktop\PAY-INS-TEMP-OCT-17.xlsx"
Application.ScreenUpdating = False
Workbooks.Open path

Set myrange = ActiveWorkbook.Sheets("PYI").Cells(6, 1).End(xlUp).Offset(1, 0)





myrange.Offset(0, 2).Value = packagetype.Value
myrange.Offset(0, 3).Value = reference1.Value
myrange.Offset(0, 4).Value = amount1.Value
myrange.Offset(0, 6).Value = upline1.Text
myrange.Offset(0, 7).Value = ComboBox3.Value
myrange.Offset(0, 1).Value = name1.Value

 

[puuts]

Sub neil1188()

Dim lrow As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("PYI")

'Get last row
lrow = ws.Range("B" & Rows.Count).End(xlUp).Row + 1

'Populate value
ws.Range("C" & lrow).Value = packagetype.Value
ws.Range("D" & lrow).Value = reference1.Value
ws.Range("E" & lrow).Value = amount1.Value
ws.Range("G" & lrow).Value = upline1.Text
ws.Range("H" & lrow).Value = ComboBox3.Value
ws.Range("B" & lrow).Value = name1.Value

Set ws = Nothing

End Sub

 

[neil1188]

Sub neil1188()

Dim lrow As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("PYI")

'Get last row
lrow = ws.Range("B" & Rows.Count).End(xlUp).Row + 1

'Populate value
ws.Range("C" & lrow).Value = packagetype.Value
ws.Range("D" & lrow).Value = reference1.Value
ws.Range("E" & lrow).Value = amount1.Value
ws.Range("G" & lrow).Value = upline1.Text
ws.Range("H" & lrow).Value = ComboBox3.Value
ws.Range("B" & lrow).Value = name1.Value

Set ws = Nothing

End Sub

thanks sir ill try this and keep you updated ok na sir pero paano po kpag sa sheet2 ilalagay?

thanks po sir..

- - - Updated - - -

thanks sir ill try this and keep you updated ok na sir pero paano po kpag sa sheet2 ilalagay?

thanks po sir..

ok na boss nadale na.. salamat po